II 


fi 


^^ 


lie  n 


ii^ 


t 


LEVEL  II  ROMs 


No.  1575 
$24.95 


LEVIL  II  ROMs 

BY  MARK  D.  GOODWIN 


TAB  BOOKS  Inc. 

BLUE  RIDGE  SUMMIT.  PA    17214 


To  my  princess  and  our  wonderful  family. 


NOTICES 

TRS-80  is  a  registered  trademark  of  the  Radio  Shack  Division  of  Tandy  Corpora- 
tion. 
ESF  and  Exatron  String  Floppy  are  trademarks  of  the  Exatron  Corporation. 
Epson  MX-80  is  a  registered  trademark  of  Epson  America  Inc. 


FIRST  EDITION 

FIRST  PRINTING 

Copyright  ©  1983  by  TAB  BOOKS  Inc. 

Printed  in  the  United  States  of  America 

Reproduction  or  publication  of  the  content  in  any  manner,  without  express 
permission  of  the  publisher.  Is  prohibited.  No  liability  Is  assumed  with  respect  to 
the  use  of  the  Information  herein. 

Library  of  Congress  Cataloging  in  Publication  Data 

Qooodwin,  Mark  D.  (Mark  Dennis),  1956- 
Level  11  Roms. 

Includes  index. 

1.  TRS-80  (Computer)— Programming.    2.  Basic  (Computer 
program  language)    3.  Read-only  storage.    !.  Title, 
II.  Title:  Level  2  ROMs.    III.  Title:  Level  two  ROMs. 
IV.  Title:  Level  II  R.O.M.s. 

QA76.8.T18G66        1983  001 .64'2  83-4931 

ISBN  0-8306-0275-5 
ISBN  0-8306-0175-9  (pbk.) 


Contents 


List  of  Programs  vji 

Introduction  viii 

1  The  Level  II  ROM  Routines  1 

Integer  Routines— Single  Precision  Routines— Double  Precision 
Routines— Math  Routines— Keyboard  Input  Routines— Output 
Routines— Cassette  Input/Output  Routines— Data  Movement 
Routines- ASCII  Conversion  Routines— Restart  Routines— A 
Sample  Program 

2  Machine  Language  Subroutines  29 

A  Graphics  Subroutine— The  Cassette  Method— The  POKE 
Method— The  Array  Packing  Method— The  String  Packing 
Method 

3  The  Disk  BASIC  and  DOS  Links  43 

Links  to  BASIC— Enhancing  USR— Using  This  New  Command 

4  Below  BASIC  51 

Moving  the  BASIC  Program  Area— Tabbing  Beyond  63 

5  Adding  New  BASIC  Commands  60 

Intercepting  Errors— Double  Width  Graphics 

6  Programmable  Shift  Key  Entries  73 

The  Keyboard  Device  Control  Block— The  Shift  Key  Program— 
The  New  Keyboard  Driver 


7  A  RAM  Printer  Spooler  9^ 

The  Purpose  of  a  Spooler— The  Spooler  Program 

8  The  JKL-to-Printer  Function  1 01 

The  JKL-to-Printer  Program-Epson  MX-80  Printer— Non-graph- 
ic Printers 

9  Spelled-Out  Error  Messages  107 

10    A  Machine  Language  Monitor  119 

The  Monitor's  Commands— The  Monitor  Program 

Appendix    Level  11  ROM  Memory  Map  187 


index 


533 


LIST  OF  PROGRAMS 


Title 

Four  Function  Calculator  16 

Graphics  Reversal  Program  32 

BASIC  Program  for  the  Cassette  Method  34 

BASIC  Program  for  the  POKE  Method  36 

BASIC  Program  for  Array  Packing  38 

BASIC  Program  for  String  Packing  41 

Enhanced  USR  Command  47 

Enhanced  USR  Test  Program  49 

BASIC  Program  to  Test  Enhanced  USR  50 

The  Completed  Test  Program  50 

TAB  Enhancer  Program  56 

TAB  Enhancer  Test  Program  59 

DSET  and  DRESET  Program  64 

DSET  and  DRESET  Test  Program  72 

Shift  Key  Program  76 

Spooler  Program  93 

The  JKL-to-Printer  Program  102 

Spelled-out  Error  Message  Program  107 

The  Monitor  Program,  Part  1  122 

The  Monitor  Program,  Part  2  123 

The  Monitor  Program.  Part  3  141 

The  Monitor  Program,  Part  4  153 

The  Monitor  Program,  Part  5  171 

*Type: 

EDTASM— Requires  the  Radio  Shack  EDTASM.  To  load  use  the 

EDTASM's  L  command. 
BASIC— To  load  use  the  CLOAD  command. 


Program 

Usting 

Type* 

1-1 

EDTASM 

2-1 

EDTASM 

2-2 

BASIC 

2-3 

BASIC 

2-4 

BASIC 

2-5 

BASIC 

3-1 

EDTASM 

3-2 

EDTASM 

3-3 

BASIC 

3-4 

BASIC 

4-1 

EDTASM 

4-2 

BASIC 

5-1 

EDTASM 

5-2 

BASIC 

6-1 

EDTASM 

7-1 

EDTASM 

8-1 

EDTASM 

9-1 

EDTASM 

10-1 

EDTASM 

10-2 

EDTASM 

10-3 

EDTASM 

10-4 

EDTASM 

10-5 

EDTASM 

vii 


introduction 


^^m 


Ever  since  the  TRS-80  Model  I  microcomputer  was  introduced  to 
the  computer  world,  there  has  been  an  astonishing  interest  in  Z-80 
assembly  language  programming.  This  great  interest  has  led  to 
much  curiosity  about  the  inner  workings  of  the  Level  II  BASIC 
ROMs.  Programmers  realized  early  on  that  there  are  many  useful 
routines  in  the  ROMs,  and  knowledge  of  these  routines  could 
greatly  simplify  the  development  of  highly  complex  assembly  lan- 
guage programs. 

Although  there  have  been  many  magazine  articles  and  books 
written  about  the  inner  workings  of  the  Level  II  BASIC  ROMs,  none 
of  this  information  really  presents  the  subject  in  a  way  that  is  useful 
to  the  Z-80  assembly  language  programmer.  In  writing  this  book  I 
hope  that  I  have  solved  this  problem.  Not  only  does  this  book 
present  line-by-line  comments  for  the  Level  II  BASIC  interpreter, 
it  goes  further  by  explaining  how  the  powerful  ROM  routines  can  be 
put  to  practical  use. 

In  addition  to  explaining  the  many  useful  ROM  routines,  the 
book  presents  many  methods  for  interfacing  machine  language  sub- 
routines with  Level  II  BASIC.  It  goes  even  further  by  explaining 
how  commands  can  be  added  to  the  Level  II  BASIC  interpreter  and 
how  existing  Level  II  BASIC  commands  can  be  greatly  enhanced. 
There  is  something  in  this  book  for  anybody  who  has  ever  had  an 
interest  in  learning  more  about  the  Level  II  BASIC  ROMs.  In 
closing,  I  hope  you  will  have  as  much  fun  exploring  the  Level  II 
BASIC  ROMs  as  I  have  had  writing  about  them. 


Chapter  1 
The  Level  f!  ROM  Routines 


The  Z-80  microprocessor  supports  8-bit  and  16-bit  addition  and 
subtraction,  but  this  is  not  a  sufficient  amount  of  precision  for  most 
program  applications.  Although  it  is  possible  to  write  routines  to 
achieve  higher  precision,  these  routines  are  quite  difficult  to  write 
and  would  require  an  extensive  amount  of  program  development 
time.  So  why  not  put  the  Level  11  math  routines  to  work?  After  all,  is 
there  any  sense  in  reinventing  the  wheel? 

Level  II  BASIC  supports  three  different  types  of  numbers: 
integers,  single  precision  numbers,  and  double  precision  numbers. 
This  chapter  deals  with  how  these  types  of  numbers  can  be  put  to 
use  via  the  Level  II  ROM  routines.  The  math  routines  as  well  as 
most  of  the  important  input/output  routines  are  covered. 

The  highest  amount  of  precision  available  on  tiie  Z-80  micro- 
processor is  16-bit.  However,  Level  II  BASIC'S  highest  amount  of 
precision,  double  precision  numbers,  uses  64  bits.  As  you  can  see, 
there  is  no  way  to  manipulate  the  Level  II  high  precision  number 
types  by  using  the  Z-80s  registers.  Therefore,  Level  II  BASIC  must 
make  certain  areas  of  memory  available  as  jumbo-sized  registers. 
Level  II  BASIC  uses  two  areas  of  memory  for  these  registers.  The 
locations  are  411DH-4124H  (hereinafter  referred  to  as  REGl)  and 
4127H-412EH  (hereinafter  referred  to  as  REG2).  Figure  1-1  shows 
how  REGl  stores  the  three  different  types  of  Level  II  BASIC 
numbers.  REG2  stores  numbers  exactly  the  same  as  REGl,  but 
remember  REG2  resides  in  a  different  area  of  memory. 
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Address 

Integer 

Single 
Precision 

Double 
Precision 

411DH 

LSB 

411  EH 

NMSB 

411FH 

NMSB 

4120H 

NMSB 

4121H 

LSB 

LSB 

NMSB 

4122H 

MSB 

NMSB 

NMSB 

4123H 

MSB 

MSB 

4124H 

EXP 

EXP 

1 

Fig.  1  -1 .  REG1  memory  locations.  LSB  =  Least  Significant  Byte,  NMSB  =  Next 
Most  Significant  Byte,  MSB  =  Most  Significant  Byte, 

In  order  for  Level  II  BASIC  to  know  which  type  of  number  is 
being  used,  it  must  use  a  number  type  flag  (NTF).  This  number  type 
flag  is  located  in  memory  at  40AFH,  and  it  must  always  hold  the 
proper  value  necessary  to  reflect  the  current  number  type  being 
used.  The  proper  values  for  the  number  type  flag  are: 

2  Integer 

3  String 

4  Single  Precision 
8  Double  Precision 


The  rest  of  this  chapter  presents  the  major  ROM  routines  one 
by  one.  Short  examples  are  given  where  appropriate.  A  program  at 
the  end  of  the  chapter  makes  use  of  some  of  these  routines.  You  are 
encouraged  to  try  all  of  the  programs  presented  in  this  book;  they 
will  help  you  understand  the  topics  discussed. 


INTEGER  ROUTINES 

The  integer  math  routines  always  use  register  pair  HL  and  DE. 
The  number  type  flag  must  be  set  for  integer. 

Integer  Addition,  address  0BD2H.  This  routine 
adds  the  value  in  register  pair  DE  to  the  value  in  register 
pair  HL.  The  result  will  be  returned  in  register  pair  HL. 
Register  pair  DE  will  remain  intact.  If  the  result  of  the 
addition  exceeds  that  of  a  legitimate  integer  value,  the 
values  will  be  converted  to  single  precision,  and  the  single 
precision  result  will  be  returned  in  REGl.  For  example: 

LD  A, 2  5A=INa:EGEH  NUMBER   KPE 

LD  (^OAFH),A  fSET  NfP  TO  INTEGER 

LD  HL,60  jLOAD  HL  WITH  VALUE 

LD  DE.200  jLOAD  DE  WITH  VALUE 

CALL  0BD2H  ;ADD  THM  HI=HL  -I-   DE 

Integer  Subtraction,  address  0BC7H.  This  rou- 
tine subtracts  the  value  in  register  pair  HL  from  the  value 
in  register  pair  DE.  The  result  will  be  returned  in  register 
pair  HL.  Register  pair  DE  will  remain  intact.  If  the  result  of 
the  subtraction  is  less  than  that  of  a  legitimate  integer 
value,  the  values  will  be  converted  to  single  precision,  and 
the  single  precision  result  will  be  returned  in  REGl. 
Example: 

LD  A, 2  ;A=INTEGER  NUMBER  TYPE 

LD  (^OAFH),A  ;SET  NTF  TO  INTEGER 

LD  DE,75  jLOAD  DE  WITH  VALUE 

LD  HL,^5  jLOAD  HL  WITH  VALUE 

CALL  0BC7H  J SUBTRACT  THEM  HL=DE  -  HL 

Integer  Multiplication,  address  0BF2H.  This 
routine  multiplies  the  value  in  register  pair  DE  by  the  value 
in  register  pair  HL.  The  result  is  returned  in  register  pair 
HL.  Register  pair  DE  will  remain  intact.  If  the  result 
exceeds  a  legitimate  integer  value,  the  values  will  be 
converted  to  single  precision,  and  the  single  precision 
result  will  be  returned  in  REGl.  Example: 


LD  A, 2       jA-INTEGER  NUTCBER  TYPE 

LD  (^OAFH),A  ;SET  NfP  TO  INa?EGER 

LD  HL,30     jLOAD  HL  WITH  VALUE 

LD  DE,-20    I LOAD  DE  WITH  VALUE 

CALL  0BF2H     ;  MULTIPLY  THEM  HL  =  DE  ^   HL 

Integer  Division,  address  2490H.  This  routine  will 
divide  the  value  in  register  pair  DE  by  the  value  in  register 
pair  HL.  Both  values  are  first  converted  to  single  preci- 
sion, and  then  the  single  precision  values  are  divided.  The 
result  will  be  returned  in  REGl.  For  example: 

LD  A, 2       ;A^INTEGER  NUMBER  TYPE 

LD  (40AFri),A  ;SET  NTF  TO  INTEGER 

LD  DE, 1000   jLOAD  DE  WITH  VALUE 

LD  HL.llO    5 LOAD  HL  WITH  VALUE 

CALL  2^90H     ;  DIVIDE  THEM  REG1=DE  /  HL 

Integer  Compare,  address  0A39H.  This  routine 
compares  the  value  in  register  pair  DE  to  the  value  in 
register  pair  HL.  The  result  is  returned  in  register  A  and 
the  flags  are  set  accordingly.  The  values  returned  in  reg- 
ister A  are: 

K  DE<HL  then  register  A  will  be  equal  to  1 
If  DE=HL  then  register  A  will  be  equal  to  0 
If  DE>HL  then  register  A  will  be  equal  to  -1 

LD  A, 2  ;A=INTEGER  NUMBER  TYPE 

LD  (40AFH),A  jSET  NTF  TO  INTEGER 

LD  HL,(FNUM)  ;LOAD  HL  WITH  VALUE 

LD  DE.CSNmi)  jLOAD  DE  WITH  VMiUE 

CALL  OA39H  ;  COMPARE  DE  WITH  HL 

SINGLE  PRECISION  ROUTINES 

All  of  the  single  precision  math  routines  require  one  value  to  be 
in  register  pairs  BC  and  DE.  The  other  single  precision  value  must 


always  be  in  REGl.  The  number  type  flag  must  be  set  for  single 

precision. 

Single  Precision  Addition,  address  0716H.  This 
routine  will  add  the  single  precision  value  in  register  pairs 
BC  and  DE  to  the  single  precision  value  in  REGl.  The 
single  precision  result  will  be  returned  in  REGl.  Example: 

^^  A, 4  ;A=SINGLS  PRECISION  NUMBER  TYPE 

LD  (^OAFH),A  ,'SET  NTP  TO  SINGLE  PRECISION 

ID  HL,NUM1  ;HL  POINTS  TO  THE  FIRST  VALUE 

CALL  09B1H  j  REG1=NUM1 

LD  HL,NUM2  ;HL  POINTS  TO  SECOND  VALUE 

CALL  09C2H  ;BCDE=NUM2 

CALL  0?16H  ?REGI=BCDE4-REG1 

Single  Precision  Subtraction,  address  0713H. 
This  routine  subtracts  the  single  precision  value  in  REGl 
from  the  single  precision  value  in  register  pairs  BC  and 
DE.  The  single  precision  result  will  be  returned  in  REGl, 
Example; 

LD  A, 4  ;A=S INGLE  PRECISION  NUBdBER  TYPE 

LD  (^OAFH),A  iSET  NTF  TO  SINGLE  PRECISION 

LD  HL,NUM1  ;HL  POINTS  TO  FIRST  VALUE 

CALL  09B1H  ;REG1=NUMI 

LD  HL,NUM2  ;HL  POINTS  TO  SECOND  VALUE 

CALL  09C2H  jBCDE-  ."ravi2 

CALL  0713H  ;  REGl^BC  DE-RSGl 

Single  Precision  Multiplication,  address  0847H. 
This  routine  will  multiply  the  single  precision  value  in 
register  pairs  BC  and  DE  by  the  single  precision  value  in 
REGl.  The  single  precision  result  vi^ill  be  returned  in 
REGl.  Example: 

LD        A,^       jA=SINGLE  PRECISION  NUMBER  TYPE 
LD        (^OAFH),A  ;SET   NTF  TO  SINGLE  PRECISION 
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LD  HL^NUm  ?HL  POINTS  TO  FIRST  VALUE 

CALL  09BIH  ;  REGl=mMl 

LD  HL,NUM2  |HL  POINTS  TO  SECOND  VALUE 

CALL  09C2H  |BCDE  =  NUM2 

CALL  08^7H  ?REG1=BCDE*REG1 

Single  Precision  Division,  address  08A2H.  This 
routine  will  divide  the  single  precision  value  in  register 
pairs  BC  and  DE  by  the  single  precision  value  in  REGl. 
The  single  precision  result  will  be  returned  in  REGl.  For 
example: 

jj^  A, if  jA=SINGLE  PRECISION  NUMBER  TYPE 

LD  (^OAFH),A  jSET  NTF  TO  SINGLE  PRECISION 

LD  HL,NUM1  jHL  POINTS   TO  FIRST  VALUE 

CALL  09BIH  ;REQ1=NUM1 

LD  HL,NUM2  jHL  POINTS   TO  SECOND  VALUE 

CALL  09C2H  ;  BC  DE  =  NUM2 

CALL  08A2H  t  REG1=BC  DE/REGI 

Single  Precision  Compare,  address  OAOCH.  This 
routine  will  compare  the  single  precision  value  in  register 
pairs  BC  and  DE  with  the  single  precision  value  in  REGl. 
The  result  will  be  returned  in  register  A  and  the  flags  will 
be  updated  accordingly.  The  values  returned  in  register  A 

are: 

If  BCDE<REG1  then  register  A  will  be  equal  to  1 
If  BCDE=REG1  then  register  A  will  be  equal  to  0 
If  BCDE>REG1  then  register  A  will  be  equal  to  -1 

LD  A, 4  |A=SINGLE  PRECISION  NUTOER  TYPE 

LD  (40AFH),A  ;SET  NTF  TO  SINGLE  PRECISION 

LD  HL.NUMl  ;HL  POINTS  TO  FIRST  VALUE 

CALL  09BIH  ; REG1=  NUMl 

LD  HL,NUM2  |HL  POINTS  TO  SECOND  VALUE 


CALL      09C2H     ;BCDE  =  NUM2 

CALL      OAOCH     jCOMPAKE  BCDE  Wl!PH  REGl 

DOUBLE  PRECISION  ROUTINES 

All  of  the  double  precision  math  routines  require  one  value  to 
be  in  REGl.  The  other  double  precision  value  must  always  be  in 
REG2.  Furthermore,  the  number  type  flag  must  be  set  for  double 
precision. 

Double  Precision  Addition,  address  0C77H.  This 

routine  will  add  the  double  precision  value  in  REGl  to  the 

double  precision  value  in  REG2.  The  double  precision 

result  will  be  returned  in  REGl.  Example: 

LD  A, 8  ;A=DOUBLE  PRECISION  NUMBER  TYPE 

LD  (^OAFH),A  ;SEf  NTF  TO  DOUBLE  PRECISION 

LD  DE,NU?a  ;DE   POINTS  TO  FIRST  VALUE 

LD  HL,^11DH  ;HL  POINTS  TO  REGl 

CALL  09D3H  ;REG1=FIRST  VALUE 

LD  DE,NUM2  ;DE  POINTS  TO  SECOND  VALUE 

LD  HL,^127H  ;HL  POINTS  TO  REG2 

CALL  09D3H  jREG2=SEC0ND  VALUE 

CALL  0C77H  ;REG1=REG1  REG2 

Double  Precision  Subtraction,  address  0C70H. 
This  routine  will  subtract  the  double  precision  value  in 
REG2  from  the  double  precision  value  in  REGl.  The  dou- 
ble precision  result  will  be  returned  in  REGl.  For  exam- 
ple: 

LD  A,  8  ;A=DOUBLE  PRECISION  NUmER  TYPE 

LD  (^OAFH),A  ;SET  NTF  TO  DOUBLE  PRECISION 

LD  DE,NUM1  ;DE  POINTS   TO  FIRST  VALUE 

LD  HL,^11DH  ;HL  POINTS   TO  REGl 

CALL  09D3H  jREGl=FIRST  VALUE 

LD  DE,NUM2  ;DE  POINTS   TO  SECOND  VALUE 


LD  HL,^127H      jHL  POINTS  TO  REG2 

CALL  09D3H  |REG2=SEC0ND  VALUE 

CALL  0C70H  ;REG1=REG1+REG2 

Double  Precision  Multiplication,  address 
ODAIH.  This  routine  will  multiply  the  double  precision 
value  in  REGl  by  the  double  precision  value  in  REG2.  The 
double  precision  result  will  be  returned  in  REGl.  Exam- 
ple: 

I^p  A, 8  ;A=DOUBLE  PRECISION  NUMBER  TYPE 

LD  (i|-OAFH),A  I  SET  NTF  TO  DOUBLE  PRECISION 

LD  DE.NUMl  5DE  POINTS  TO  FIRST  VALUE 

LD  HL^iMlDH  ?HL  POINTS  TO  REGl 

CALL  09D3H  jREGl^FIRST  VALUE 

LD  DE,NUM2  5DE  POINTS   TO  SECOND  VALUE 

LD  HL,^127H  5HL  POINTS   TO  REG2 

CALL  09D3H  |REG2=SEC0ND  VALUE 

CALL  ODAIH  | REG1=REG1*REG2 

Double  Precision  Division,  address  0DE5H.  This 
routine  will  divide  the  double  precision  value  in  REGl  by 
the  double  precision  value  in  REG2.  The  double  precision 
result  will  be  returned  in  REGl.  Example: 


LD 

LD 

LD 

LD 

CALL 

LD 

LD 

CALL 

CALL 


A, 8  jA=DOUBLE  PRECISION  NUBffiER  TYPE 

(^OAFH),A  jSET  NTF  TO  DOUBLE  PRECISION 

DE.NUMl  ;DE  POINTS  TO  FIRST  VALUE 

HL.^llDH  5HL  POINTS  TO  REGl 

09D3H  jREGl^FIRST  VALUE 

DE»NUM2  5 BE  POINTS  TO  SECOND  VALUE 

HLpJ^127H  jHL  POINTS  TO  REG2 

09D3H  sREG2=SEC0ND  VALUE 

0DE5H  ;  REG1=REG1/REG2 
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Double  Precision  Compare,  address  0A4FH  and 
0A78H.  These  two  routines  will  perform  a  double  preci- 
sion compare.  The  routine  at  0A4FH  will  compare  the 
double  precision  value  in  REG2  with  the  double  precision 
value  in  REGl.  The  routine  at  0A78H  will  compare  the 
double  precision  value  in  REGl  with  the  double  precision 
value  in  REG2.  Both  will  return  the  result  in  register  A  and 
update  the  flags  accordingly.  The  values  returned  in  reg- 
ister A  are: 


0A4F 
REG2<REG1    A=l 
REG2=REG1    A=0 
REG2>REG1    A=-l 


0A78 
REG1<REG2    A=l 
REG1=REG2    A=0 
REG1>REG2    A=»l 


LD 

LD 

LD 

LD 

CALL 

LD 

LD 

CALL 

CALL 


A, 8  ;A=DOUBL£  PRECISION  NUMBER   TYPE 

(40AFH),A   jSET  NfF  TO  DOUBLE  PRECISION 


DE^NUMl 

HL,4llDH 

09D3H 

DS,NUM2 

HL,^127H 

09D3H 

OA^FH 


DE  POINTS  TO  FIRST  VALUE 
HL  POINTS   TO  REGl 
REGI=FIRST  VALUE 
DE  POINTS   TO  SECOND  VALUE 
EL  POINTS   TO  REG2 
;REa2=SEC0ND  VALUE 
COMPARE  REG2  WITH  REGl 


MATH  ROUTINES 

All  of  the  following  math  routines  expect  a  value  in  REGl.  The 
number  type  flag  should  properly  reflect  the  number  type  in  REGl. 

Absolute  Value  ABS(REGl),  address  0977H.  This 
routine  will  figure  the  absolute  value  for  the  value  in 
REGl.  The  result  will  be  returned  in  REGl. 

Arc  tangent  ATN(REGl),  address  15BDH.  This 
routine  will  figure  the  arc  tangent  for  the  value  in  REGl. 
The  result  will  be  returned  in  REGl. 

Convert  to  Double  Precision  CDBL(REGl),  ad- 
dress OADBH.  This  routine  will  convert  the  value  in  REGl 
to  a  double  precision  value.  The  double  precision  result 
will  be  returned  in  REGl. 


Convert  to  Integer  CINT(REGl),  address  0A7FH. 
This  routine  will  convert  the  value  in  REGl  to  an  integer 
value.  The  integer  result  will  be  returned  in  REGl. 

Cosine  COS(REGl),  address  1541H.  This  routine 
will  figure  the  cosine  for  the  value  in  REGl.  The  result  will 
be  returned  in  REGl. 

Convert  to  Single  Precision  CSNG(REGl),  ad- 
dress OABIH.  This  routine  will  convert  the  value  in  REGl 
to  a  single  precision  value.  The  single  precision  result  will 
be  returned  in  REGL 

EXP(REGl),  address  1439H.  This  routine  will  fig- 
ure the  natural  exponential  of  the  value  in  REGl.  The 
result  will  be  returned  in  REGl. 

StackfREGl,  address  13F2H.  This  routine  will 
raise  the  single  precision  value  on  the  stack  to  the  single 
precision  power  in  REGl.  The  single  precision  result  will 
be  returned  in  REGl. 

FIX(REGl),  address  0B26H.  This  routine  will  trun- 
cate the  fractional  part  of  the  value  in  REGl.  The  result 
will  be  returned  in  REGl. 

INT(REGl),  address  0B37H.  This  routine  will  figure 
the  integer  portion  of  the  value  in  REGl.  The  result  will  be 
returned  in  REGL 

Invert  Sign:  Integer,  address  0C51H.  This  routine 
will  invert  the  sign  of  an  integer  value  in  REGL  The 
integer  result  will  be  returned  in  REGl. 

Invert  Sign:  Single  Precision  or  Double  Preci- 
sion, address  0982H.  This  routine  will  invert  the  sign  of  a 
single  precision  or  double  precision  value  in  REGl.  The 
single  precision  or  double  precision  result  will  be  returned 
in  REGL 

LOG(REGl),  address  0809H.  This  routine  will  fig- 
ure the  natural  log  for  the  value  in  REGL  The  result  will  be 
returned  in  REGl. 

RANDOM,  address  01D3H.  This  routine  will  reseed 
the  random  number  generator. 

RND(REGl),  address  14C9H.  This  routine  will  gen- 
erate a  random  number  for  the  value  in  REGl.  The  result 
will  be  returned  in  REGL 

SIN(REGl),  address  1547H.  This  routine  will  figure 
the  sine  for  the  value  in  REGl.  The  result  will  be  returned 
in  REGL 
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SQR(REGl),  address  13E7H.  This  routine  will  fig- 
ure the  square  root  for  the  value  in  REGl.  The  result  will 
be  returned  in  REGl. 

TAN(REGl),  address  15A8H.  This  routine  will  fig- 
ure the  tangent  for  the  value  in  REGl.  The  result  will  be 
returned  in  REGL 

KEYBOARD  INPUT  ROUTINES 

The  following  routines  will  make  inputting  data  from  the 
keyboard  much  easier. 

Scan  Keyboard,  address  002BH.  This  routine  will 
scan  the  keyboard.  If  a  key  isn't  pressed,  register  A  will 
return  with  a  value  of  zero  and  the  flags  will  be  updated 
accordingly.  If  a  key  is  pressed,  register  A  will  return  with 
the  ASCII  value  for  the  key  that  was  pressed.  Example: 


;WAIT  TILL  KEY 

PRESSED 

PUSH 

DE 

SAVE  DE 

PUSH 

lY 

SAVE  lY 

LOOP      CAT.T, 

002BH    1 

SCAN  KEYBOARD 

JR 

Z,LOOP   ) 

IF  NO  KEY  PRESSED  LOOP 

POP 

lY 

GET  lY 

POP 

DE 

;GET  DE 

Wait  Till  Key  Pressed,  address  0049H.  This  rou- 
tine will  continually  scan  the  keyboard  until  a  key  is 
pressed.  The  ASCII  value  for  the  appropriate  key  will  be 
returned  in  register  A. 

Get  a  Line  of  Input  from  the  Keyboard,  address 
0361H.  This  routine  will  accept  keyboard  input  and  place 
each  character  in  a  buffer.  Input  is  terminated  by  pressing 
either  the  ENTER  key  or  the  BREAK  key.  On  return, 
register  pair  HL  will  contain  the  address  of  the  first 
character  input  minus  one.  If  the  BREAK  key  is  pressed, 
the  Carry  flag  will  be  set. 

Get  a  Line  of  Input  from  the  Keyboard,  address 
1BB3H.  This  routine  functions  the  same  as  the  routine  at 
0361H  except  that  a  ?  will  be  displayed  before  input  begins. 


11 


OUTPUT  ROUTINES 

The  following  routines  allow  for  output  to  the  video  display,  to 
the  printer,  and  to  the  cassette.  The  current  output  device  is 
determined  by  the  value  stored  at  memory  location  409CH.  The 
correct  values  are: 

1        Printer 
0       Video 
-1       Cassette 

The  current  output  device  will  normally  be  set  for  the  video  display. 

Display  the  Character  in  Register  A,  address 
0033H.  This  routine  will  display  the  character  in  register  A 
at  the  current  cursor  location. 

Clear  the  Screen,  address  01C9H.  This  routine  will 
clear  the  screen  and  home  the  cursor. 

Display  the  Character  in  Register  A,  address 
032AH.  This  routine  will  display  the  character  in  register 
A  at  the  current  cursor  location.  Furthermore,  the  current 
cursor  location  will  be  updated. 

Display  or  Print  a  String,  address  28A7H.  This 
routine  will  send  a  string  of  text  to  the  current  output 
device.  On  entry  to  this  routine,  register  pair  HL  should 
point  to  the  start  of  the  string  to  be  sent.  The  string  should 
be  terminated  witii  either  a  zero  (OOH)  or  a  carriage  return 
(ODH).  The  current  output  device  flag  at  409CH  must  be 
set  to  0  for  video  or  1  for  printer. 

Display  or  Print  a  String,  address  2B75H.  This 
routine  is  the  same  as  the  routine  at  28A7H  except  that  the 
string  can  only  be  terminated  by  a  zero  (OOH).  The  current 
output  device  flag  at  409CH  must  be  set  to  0  for  video  or  1 
for  printer. 

Print  the  Character  in  Register  C,  address 
003BH.  This  routine  will  print  the  character  in  register  C 
on  the  printer. 

CASSEHE  INPUT/OUTPUT  ROUTINES 

The  following  routines  allow  for  input  and  output  on  the  cas- 
sette recorder.  The  current  output  device  flag  at  409CH  must  be  set 
to-1. 

Turn  on  the  Cassette  Motor,  address  0212H.  This 
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routine  will  turn  on  the  motor  for  the  cassette  drive 
specified  by  the  value  in  register  A. 

Write  Cassette  Leader,  address  0284H.  This  rou- 
tine will  write  a  leader  on  the  cassette  recorder. 

Read  Cassette  Leader,  address  0296H.  This  rou- 
tine will  read  a  leader  on  the  cassette  recorder. 

Read  a  Byte,  address  0235H.  This  routine  will  read  a 
byte  on  the  cassette  recorder  and  place  it  in  register  A. 

Write  a  Byte,  address  0264H.  This  routine  will 
write  the  byte  in  register  A  on  the  cassette  recorder. 

DATA  MOVEMENT  ROUTINES 

The  following  routines  are  used  to  move  data  around  in  mem- 
ory. 

Move  REGl  to  Stack,  address  09A4H.  This  routine 
will  move  the  value  in  REGl  to  the  stack.  The  number  of 
bytes  moved  is  determined  by  the  current  value  of  the 
number  type  flag.  This  routine  can  only  be  used  for  integer 
and  single  precision  values. 

Move  (HL)  to  REGl,  address  09B1H.  This  routine 
will  move  the  single  precision  value  pointed  to  by  register 
pair  HL  to  REGl.  The  number  type  flag  should  be  set  for 
single  precision. 

Move  BCDE  to  REGl,  address  09B4H.  This 
routine  will  move  the  single  precision  value  in  register 
pairs  BC  and  DE  to  REGl.  The  number  type  flag  should  be 
set  for  single  precision. 

Move  REGl  to  BCDE,  address  09BFH.  This 
routine  will  move  the  single  precision  value  in  REGl  to 
register  pairs  BC  and  DE.  The  number  type  flag  should  be 
set  for  single  precision. 

Move  (HL)  to  BCDE,  address  09C2H.  This  routine 
will  move  the  single  precision  value  pointed  to  by  register 
pair  HL  to  register  pairs  BC  and  DE.  The  number  type  flag 
should  be  set  for  single  precision. 

Move  REGl  to  (HL),  address  09CBH.  This  routine 
will  move  the  single  precision  value  in  REGl  to  the  loca- 
tion pointed  to  by  register  pair  HL.  The  number  type  flag 
should  be  set  for  single  precision. 

Move  (DE)  to  (HL),  address  09CEH.  This  routine 
will  move  the  single  precision  value  pointed  to  by  register 
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pair  DE  to  the  location  pointed  to  by  register  pair  HL.  The 
number  type  flag  should  be  set  for  single  precision. 

Move  (HL)  to  (DE),  address  09D2H.  This  routine 
will  move  the  value  pointed  to  by  register  pair  HL  to  the 
location  pointed  to  by  register  pair  DE.  The  number  of 
bytes  moved  is  determined  by  the  value  of  the  number  type 

flag. 

Move  (DE)  to  (HL),  address  09D3H.  This  routine 
will  move  the  value  pointed  to  by  register  pair  DE  to  the 
location  pointed  to  by  register  pair  HL.  The  number  of 
bytes  moved  is  determined  by  the  value  of  the  number  type 
flag. 

Move  (DE)  to  (HL),  address  09D6H.  This  routine 
will  move  the  area  of  memory  pointed  to  by  register  pair 
DE  to  the  location  pointed  by  register  pair  H.  The  number 
of  bytes  moved  is  determined  by  the  value  in  register  A. 

Move  (DE)  to  (HL),  address  09D7H.  This  routine 
will  move  the  area  of  memory  pointed  to  by  register  pair 
DE  to  the  location  pointed  to  by  register  pair  HL.  The 
number  of  bytes  moved  is  determined  by  the  value  in 
register  B. 

Move  REG2  to  REGl,  address  09F4H.  This  routine 
moves  the  value  in  REG2  to  REGL 

Move  REGl  to  REG2,  address  09FCH.  This  rou- 
tine moves  the  value  in  REGl  to  REG2. 

ASCI!  CONVERSION  ROUTINES 

The  following  routines  allow  for  ASCII  conversions. 

ASCH  to  Binary,  address  0E6CH.  This  routine  will 
convert  the  ASCII  string  pointed  to  by  register  pair  HL  to 
binary.  The  result  will  be  returned  in  REGl,  and  the 
number  type  flag  will  be  updated  accordingly.  The  routine 
will  convert  the  ASCII  string  to  the  least  amount  of  preci- 
sion required. 

ASCn  to  Double  Precision,  address  0E65H.  This 
routine  will  convert  the  ASCII  string  pointed  to  by  register 
pair  HL  to  a  double  precision  value.  The  double  precision 
result  will  be  returned  in  REGl,  and  the  number  type  flag 
will  be  updated  accordingly. 

ASCn  to  Integer,  address  1E5AH.  This  routine  will 
convert  the  ASCII  string  pointed  to  by  register  pair  HL  to 
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an  integer  value.  The  integer  result  will  be  returned  in 
register  pair  DE. 

Binary  to  ASCII,  address  OFBDH.  This  routine  will 
convert  the  value  in  REGl  to  an  ASCII  string.  On  return, 
register  pair  HL  will  point  to  the  first  character  of  the 
ASCII  string. 

RESTART  ROUTINES 

The  following  routines  are  all  RSTs  and  can  be  quite  useful 
when  trying  to  interface  a  routine  with  Level  II  BASIC. 

Check  Syntax,  RST  0008H.  This  routine  will  com- 
pare the  byte  pointed  to  by  register  pair  HL  with  the  byte 
following  the  RST  0008H  call.  If  the  two  bytes  match, 
register  pair  HL  will  be  incremented  and  register  A  will 
contain  the  byte  pointed  to  by  register  pair  HL.  Execution 
will  resume  at  the  location  following  the  byte  which  was 
compared. 

Get  Next  Character,  RST  OOIOH.  This  routine  will 
increment  register  pair  HL  and  place  the  byte  pointed  to  by 
register  pair  HL  in  register  A.  If  the  character  in  register  A 
is  alphabetic,  the  Carry  flag  will  be  cleared.  If  the  character 
in  register  A  is  numeric,  the  Carry  flag  will  be  set.  If  the 
character  in  register  A  is  a  control  code  or  a  space,  the 
routine  will  start  over. 

Compare  DE  to  HL,  RST  0018H.  This  routine  will 
perform  an  unsigned  compare  of  register  pairs  DE  and  HL. 
On  return,  the  flags  will  be  set  as  follows: 

HL<DE  Carry  Set 

HL>DE  Carry  Clear 

HL=DE  Zero  Set 

HLoDE      Zero  Clear 


A  SAMPLE  PROGRAM 

While  there  are  many  more  useful  routines  in  Level  II  BASIC, 
the  routines  presented  in  this  chapter  are  the  ones  that  will  be  most 
often  put  to  use  in  a  variety  of  program  applications.  More 
specialized  routines  are  presented  in  future  chapters  when  neces- 
sary. 

The  program  presented  in  Listing  1-1  is  a  simple  four  function 
calculator.  It  will  perform  addition,  subtraction,  multiplication,  and 
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division.  Furthermore,  it  will  perform  all  of  these  operations  in 
integer,  single  precision,  and  double  precision  number  representa- 
tions. The  program  makes  use  of  many  of  the  ROM  routines  pre- 
sented in  this  chapter  and  will  help  you  understand  these  powerful 
routines. 

Listing  1-1 


4300 

00100 

ORG 

4300H 

4300  CDC901 

00110 

START 

CALL 

01C9H 

4303  216144 

00120 

LD 

HL,M1 

4306  CD752B 

00130 

CALL 

2B75H 

4309  218E44 

00140 

LOOPi 

LD 

HL,ri2 

430C  CD752B 

0O15O 

CALL 

2B75H 

430F  CD4900 

00160 

CALL 

004  9H 

4312  214744 

00170 

LD 

HL,CTAB 

4315  0603 

00180 

LD 

B,3 

4317  BE 

00190 

L00R2 

CP 

<HL) 

4318  CA2243 

00200 

JP 

Z , MATCH 

43iB  23 

00210 

INC 

HL 

431C  23 

00220 

INC 

HL 

431D  23 

00230 

INC 

HL 

43 IE  i0F7 

00240 

DJNZ 

L0aP2 

4320  i8E7 

00250 

JR 

LOQPi 

4322  23 

00260 

MATCH 

INC 

HL 

4323  5E 

00270 

LD 

E, <HL) 

4324  23 

00280 

INC 

HL 

4325  56 

00290 

LD 

D, <HL) 

4326  EB 

00300 

EX 

DE,HL 

4327  E9 

00310 

JP 

(HL) 

4328  CD2D44 

00320 

INT 

CALL 

INPUIT 

432B  CD7F0A 

00330 

CALL 

0A7FH 

432E  2A2141 

00340 

LD 

HL, <4121H) 

4331  225144 

00350 

LD 

(NUM1),HL 

4334  CD2D44 

00360 

CALL 

INPUT 

4337  CD7F0A 

00370 

CALL 

0A7FH 

433A  2A2141 

00380 

LD 

HL, <4121H) 

433D  225944 

00390 

LD 

<NUM2),HL 

4340  CD3A44 

00400 

CALL 

FUN 

4343  2A5144 

00410 

LD 

HL, (NUMl) 

4346  EB 

00420 

EX 

DE,HL 

4347  2AS944 

00430 

LD 

HL, <NUM2) 

434A  3A5044 

00440 

LD 

A,  (FUNSAV) 

434D  FE2B 

00450 

CP 

'  +' 

434F  2aOE 

00460 

JR 

Z,INTA 

4351  FE2D 

00470 

CP 

'-' 

43S3  280F 

00480 

JR 

Z,XNTS 

4355  FE2A 

00490 

CP 

"  ^' 

4357  2810 

00500 

JR 

Zf INTM 

4359  FE2F 

00510 

CP 

'  /' 

435B  2811 

00520 

JR 

Z, INTD 

435D  18AA 

00530 

JR 

LOOPI 

435F  CDD20B 

00540 

INTA 

CALL 

0BD2H 

4362  laOD 

00550 

JR 

DISP 

4364  CDC70B 

00560 

INTS 

CALL 

0BC7H 

4367  1808 

00570 

JR 

DISP 

4369  CDF20B 

00580 

INTM 

CALL 

0BF2H 

436C  1803 

00590 

JR 

DISP 

436E  CD9024 

006OO 

INTD 

CALL 

2490H 

4371  CDBDOF 

00610 

DISP 

CALL 

OFBDH 

4374  CD752B 

00620 

CALL 

2B75H 

4377  3E0D 

00630 

LD 

A,ODH 

4379  CD2A03 

00640 

CALL 

032AH 

16 


437C 

188B 

00650 

JR 

LOOPl 

437E 

CD2D44 

00660 

SIN 

CALL 

I NPUT 

4381 

CDBiOA 

00670 

CALL 

OABIH 

4384 

215144 

00680 

LD 

HL,NUni 

4387 

CDCB09 

00690 

CALL 

09CBH 

438A 

CD2D44 

00700 

CALL 

INPUT 

4380 

CDBIOA 

00710 

CALL 

OAB 1 H 

4390 

215944 

00720 

LD 

HL , NUM2 

4393 

CDCB09 

00730 

CALL 

09CBH 

4396 

CD3A44 

00740 

CALL 

FUN 

4399 

215944 

00750 

LD 

HL,NUH2 

439C 

CDB109 

00760 

CALL 

09B1H 

439F 

215144 

00770 

LD 

HLjNUMl 

43A2 

CDC209 

00780 

CALL 

09C2H 

43A5 

3A5044 

00790 

LD 

A, (FUNSAV) 

43AS 

FE2B 

00800 

CP 

'  -+-•* 

43AA 

280F 

00810 

JR 

Z,SINA 

43AC 

FE2D 

00820 

CP 

^  ^' 

43AE 

2810 

00830 

JR 

Z,SINS 

43B0 

FE2A 

00840 

CP 

'  *' 

43B2 

2811 

00850 

JR 

2, SINM 

43B4 

FE2F 

00860 

CP 

V 

43B6 

2812 

00870 

JR 

Z,SIND 

43B8 

C30943 

00880 

JP 

LOQPl 

43BB 

CD 1607 

00890 

SINA 

CALL 

0716H 

43BE 

iSBl 

00900 

JR 

DISP 

43C0 

CD 1307 

00910 

SINS 

CALL 

0713H 

43C3 

18AC 

00920 

JR 

DISP 

43C5 

CD4708 

00930 

SINM 

CALL 

084  7  H 

43Ca 

1SA7 

00940 

JR 

DISP 

43CA 

CDA208 

00950 

SIND 

CALL 

0aA2H 

43CD 

1SA2 

00960 

JR 

DISP 

43CF 

CD2D44 

00970 

DQU 

CALL 

INPUT 

43D2 

CDDBOA 

00980 

CALL 

OADBH 

43D5 

211D4i 

00990 

LD 

HL,411DH 

43DB 

115144 

01000 

LD 

DE,NUni 

43DB 

CDD209 

01010 

CALL 

09D2H 

43DE 

CD2D44 

01020 

CALL 

INPUT 

43E1 

CDDBOA 

01030 

CALL 

OADBH 

43E4 

211D41 

01040 

LD 

HL,411DH 

43E7 

115944 

01050 

LD 

DE,NUM2 

43EA 

CDD209 

01060 

CALL 

09D2H 

43ED 

CD3A44 

01070 

CALL 

FUN 

43F0 

215144 

01080 

LD 

HL,NUM1 

43F3 

111D41 

01090 

LD 

DE,411DH 

43F6 

CDD209 

01100 

CALL 

09D2H 

43F9 

215944 

OHIO 

LD 

HL,NUM2 

43FC 

112741 

01120 

LD 

DE,4127H 

43FF 

CDD209 

01130 

CALL 

09D2H 

4402 

3A5044 

01140 

LD 

A, < FUNSAV) 

4405 

FE2B 

01150 

CP 

'  ■+■" 

4407 

2S0F 

01160 

JR 

Z , DOUA 

4409 

FE2D 

01170 

CP 

^„> 

^4  OB 

2811 

0 1 1 80 

JR 

2, DOUS 

44  OD 

FE2A 

01190 

CP 

'*^ 

44  OF 

2812 

01200 

JR 

2 , DOUM 

4411 

FE2F 

01210 

CP 

'  /' 

4413 

2813 

01220 

JR 

2 , DOUD 

4415 

C30943 

01230 

JP 

LOOPl 

4418 

CD770C 

01240 

DOUA 

CALL 

0C77H 

44iB 

C37143 

01250 

DISl 

JP 

DISP 

441E 

CD700C 

01260 

DOUS 

CALL 

OC70H 

4421 

18F8 

01270 

JR 

DISl 

4423 

CDAIOD 

01280 

DOUM 

CALL 

ODA 1 H 

4426 

18F3 

01290 

JR 

DISl 

4428 

CDE50D 

01300 

DOUD 

CALL 

0DE5H 

442B 

18EE 

01310 

JR 

DISl 

442D 

21D244 

01320 

INPUT 

LD 

HL,M3 

17 


4430  CD752B 

01330 

CALL 

2B75H 

4433  CDB31B 

01340 

CALL 

iBB3H 

4436  D7 

01350 

RSI 

001  OH 

4437  C36C0E 

01360 

JP 

0E6CH 

443A  21DE44 

01370  FUN 

LD 

HL,H4 

4430  CD752B 

01380 

CALL 

2B75H 

4440  CD4900 

01390 

CALL 

0049H 

4443  325044 

01400 

LD 

(FUNSAV),A 

4  ".46  C9 

01410 

RET 

4447  49 

01420  CTAB 

DEFB 

*  1' 

4448  2843 

01430 

DEFW 

INT 

4 44 A  S3 

01440 

DEFB 

'S' 

444B  7E43 

01450 

DEFW 

SIN 

444D  44 

01460 

DEFB 

'D' 

444E  CF43 

01470 

DEFW 

DOU 

4450  00 

01480  FUNSAV 

DEFB 

0 

0008 

01490  Nuni 

DEFS 

8 

0008 

01500  NUM2 

DEFS 

8 

4461  46 

01510  Ml 

DEFtI 

'FOUR  FUNCTION  CALCULATOR 

4462  4F 

4463  55 

4464  52 

4465  20 

4466  46 

4467  55 

4468  4E 

4469  43 

446A  54 

446B  49 

446C  4F 

446D  4E 

446E  20 

446F  43 

4470  41 

4471  4C 

4472  43 

4473  55 

4474  4C 

4475  41 

4476  54 

4477  4F 

447S  52 

4479  OD 

01520 

DEFB 

13 

447A  42 

01530 

DEFM 

^BY  MARK  D.  GOODWIN' 

447B  59 

447C  20 

447D  4D 

447E  41 

447F  52 

4480  4B 

4481  20 

4482  44 

4483  2E 

4484  20 

4485  47 

4486  4F 

4487  4F 

4438  44 

4439  57 

448A  49 

448B  4E 

448C  OD 

01540 

DEFB 

13 

44BD  00 

01550 

DEFB 

0 

44aE  50 

01560  M2 

DEFH 

'PRESS:' 

448F  52 

4490  45 

4491  53 
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4492 

53 

4493 

3A 

4494 

CD 

4495 

49 

4496 

20 

4497 

46 

4498 

4F 

4499 

52 

449A 

20 

449B 

49 

449C 

4E 

449D 

54 

449E 

45 

449F 

47 

44A0 

45 

44A1 

52 

44A2 

OD 

44A3 

53 

44A4 

20 

44A5 

46 

44A6 

4F 

44A7 

52 

44AB 

20 

44A9 

53 

44AA 

49 

44AB 

4E 

44AC 

47 

44AD 

4C 

44AE 

45 

44AF 

20 

44  BO 

50 

44Bi 

52 

44B2 

45 

44B3 

43 

44B4 

49 

44B5 

53 

44B6 

49 

44B7 

4F 

44B8 

4E 

44B9 

OD 

44BA 

44 

44BB 

20 

44BC 

46 

44BD 

4F 

44BE 

52 

44BF 

20 

44C0 

44 

44C1 

4F 

44C2 

55 

44C3 

42 

44C4 

4C 

44C5 

45 

44C6 

20 

44C7 

50 

44CS 

52 

44C9 

45 

44CA 

43 

44CB 

49 

44CC 

53 

44CD 

49 

44CE 

4F 

44CF 

4E 

4  4  DO 

OD 

44D1 

00 

44D2 

45 

44D3 

4E 

44D4 

54 

44D5 

45 

01570 
01 580 


DEFB 
DEFM 


13 

'I  FOR  INTEGER' 


01590 
01600 


DEFB 
DEFM 


13 

'S  FOR  SINGLE  PRECISION' 


01610 
01620 


DEFB 
DEFM 


13 

'D  FOR  DOUBLE  PRECISION' 


01630 
01640 
01650  M3 


DEFB 
DEFB 
DEFM 


'ENTER  VALUE' 
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44D6 

52 

44D7 

20 

44D8 

56 

4409 

41 

44DA 

4C 

44DB 

55 

44DC 

45 

44  DD 

00 

44DE 

50 

44DF 

52 

44E0 

45 

44E1 

53 

44^2 

53 

44E3 

3A 

44E4 

OD 

44ES 

2B 

44E6 

20 

44E7 

46 

44ES 

4F 

44E9 

52 

44EA 

20 

44EB 

41 

44EC 

44 

44ED 

44 

44EE 

49 

44EF 

54 

44F0 

49 

44F1 

4F 

44F2 

4E 

44F3 

OD 

44F4 

20 

44F5 

20 

44F6 

46 

44F7 

4F 

44F8 

52 

44P9 

20 

44FA 

53 

44FB 

55 

44FC 

42 

44FD 

54 

44FE 

52 

44FF 

41 

4500 

43 

4501 

54 

4502 

49 

4503 

4F 

4504 

4E 

4505 

OD 

4506 

2A 

4507 

20 

4508 

46 

450<9 

4F 

450A 

52 

450B 

20 

450C 

40 

4  500 

55 

450E 

4C 

450F 

54 

4510 

49 

4511 

50 

4512 

4C 

4513 

49 

4514 

43 

4515 

41 

4516 

54 

4517 

49 

4518 

4F 

4519 

4E 

01660 
01670  n4 


01680 
01690 


DEFB 
DEFM 


DEFB 
DEFH 


0 

'PRESS: * 


FOR  ADDITION' 


01700 
01710 


DEFB 
DEFti 


'-    FOR  SUBTRACTION' 


01720 
01730 


DEFB 
DEFM 


13 

'$    FOR  MULTIPLICATION' 


20 


451A 

OD 

01740 

DEFB 

13 

451B 

2F 

01750 

DEFH 

V  FOR  DIVISION 

45iC 

20 

451D 

46 

451E 

4F 

451F 

52 

4520 

20 

4521 

44 

4522 

49 

4523 

56 

4524 

49 

4525 

53 

4526 

49 

4527 

4F 

4528 

4E 

4529 

OD 

01760 

DEFB 

13 

452A 

00 

01770 

DEFB 

0 

4300 

01780 

END 

START 

00000  TOTAL  ERRORS 

M4 

44DE 

M3 

4402 

DISi 

441B 

DOU0 

4428 

DOUM 

4423 

DOUS 

44  IE 

DOUA 

4418 

DOU 

43CF 

SIND 

43CA 

SINN 

43C5 

SINS 

43C0 

SINA 

43BB 

SIN 

437E 

DISP 

4371 

INTO 

436E 

I  NTH 

4369 

I  NTS 

4364 

INTA 

435F 

FUNSAV 

4450 

FUN 

443A 

NUM2 

4459 

NUMl 

4451 

INPUT 

442D 

INT 

4328 

NATCH 

4322 

L00P2 

4317 

CTAB 

4447 

M2 

448E 

LOOPl 

4309 

HI 

4461 

START 

4300 

Listing  1-1  Comments 

100  -  Set  the  starting  address  for  the  program. 

110  -  Go  clear  the  screen, 

120  -  Load  register  pair  HL  with  the  starting  address  for  the 

message  to  be  displayed. 
130  -  Go  display  the  message. 
140  -  Load  register  pair  HL  with  the  starting  address  for  the 

message  to  be  displayed. 
150  -  Go  display  the  message. 
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160  -  Go  get  a  character  from  the  keyboard  and  return  with  it  in 
register  A. 

170  -  Load  register  pair  HL  with  the  starting  address  for  the 
command  jump  table. 

180  -  Load  register  B  with  the  number  of  commands  in  the  com- 
mand jump  table. 

190  -  Check  to  see  if  the  character  at  the  location  of  the  command 
table  jump  pointer  in  register  pair  HL  is  the  same  as  the 
character  in  register  A. 

200  -  Jump  if  the  character  at  the  location  of  the  command  jump 
table  pointer  in  register  pair  HL  is  the  same  as  the  character 

in  register  A. 
210  -  Bump  the  command  jump  table  pointer  in  register  pair  HL. 
220  -  Bump  the  command  jump  table  pointer  in  register  pair  HL. 
230  -  Bump  the  command  jump  table  pointer  in  register  pair  HL, 
240  -  Loop  till  all  of  the  commands  in  the  command  jump  table 

have  been  examined. 
250  -  Jump  if  the  character  in  register  A  doesn't  match  any  of  the 

commands  in  the  command  jump  table. 
260  -  Bump  the  command  jump  table  pointer  in  register  pair  HL. 
270  -  Load  register  E  with  the  LSB  of  the  command's  starting 

address  at  the  location  of  the  command  jump  table  pointer  in 

register  pair  HL. 
280  -  Bump  the  command  jump  table  pointer  in  register  pair  HL. 
290  -  Load  register  D  with  the  MSB  of  the  command's  starting 

address  at  the  location  of  the  command  jump  table  pointer  in 

register  pair  HL. 
300  -  Load  register  pair  HL  with  the  command's  starting  address 

in  register  pair  DE. 
310  -  Jump  to  tlie  command's  starting  address  in  register  pair  HL. 

320  -  Go  get  the  first  value. 

330  -  Convert  the  first  value  in  REGl  to  an  integer. 

340  -  Load  register  pair  HL  with  the  integer  value  in  REGl. 

350  -  Save  the  integer  value  in  register  pair  HL. 

360  -  Go  get  tlie  second  value. 

370  -  Convert  the  second  value  in  REGl  to  an  integer. 

380  -  Load  register  pair  HL  with  the  integer  value  in  REGl. 

390  -  Save  the  integer  value  in  register  pair  HL. 

400  -  Go  get  the  function  to  be  performed. 

410  -  Load  register  pair  HL  with  the  first  integer  value. 

420  -  Load  register  pair  DE  with  the  first  integer  value  in  register 

pair  HL. 
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430  -  Load  register  pair  HL  with  the  second  integer  value. 

440  -  Load  register  A  with  the  function  to  be  performed. 

450  -  Check  to  see  if  the  function  to  be  performed  in  register  A  is 
addition. 

460  -  Jump  if  the  function  to  be  performed  in  register  A  is  addi- 
tion. 

470  -  Check  to  see  if  the  function  to  be  performed  in  register  A  is 
subtraction. 

480  -  Jump  if  the  function  to  be  performed  in  register  A  is  sub- 
traction. 

490  -  Check  to  see  if  the  function  to  be  performed  in  register  A  is 
multiplication. 

500  -  Jump  if  the  function  to  be  performed  in  register  A  is  multi- 
plication. 

510  -  Check  to  see  if  the  function  to  be  performed  in  register  A  is 

division. 
520  -  Jump  if  the  function  to  be  performed  in  register  A  is  divi- 
sion. 
530  -  Jump  if  the  function  to  be  performed  in  register  A  isn't  any  of 

the  four  allowable  functions. 
540  -  Go  add  the  integer  value  in  register  pair  HL  to  the  integer 

value  in  register  pair  DE  and  return  with  the  result  in 

REGl. 
550  -  Jump. 
560  -  Go  subtract  the  integer  value  in  register  pair  HL  from  the 

integer  value  in  register  pair  DE  and  return  with  the  result 

in  REGL 
570  -  Jump. 
580  -  Go  multiply  the  integer  value  in  register  pair  DE  by  the 

integer  value  in  register  pair  HL  and  return  with  the  result 

in  REGl. 
590  -  Jump. 
600  -  Go  divide  the  integer  value  in  register  pair  DE  by  the 

integer  value  in  register  pair  HL  and  return  with  the  result 

in  REGL 
610  -  Go  convert  the  result  in  REGl  to  an  ASCII  string. 
620  -  Go  display  the  ASCII  string. 
630  -  Load  register  A  with  a  carriage  return  character. 
640  -  Go  display  the  carriage  return. 
650  -  Jump. 

660  -  Go  get  the  first  value, 
670  -  Convert  the  first  value  in  REGl  to  a  single  precision  value. 
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680  -  Load  register  pair  HL  with  the  storage  address  for  the 

single  precision  value  in  REGl. 
690  -  Go  move  the  single  precision  value  in  REGl. 
700  -  Go  get  the  second  value. 
710  -  Convert  the  second  value  in  REGl  to  a  single  precision 

value. 
720  -  Load  register  pair  HL  with  the  storage  address  for  the 

single  precision  value  in  REGl. 
730  -  Go  move  the  single  precision  value  in  REGl. 
740  -  Go  get  the  function  to  be  performed. 
750  -  Load  register  pair  HL  with  the  storage  address  for  the 

second  single  precision  value. 
760  -  Go  move  the  second  single  precision  value  into  REGl. 
770  -  Load  register  pair  HL  with  the  storage  address  for  the  first 

single  precision  value. 
780  -  Go  move  the  first  single  precision  value  into  register  pairs 

BC  and  DE. 
790  -  Load  register  A  with  the  function  to  be  performed. 
800  -  Check  to  see  if  the  function  to  be  performed  in  register  A  is 

addition. 
810  -  Jump  if  the  function  to  be  performed  in  register  A  is  addi- 
tion. 
820  -  Check  to  see  if  the  function  to  be  performed  in  register  A  is 

subtraction. 

830  -  Jump  if  the  function  to  be  performed  in  register  A  is  sub- 
traction. 

840  -  Check  to  see  if  the  function  to  be  performed  in  register  A  is 
multiplication. 

850  -  Jump  if  the  function  to  be  performed  in  register  A  is  multi- 
plication. 

860  -  Check  to  see  if  the  function  to  be  performed  in  register  A  is 

division. 

870  -  Jump  if  the  function  to  be  performed  in  register  A  is  divi- 
sion. 

880  -  Jump  if  the  function  to  be  performed  in  register  A  isn't  any  of 
the  four  allowable  functions. 

890  -  Go  add  the  single  precision  value  in  REGl  to  the  single 
precision  value  in  register  pairs  BC  and  DE.  Return  with 
the  result  in  REGl. 

900  -  Jump. 

910  -  Go  subtract  the  single  precision  value  in  REGl  from  the 
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single  precision  value  in  register  pairs  BC  and  DE.  Return 

with  the  result  in  REGl. 
920  -  Jump. 
930  -  Go  multiply  the  single  precision  value  in  register  pairs  BC 

and  DE  by  the  single  precision  value  in  REGl.  Return  with 

the  result  in  REGl. 
940  -  Jump. 

950  -  Go  divide  the  single  precision  value  in  register  pairs  BC  and 

DE  by  the  single  precision  value  in  REGl. 
960  -  Jump. 

970  -  Go  get  the  first  value. 

980  -  Convert  the  first  value  in  REGl  to  a  double  precision  value. 

990  -  Load  register  pair  HL  with  the  starting  address  of  REGl, 

1000  -  Load  register  pair  DE  with  die  storage  address  for  the 

double  precision  value  in  REGl. 
1010  -  Go  move  the  double  precision  value  in  REGl. 
1020  -  Go  get  the  second  value. 
1030  -  Convert  the  second  value  in  REGl  to  a  double  precision 

value. 
1040  -  Load  register  pair  HL  with  the  starting  address  of  REGl. 
1050  -  Load  register  pair  DE  with  the  storage  address  for  the 

double  precision  value  in  REGl. 
1060  -  Go  move  the  double  precision  value  in  REGl. 
1070  -  Go  get  the  function  to  be  performed. 
1080  -  Load  register  pair  HL  with  die  storage  address  for  the  first 

double  precision  value. 
1090  -  Load  register  pair  DE  with  the  starting  address  of  REGl. 
1100  -  Go  move  the  first  double  precision  value  into  REGl. 
1110  -  Load  register  pair  HL  witii  the  storage  address  for  the 

second  double  precision  value. 
1120  -  Load  register  pair  DE  with  the  starting  address  of  REG2. 
1130  -  Go  move  the  second  double  precision  value  into  REG2. 
1140  -  Load  register  A  witii  the  function  to  be  performed. 

1150  -  Check  to  see  if  the  function  to  be  performed  in  register  A  is 
addition. 

1160  -  Jump  if  the  function  to  be  performed  in  register  A  is  addi- 
tion. 

1170  -  Check  to  see  if  the  function  to  be  performed  in  register  A  is 
subtraction. 

1180  -  Jump  if  the  function  to  be  performed  in  register  A  is  sub- 
traction. 
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1190  -  Check  to  see  if  the  function  to  be  performed  in  register  A  is 
multiplication. 

1200  -  Jump  if  the  function  to  be  performed  in  register  A  is  multi- 
plication. 

1210  -  Check  to  see  if  the  function  to  be  performed  in  register  A  is 
division. 

1220  -  Jump  if  the  function  to  be  performed  in  register  A  is  divi- 
sion. 

1230  -  Jump  if  the  function  to  be  performed  in  register  A  isn't  any  of 

the  four  allowable  functions. 
1240  -  Go  add  the  double  precision  value  in  REG2  to  the  double 

precision  value  in  REGl  and  return  with  the  result  in 

REGl. 
1250  -  Jump. 
1260  -  Go  subtract  the  double  precision  value  in  REG2  from  the 

double  precision  value  in  REGl  and  return  with  the  result  in 

REGL 
1270  -  Jump. 
1280  -  Go  multiply  the  double  precision  value  in  REGl  by  the 

double  precision  value  in  REG2  and  return  with  the  result  in 

REGl. 
1290  -  Jump. 
1300  -  Go  divide  the  double  precision  value  in  REGl  by  the  double 

precision  value  in  REG2  and  return  with  the  result  in 

REGl. 
1310  -  Jump. 
1320  -  Load  register  pair  HL  with  the  starting  address  of  the 

message  to  be  displayed. 
1330  -  Go  display  the  message. 
1340  -  Go  get  the  input  from  the  keyboard. 
1350  -  Bump  the  input  buffer  pointer  in  register  pair  HL  till  it 

points  to  the  first  character. 
1360  -  Go  convert  the  ASCII  string  at  the  location  of  the  input 

buffer  pointer  in  register  pair  HL  to  binary  and  return  with 

the  result  in  REGl. 
1370  -  Load  register  pair  HL  with  the  starting  address  of  the 

message  to  be  displayed. 
1380  -  Go  display  the  message. 
1390  -  Go  wait  till  a  key  is  pressed  and  return  with  the  ASCII  value 

for  the  key  in  register  A. 
1400  -  Save  the  function  to  be  performed  in  register  A. 
1410  -  Return. 
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1420  -  The  integer  command  is  stored  here. 

1430  -  The  integer  command  jump  address  is  stored  here. 

1440  -  The  single  precision  command  is  stored  here. 

1450  -  The  single  precision  commandjump  address  is  stored  here. 

1460  -  The  double  precision  command  is  here, 

1470  -  The  double  precision  command  jump  address  is  stored 

here. 
1480  -  The  function  to  be  performed  is  stored  here. 
1490  -  The  first  value  will  be  stored  here. 
1500  -  The  second  value  input  will  be  stored  here. 
1510  -  Part  of  the  sign-on  message  is  stored  here. 
1520  -  This  will  display  a  carriage  return  as  part  of  the  sign-on 

message. 
1530  -  Part  of  the  sign-on  message  is  stored  here. 
1540  -  This  will  display  a  carriage  return  as  part  of  the  sign-on 

message. 
1550  -  The  sign-on  message  terminator  is  stored  here. 
1560  -  Part  of  the  command  message  is  stored  here. 
1570  -  This  will  display  a  carriage  return  as  part  of  the  command 

message. 
1580  -  Part  of  the  command  message  is  stored  here, 
1590  -  This  will  display  a  carriage  return  as  part  of  the  command 

message. 
1600  -  Part  of  the  command  message  is  stored  here. 
1610  -  This  will  display  a  carriage  return  as  part  of  the  command 

message. 
1620  -  Part  of  the  command  message  is  stored  here. 
1630  -  This  will  display  a  carriage  return  as  part  of  the  command 

message. 
1640  -  The  command  message  terminator  is  stored  here. 
1650  -  The  value  prompting  message  is  stored  here. 
1660  -  The  value  prompting  message  terminator  is  stored  here, 
1670  -  Part  of  the  function  message  is  stored  here. 
1680  -  This  will  display  a  carriage  return  as  part  of  the  function 

message. 
1690  -  Part  of  the  function  message  is  stored  here. 
1700  -  This  will  display  a  carriage  return  as  part  of  the  function 

message. 
1710  -  Part  of  the  function  message  is  stored  here. 
1720  -  This  will  display  a  carriage  return  as  part  of  the  function 

message. 
1730  -  Part  of  the  function  message  is  stored  here. 
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1740  -  This  will  display  a  carriage  return  as  part  of  the  function 

message. 
1750  -  Part  of  the  function  message  is  stored  here. 
1760  -  This  will  display  a  carriage  return  as  part  of  the  function 

message. 
1770  -  The  function  message  terminator  is  stored  here. 
1780  -  End  of  the  program. 
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Chapter  2 
Machine  Language  Subroutines 


Perhaps  the  easiest  method  of  interfacing  a  machine  language  sub- 
routine with  Level  II  BASIC  is  by  using  the  USR  command.  Al- 
though there  are  many  more  advanced  techniques  for  linking 
machine  language  with  Level  II  BASIC,  they  are  incomprehensible 
until  you  understand  the  USR  command,  an  essential  first  step. 

Let*s  take  a  second  to  review  the  scanty  information  contained 
in  the  Level  II  Reference  Manual  about  the  USR  command.  With 
Level  II  BASIC  there  is  only  one  USR  call  allowed.  Before  calling 
the  subroutine,  the  starting  address  must  be  poked  into  memory. 
Suppose  that  there  is  a  machine  language  subroutine  at  27648.  To 
tell  BASIC  where  the  starting  address  is,  POKE16526,0  and 
POKE  16527, 108  would  have  to  be  executed.  If  these  pokes  were  a 
part  of  a  BASIC  program,  they  might  appear  as: 

10  P0KS16526,0«P0KE16527,108 

To  call  this  routine,  the  program  would  have  to  contain  a  line 
similar  to 

20  X  =  USR(0) 

If  a  value  is  to  be  passed  to  the  machine  language  subroutine, 
lines  such  as  the  following  might  be  used. 

20  X=USR(100) 
100  Z  =  USR(I(5)) 
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To  pass  the  value  to  the  machine  language  subroutine,  a  call  to 
0A7FH  must  be  executed  by  the  subroutine.  This  routine  places  the 
value  into  register  pair  HL. 

To  return  from  a  machine  language  subroutine,  simply  put  a 
RET  instruction  in  the  subroutine  at  the  point  where  BASIC  execu- 
tion is  to  be  resumed.  To  pass  a  value  back  to  BASIC  and  return, 
load  register  pair  HL  with  the  value  to  be  passed  back  and  execute  a 
JP  to  0A9AH.  To  illustrate  how  values  are  passed  back  and  forth, 
let's  take  a  look  at  the  following: 

100  A:=USR (25)  J  PHINTA 

The  value  of  25  is  to  be  passed  to  the  machine  language 
subroutine.  The  subroutine  is 


CATJ, 

0A7FH 

?HL=VALUE  PASSED 

ADD 

HL.HL 

5HL=HL^2 

JV 

0A9AH 

rREfURN  TO  BASIC  WITH  VALUE 

A  blow-by-blow  description  of  this  example,  would  go  some- 
thing like  this.  As  soon  as  BASIC  encounters  the  USR  command  in 
line  number  100,  program  control  is  given  to  the  machine  language 
subroutine.  The  call  to  0A7FH  will  place  the  value  passed,  25,  in 
register  pair  HL.  Next  by  adding  register  pair  HL  with  itself. 
register  pair  HL  will  contain  50.  Now  the  program  executes  a  JP  to 
0A9AH,  which  in  turn,  makes  the  variable  A  equal  to  50.  Further- 
more, the  JP  to  0A9AH  resumes  BASIC  execution.  This  in  turn  will 
cause  a  50  to  appear  on  the  video  display. 

Now  that  the  use  of  USR  has  been  covered,  it*s  time  to  take  a 
look  at  how  subroutines  can  be  loaded  into  memory.  For  the  rest  of 
the  chapter,  we  will  take  a  look  at  the  various  methods  for  loading 
subroutines.  These  methods  include  loading  the  subroutine  from 
cassette,  poking  the  subroutine  into  high  memory,  packing  the 
subroutine  into  an  array,  and  packing  the  subroutine  into  a  string. 

A  GRAPHICS  SUBROUTINE 

Before  we  look  at  subroutine  loading  methods,  we  need  a 
subroutine.  The  subroutine  used  to  demonstrate  the  various 
methods  of  subroutine  loading  is  one  that  will  reverse  all  of  the 
graphic  characters  on  the  video  display. 

In  order  to  write  this  subroutine,  you  must  understand  the 
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Bit  No. 


7 

6 

5 

4 

3 

2 

1 

0 

1 

0 

1 

1 

1 

1 

1 

1 

Graphic  Character 


0 

1 

2 

3 

4 

5 

Bit  0  or  Pixel  0 
Bit  1  or  Pixel  1 
Bit  2  or  Pixel  2 
Bit  3  or  Pixel  3 
Bit  4  or  Pixel  4 
Bit 5 or  Pixels 
Bite 
Bit  7 

Thus,  if  we  wished 
acter  with  pixels  0, 
termine  the  code  to 


Pixel  0  - 

1 

Pixel  3  - 

8 

Pixel  4  - 

16 

Bit     7- 

128 

153 


=  191 


The  video  display  Is  broken  down  into  64  spaces 
by  16  lines.  Each  space  can  be  further  broken 
down  into  a  2  by  3  graphic  character.  Thus  the 
effective  graphics  resolution  on  the  Model  lis  1 28 
by  48  graphic  points.  Each  of  these  points  is 
called  a  pixel.  Each  pixel  corresponds  with  a 
particular  bit  of  video  memory.  Shown  above  is 
what  a  byte  would  look  like  if  1 91  were  poked  into 
video  memory.  Also  shown  is  an  enlarged 
graphic  character  which  has  each  pixel  num- 
bered. These  numbers  correspond  directly  with 
the  bits  in  video  memoiy.  Any  bit  with  a  value  of  1 
will  be  on  and  any  bit  with  a  value  of  0  will  be  off. 
Therefore,  if  191  were  poked  into  video  memory; 
a  graphic  character  with  all  of  it's  pixels  on  would 
be  displayed.  So  the  value  for  any  graphic 
character  can  be  determined  as  follows: 


To  set  add  a  value  of  1 
To  set  add  a  value  of  2 
To  set  add  a  value  of  4 
To  set  add  a  value  of  8 
To  set  add  a  value  of  16 
To  set  add  a  value  of  32 
Always  off 

Always  on,  add  a  value  of 
128 

to  display  a  graphic  char- 
3  and  4  on.  we  would  de- 
be  used  like  this. 


Fig.  2-1 .  Model  I  graphic  codes. 
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Model  Fs  video  display  system.  The  Model  I  uses  a  memory- 
mapped  video  display  system.  The  video  memory  starts  at  address 
3C00H  (15360)  and  is  1024  bytes  long.  Each  byte  of  video  memory 
holds  one  character.  The  value  of  each  byte  is  determined  by  the 
ASCII  code  for  the  character  to  be  displayed.  If  you  were  to 
POKE15360,90,  a  Z  would  be  displayed  in  the  upper  left-hand 
comer  of  the  video  display.  The  codes  for  graphic  characters  are  any 
value  from  128  to  191.  Figure  2-1  illustrates  how  the  code  is 
determined  for  a  particular  graphic  character. 

Now  that  graphic  codes  have  been  illustrated,  it  is  an  easy 
matter  to  determine  how  the  graphic  display  can  be  reversed.  We 
know  that  if  a  pixel  is  on,  the  corresponding  bit  is  equal  to  1;  and 
when  a  pixel  is  off,  the  corresponding  bit  is  equal  to  0,  Therefore, 
we  must  change  all  O's  to  I's  and  all  Vs  to  O's  in  bits  0  through  5  of 
each  graphic  character  in  video  memory.  Also,  bit  6  must  be  off  and 
bit  7  must  be  on  for  each  graphic  character.  Figure  2-2  illustrates 
the  three  machine  language  instructions  necessary  to  complete  the 
reversal  process. 

Now  that  the  method  for  graphics  reversal  is  clear,  it  is  an  easy 
matter  to  write  the  subroutine.  Listing  2-1  presents  a  program  that 
reverses  all  graphic  characters  on  the  video  display.  The  program 
will  leave  all  non-graphic  characters  intact. 

Listing  2-1 


7FE6 

oo:oo 

ORB 

7FE6H 

7FE6 

21FF3B 

00110 

REVER 

LD 

HL,3BFFH 

7FE9 

23 

00120 

INC 

HL 

7FEA 

01FF03 

00130 

LD 

BC,03FFH 

7FED 

03 

00140 

INC 

BC 

7FEE 

7E 

00150 

LOOP 

LD 

A, <HL) 

7FEF 

FE80 

00160 

CP 

80H 

7FF1 

3806 

00170 

JR 

CNSRAPH 

7FF3 

2F 

00180 

CPL 

7FF4 

CBFF 

00190 

SET 

7,  A 

/hK6 

CBB7 

00200 

RES 

6, A 

7FF8 

77 

00210 

LD 

(HL) ,A 

7FF9 

23 

00220 

NGRAPH 

INC 

HL 

7FFA 

OB 

00230 

DEC 

BC 

7FFB 

78 

00240 

LD 

A,B 

7FFC 

Bl 

00250 

OR 

C 

7FFD 

20EF 

00260 

JR 

NZ5LOOP 

7FFF 

C9 

00270 

RET 

7FE^ 

00280 

END 

REVER 

00000  TOTAL  ERRORS 

NGRAPH   7FF9 

LOOP 

7FEE 

REVER    7FE6 
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; REGISTER  A  CONTAINS  THE  VALUE  I9I  or  10111111 

CPL  ;A  NOW  HOLDS  01000000 

SET       7, A       ;A  NOW  HOLDS  11000000 
^S       6, A       ;A  NOW  HOLDS  10000000 


Fig.  2-2.  Graphics  reversal. 

Listing  2-1  Comments 

100  -  Set  ±e  starting  address  for  the  program. 

110  -  Load  register  pair  HL  with  the  start  of  video  memory  minus 

one. 
120  -  Bump  the  video  memory  pointer  in  register  pair  HL. 
130  -  Load  register  pair  BC  with  the  length  of  video  memory  minus 

one. 
140  -  Bump  the  video  memory  counter  in  register  pair  BC. 
150  -  Load  register  A  with  the  character  at  the  location  of  the  video 

memory  pointer  in  register  pair  HL. 
160  -  Check  to  see  if  the  character  in  register  A  is  a  graphic 

character. 
170  -  Jump  if  the  character  in  register  A  isn't  a  graphic  character. 
180  -  CompHment  the  character  in  register  A, 
190  -  Set  bit  7  of  the  character  in  register  A. 
200  -  Reset  bit  6  of  the  character  in  register  A. 
210  -  Display  the  graphic  character  in  register  A  at  the  location  of 

the  video  memory  pointer  in  register  pair  HL. 
220  -  Bump  the  video  memory  pointer  in  register  pair  HL. 
230  -  Decrement  the  video  memory  counter  in  register  pair  BC. 
240  -  Load  register  A  with  die  MSB  of  the  video  memory  counter 

in  register  B. 
250  -  Combine  the  LSB  of  the  video  memory  counter  in  register  C 

with  the  MSB  of  the  video  memory  counter  in  register  A. 
260  -  Jump  if  this  isn't  the  end  of  the  video  memory. 
270  -  Retura. 
280  -  End  of  the  program. 

A  close  inspection  of  this  program  reveals  something  a  little 
strange  at  the  start  of  the  program.  As  stated  earlier,  video  memory 
starts  at  3C00H  (15360)  and  is  0400H  (1024)  bytes  in  length.  So  why 
does  the  program  load  register  pair  HL  with  3BFFH  and  register 
pair  BC  with  03FFH?  Normally  lines  110  and  130  would  be  written 
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110  RJEVER  LD  HL,3C00H 

230  LD  BC,0400H 

Lines  120  and  140  would  also  be  deleted.  However,  if  the 
program  were  to  be  assembled  with  these  changes,  the  object  code 
for  these  lines  would  be 

110      -  21003C 
130       -  01000^ 

Note  that  both  of  these  machine  language  instructions  will 
result  in  two  bytes  of  zeros  (OOH)  in  the  object  code.  While  this  is 
acceptable  for  most  applications,  it  would  cause  problems  if  this 
subroutine  were  packed  into  a  string.  These  problems  will  be 
discussed  later  in  this  chapter.  For  now  it  is  only  necessary  to 
understand  that  by  loading  register  pair  HL  with  3BFFH  and  then 
incrementing  it,  register  pair  HL  will  contain  3C00H.  Furthermore, 
by  loading  register  pair  BC  with  03FFH  and  incrementing  it,  regis- 
ter pair  BC  will  contain  0400H.  Thus,  the  zero  bytes  are  avoided  in 
the  object  code,  and  the  register  pairs  HL  and  BC  contain  the 
correct  values  after  incrementing. 

THE  CASSETTE  METHOD 

The  simplest  method  for  interfacing  this  subroutine  with 
BASIC  is  to  load  the  subroutine  into  high  memory  via  the  cassette. 
To  do  this,  a  copy  of  the  object  code  for  the  program  in  Listing  2-1 
must  be  made  on  cassette.  Once  the  object  code  has  been  produced, 
memory  size  must  be  set  at  32742  (7FE6H),  and  the  subroutine 
must  be  loaded  with  the  SYSTEM  command. 

Next  a  BASIC  program  is  needed,  in  order  to  make  use  of  the 
machine  language  subroutine.  Listing  2-2  contains  a  short  BASIC 
program  that  first  draws  alternating  horizontal  lines  on  the  video 
display.  Once  the  display  has  been  completed,  the  reversal  sub- 
routine is  called  over  and  over  again  giving  the  effect  of  the  lines 
bouncing  up  and  down. 

Listing  2-2 

0    '     LISTING    2.2 

5  '  SUBROUTINE  SHOULD  BE  LOADED  AND  HEM  SIZE  ^    32742 

10  '  DISPLAY  ALTERNATING  LINES 

15  CLS 

20  F0RY=0T047STEP2 
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30  FQRX=0T0127 

40  SET<X,Y) 

50  NEXTX 

60  NEXTY 

70  '  UiAIT  FDR  SHORT  DELAY 

80  FQRI=1T0100 

90  NEXT I 

iOO  '  SET  STARTING  ADDRESS 

110  P0KE16526, 230; POKE 16527, 127 

120  '  REVERSE  THE  GRAPHICS 

130  I=USR<0) 

140    '     UJAIT    FOR    SHORT    DELAY 

150   FQRI=iT0100 

160    NEXT I 

170  'KEEP  DOING  UMTIL  BREAK  PRESSED 

180  GOTOBO 

THE  POKE  METHOD 

Although  the  cassette  method  for  interfacing  a  machine  lan- 
guage subroutine  is  quite  easy,  it  can  be  quite  a  pain.  Remember, 
each  time  the  BASIC  program  is  to  be  used,  memory  size?  must  be 
set  and  the  subroutine  must  be  loaded  from  cassette. 

The  poke  method  for  loading  the  subroutine  eliminates  the 
need  for  a  cassette  recorder.  In  order  to  use  the  poke  method,  the 
object  code  must  be  converted  to  it's  decimal  equivalent.  This 
conversion  is  necessary  because  the  subroutine  will  be  stored  in  the 
program  data  statements.  Figure  2-3  shows  the  object  code's  deci- 
mal equivalent. 

Now  that  we  know  the  decimal  equivalent  for  the  subroutine's 
object  code,  add  the  following  lines  to  the  program  appearing  in 
Listing  2-2: 

6  F0RM=327J^2T032767 

7  READS 

8  POKEM^B 

9  NEXTO 

1000  DATk33, 255, 59, 35 fl, 255, 3, 3, 126,25^,128, 56, 6M 
1010  DATA203 , 255 , 203 . 183 , 119 , 35 , 11 , 120 , 177 , 32 , 239 , 201 

Once  these  changes  are  completed,  the  program  should  look 
like  Listing  2-3.  What  these  new  lines  do  is  really  quite  simple. 
Lines  6  to  9  poke  the  values  read  jfrom  the  data  statements  into  high 
memory.  So  by  using  the  poke  method,  the  need  for  loading  the 
machine  language  subroutine  from  cassette  is  completely  elimi- 
nated. However,  the  need  for  setting  memory  size  is  still  there. 
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Hex 

Decimal 

Hex 

Decimal 

21 

33 

2F 

47 

FF 

255 

CB 

203 

3B 

59 

FF 

255 

23 

35 

CB 

203 

01 

1 

B7 

183 

FF 

255 

77 

119 

03 

3 

23 

35 

03 

3 

OB 

11 

7E 

126 

78 

120 

FE 

254 

B1 

177 

80 

128 

20 

32 

38 

56 

EF 

239 

06 

6 

C9 

201 

Fig.  2-3.  Decimal  equivalents  for  the  object  code  in  Listing  2-1 . 
Listing  2-3 

O  '  LISTING  2.3 

5  '  POKE  SUBROUTINE  INTO  HIGH  HEMDRY 

6  FGRH=32742T032767 

7  READS 

a  POKEM,B 

9  NEXTM 

10  "  DISPLAY  ALTERNATING  LINES 
15  CLS 

20  F0RY=0T047STEP2 

30  F0RX=0TO127 

40  SET<X,Y) 

50  NEXTX 

60  NEXTY 

70  '  ^AIT  FOR  SHORT  DELAY 

80  FORI=1T0100 

90  NEXT I 

100  '  SET  STARTING  ADDRESS 

110  P0KE16526,230:PQKEi6527, 127 

120  '  REVERSE  THE  GRAPHICS 

130  I=USR<0) 

140    '    UJAIT    FDR   SHORT    DELAY 

150   F0RI=1T0100 

160   NEXT I 

170  '  KEEP  DOING  UNTIL  BREAK  PRESSED 

180  GOTOBO 

1000  DATA33, 255, 59, 35, 1,255, 3, 3, 126, 254, 128, 56, 6, 47 

1010  DATA203,255, 203, 183, 1 19, 35, 1 1 , 120, 177, 32, 239, 201 

THE  ARRAY  PACKING  METHOD 

The  necessity  for  setting  memory  size  can  be  eliminated  by 
interfacing  the  machine  language  subroutine  with  a  method  called 
array  packing. 

In  order  to  change  the  program  in  Listing  2-3  to  an  array 
packing  program,  add 
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i  DEFINTA-Z 

2  DIMS(12) 

These  lines  initialize  all  variables  as  integers  and  array  S  with 
13  elements.  The  reason  for  setting  array  S  at  13  elements  is  that 
the  machine  language  subroutine  is  26  bytes  long.  Since  an  integer 
variable  is  2  bytes  long  you  divide  26  by  2  and  get  13.  Thus,  the 
array  to  be  packed  must  have  at  least  13  elements. 


Array  Element 

Memory  Location 

Contents 

S(0)  LSB 

17152 

0 

S(0)  MSB 

17153 

0 

S(1)LSB 

17154 

0 

S(1)MSB 

17155 

0 

S(2)  LSB 

17156 

0 

S(2)  MSB 

17157 

0 

S(3)  LSB 

17158 

0 

S(3)  MSB 

17159 

0 

S(4)  LSB 

17160 

0 

S{4)  MSB 

17161 

0 

S(5)  LSB 

17162 

0 

S(5)  MSB 

17163 

0 

S(6)  LSB 

17164 

0 

S(6)  MSB 

17165 

0 

S(7)  LSB 

17166 

0 

S(7)  MSB 

17167 

0 

S(8)  LSB 

17168 

0 

S{8)  MSB 

17169 

0 

S(9)  LSB 

17170 

0 

S(9)  MSB 

17171 

0 

S(10)LSB 

17172 

0 

S(10)MSB 

17173 

0 

S{11)LSB 

17174 

0 

S(11)MSB 

17175 

0 

S(12)LSB 

17176 

0 

S(12)MSB 

17177 

0 

Fig.  2-4.  An  integer  an-ay  containing  13  elements. 
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Figure  2-4  will  help  you  understand  why  packing  the  array  is 
possible.  Note  that  all  elements  in  the  array  take  up  a  consecutive 
area  in  memory.  Although  an  integer  array  will  be  used  in  our 
program,  a  single  precision  array  or  a  double  precision  array  could 
be  used.  To  figure  the  number  of  elements  necessary  for  a  single 
precision  array,  you  simply  divide  the  number  of  bytes  in  the 
subroutine  by  four.  Remember,  a  single  precision  variable  requires 
4  bytes  of  memory.  The  size  of  the  array  is  figured  by  dividing  26  by 
4,  which  equals  6. 5.  Because  an  array  can't  have  half  an  element,  the 
array  must  be  dimensioned  for  7  elements.  This  example  demon- 
strates an  important  point.  Although  a  single  precision  arra}^  can  be 
used,  the  extra  array  element  wastes  memory  space.  Therefore,  an 
integer  array  should  be  used  to  conserve  memory  space. 

To  pack  the  array,  the  program  will  have  to  be  chajiged  as 
follows: 

6  F0RM=0T025 

8  POKEVARPTH(S(0)HM,B 

110  I=VARPTR(S(0)):P0KE16526,I-INT(I/256)*256jP0KE 
.  16527, INT (1/256) 

Once  these  changes  are  made,  the  program  will  look  like  the 
one  in  Listing  2-4.  The  VARPTR(S(0)),  in  lines  8  and  110  locates 
the  starting  address  for  the  subroutine.  After  the  packing  has  been 
completed,  array  S  will  appear  in  memory  as  shown  in  Fig.  2-5, 

Once  the  array  has  been  packed,  the  program  must  never  use 
array  S  as  a  normal  variable.  Just  consider  what  would  happen  if  the 
program  contained  a  line  like  11  S(5)=15, 
This  line  changes  the  contents  of  element  5  in  array  S,  and  the 
machine  language  program  would  not  function  properly  if  the  sub- 
routine were  called. 

Listing  2-4 

0  '     LISTING    2.4 

1  DEFINTA-Z 

2  DIMS(12) 

5  '    POKE    SUBROUTINE    INTO    ARRAY    SO 

6  FQRM==0TD25 

7  READB 

8  POKEVARPTR<S(0) )+M,B 

9  NEXTM 

10  '     DISPLAY    ALTERNATING    LINES 
IS    CLS 

20    F0RY=0Ta47STEP2 
30    F0RX==0T0i27 
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40  SEHX,Y) 

50  NEXTX 

60  NEXTY 

70  '  WAIT  FOR  SHORT  DELAY 

BO  FQRI==iTaiOO 

90  NEXTI 

100  '  SET  START INS  ADDRESS 

110  I=VARPTR(S(0) ) ;PaKE16526, I-INT ( I /256J *256: PQKEi6527, 

INT (1/256; 
120  '     REVERSE  THE  GRAPHICS 
130  I==USR<0) 

140  '  WAIT  FOR  SHORT  DELAY 
150  FORI-ITOIOO 
160  NEXTI 

170  '  KEEP  DOING  UNTIL  BREAK  PRESSED 
ISO  G0T08O 

1000  DATA33,255,59,35, 1,255,3,3, 126,254, 128,56,6,47 
1010  DATA203, 255, 203, 183, 119,35,11, 120, 177, 32, 239, 201 

THE  STRING  PACKING  METHOD 

The  last  method  of  interfacing  machine  language  with  BASIC  is 
called  string  packing.  Although  string  packing  takes  a  little  more 
program  development  time,  it  has  many  advantages  over  the  other 
methods.  It  eliminates  the  need  for  cassette  loading  and  the  neces- 
sity of  setting  memory  size.  It  also  speeds  up  program  execution 
time  and  is  more  memory  efficient  than  the  three  previous  methods 
because  the  string  packing  routine  and  the  data  statements  can  be 
eliminated  after  packing  is  completed.  String  packing  does  have  one 
disadvantage  though.  You  can't  pack  OOH  into  the  string  because 
zero  is  used  by  Level  II  BASIC  as  the  BASIC  line  terminator.  So,  if 
you  want  to  use  string  packing  in  your  programs,  avoid  zeros.  Beat 
around  the  bush,  as  in  the  graphics  reversal  program. 

To  change  the  array  packing  program  to  a  string  packing  pro- 
gram, delete  line  2  and  change  the  following  lines: 

1  3$=" - 

8  I=VAHPTR(S$)jSA=PEEK(I+2)*256+PEEK(I+1)iP0KESA+M,B 

9  NEXTMiSTOP 

110  I=VARPTR(S$)iP0KEl6526,PEEK(I+l)sP0KEl6527, 
PSEK(I+2) 

Note  that  in  line  1,  S$  is  set  to  a  string  constant  of  26  periods. 
The  reason  for  this  is  that  the  machine  language  subroutine  to  be 
packed  is  26  bytes  long.  It  doesn't  really  matter  if  you  use  26  periods 
or  26  other  characters,  just  so  long  as  S$  is  26  bytes  in  length. 

In  order  to  understand  why  string  packing  is  a  very  desirable 
method  for  interfacing  machine  language  with  BASIC,  it  is  first 
necessary  to  understand  how  a  string  is  stored  in  memory.  All 
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Array  Element 

Memory  Location 

S(0)  LSB 

17152 

S(0)  MSB 

17153 

S(1)LSB 

17154 

S(1)MSB 

17155 

S(2)  LSB 

17156 

S(2)  MSB 

17157 

S(3)  LSB 

17158 

S(3)  MSB 

17159 

S(4)  LSB 

17160 

S(4)  MSB 

17161 

S(5)  LSB 

17162 

S(5)  MSB 

17163 

S(6)  LSB 

17164 

S(6)  MSB 

17165 

S(7)  LSB 

17166 

S(7)  MSB 

17167 

S(8)  LSB 

17168 

S(8)  MSB 

17169 

S(9)  LSB 

17170 

S{9)  MSB 

17171 

S(10)LSB 

17172 

S(10)MSB 

17173 

S(1 1 )  LSB 

17174 

S(1 1 )  MSB 

17175 

S(12)  LSB 

17176 

S(12)MSB 

17177 

Contents 

33 

255 

59 

35 

1 

255 

3 

3 

126 

254 

128 

56 

6 

47 

203 

255 

203 

183 

119 

35 

11 

120 

177 

32 

239 

201 


Fig.  2-5.  A  13  eiement  packed  integer  array. 

string  constants,  like  S$,  are  stored  in  the  program  itself  and  not  in 
string  space.  Once  the  string  constant  has  been  packed  with  the 
machine  language  subroutine,  the  string  will  always  hold  the  sub- 
routine. 

To  find  the  starting  address  for  the  string,  the  VARFTR  com- 
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mand  must  be  used.  In  line  8,  the  variable  I  is  set  to  VARPTR(S$). 
Although  variable  I  doesn't  point  to  the  string's  starting  address,  it 
does  point  to  the  following  information: 

LOCATION  CONTENTS 

I  Length  of  the  String 

I-hl  LSB  of  the  String's  Starting  Address 

I-f-2  MSB  of  the  String's  Starting  Address 

With  this  information,  the  string's  starting  address  can  be 
determined  by 

PEEK( 1+2 )*256+PEEK( I+l ) 

Now  that  the  string's  starting  address  can  be  determined,  the 
string  can  be  packed  in  much  the  same  way  as  an  array  is  packed.  If 
you  have  entered  the  program  in  Listing  2-5.  try  running  it.  The 
program  will  break  in  line  9.  The  string  should  now  be  packed.  Try 
listing  the  program.  If  your  video  display  seemed  to  throw  a  fit,  then 
the  string  is  probably  packed  correctly.  The  reason  for  this  strange 
listing  is  that  the  BASIC  interpreter  can't  list  a  packed  string 
correctly,  and,  therefore,  will  not  print  it  correctly  either.  The 
packed  string  is  displayed  as  control  codes  and  BASIC  keywords.  If 
the  string  has  been  properly  packed,  you  may  delete  lines  5-9  and 
lines  1000-1010.  The  reason  for  this  is  that  once  the  string  is  packed 
it  will  always  stay  packed.  Therefore,  the  string  packing  routine  and 
the  data  statements  are  no  longer  needed  by  the  program. 

Listing  2-5 

0  '    LISTING    2.5 

1  S$=".......... " 

5  '  POKE  SUBROUTINE  INTO  S$ 

6  F0RH=0T025 

7  READB 

8  I=VARPTR<S$)  :SA==PEEK(I+2)  *256+PEEK  <  I  +  l )  :POKESA+M,B 

9  NEXTH:STOP 

10  "  DISPLAY  ALTERNATING  LINES 
15  CLS 

20  F0RY=0TG47STER2 

30  F0RX==0T0127 

40  SET<X,Y) 

50  NEXTX 

60  NEXTY 

70  '  WAIT  FOR  SHORT  DELAY 

80  FORI=1TQ100 

90  NEXT I 

100  '     SET  STARTING  ADDRESS 

110  I=:=VARPTR<S$)  :  POKE  16526,  PEEK  (1 4-1)  :  P0KE16527,  PEEK  (1+2) 

120  "  REVERSE  THE  GRAPHICS 
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130  I==USR<0) 

140  '  WAIT  FOR  SHORT  DELAY 

150  FORI^ITOIOO 

160  NEXTI 

170  'KEEP  DDINS  UNTIL  BREAK  PRESSED 

180  GOTOaO 

1000  DATA33,255,59,3S, 1,255,3,3, 126,254, 128,56,6,47 

1010  DATA203,255,203, 183, 119,35, 11, 120, 177,32,239,201 
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Chapter  3 
The  Disk  BASIC  and  DOS  Links 


Although  the  USR  command  is  the  simplest  way  to  interface 
machine  language  with  BASIC,  there  are  other  more  advanced 
techniques  that  can  be  used.  This  chapter  introduces  a  technique 
utilizing  the  Disk  BASIC  and  the  DOS  links.  By  using  these  links, 
new  commands  can  be  added  to  Level  II  BASIC,  and  existing  Level 
II  commands  can  be  enhanced. 

LINKS  TO  BASIC 

Figure  3-1  shows  all  of  the  Disk  BASIC  links.  Figure  3-2  lists 
all  of  the  DOS  links.  If  Level  II  BASIC  is  initialized,  the  Disk  BASIC 
links  are  set  to  jump  to  the  L3  ERROR  routine  whenever  a  Disk 
BASIC  command  is  encountered.  If  Disk  BASIC  is  loaded,  these 
jumps  to  the  L3  ERROR  routine  are  replaced  with  jumps  to  the 
appropriate  Disk  BASIC  routines.  The  DOS  links  are  set  to  RET 
instructions  by  the  Level  II  BASIC  initialization  routine.  If  a  DOS  is 
not  in  memory,  the  DOS  links  will  simply  return  to  Level  II  BASIC 
whenever  a  DOS  link  is  encountered.  When  a  DOS  is  in  memory, 
the  DOS  links  are  set  to  jump  to  DOS. 

In  order  to  make  use  of  these  links,  the  Level  II  BASIC 
interpreter  must  be  understood.  The  BASIC  interpreter  uses 
register  pair  HL  as  a  pointer  to  the  current  location  in  the  BASIC 
program.  Think  of  register  pair  HL  as  a  program  counter.  Whenever 
one  of  these  links  is  called,  register  pair  HL  will  either  point  to  the 
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Exit 

BASIC 

Exit 

BASIC 

Location 

Keyword 

Location 

Keyword 

4152H 

CVI 

417CH 

FIELD 

4155H 

FN 

417FH 

GET 

4158H 

CVS 

4182H 

PUT 

415BH 

DEF 

4185H 

CLOSE 

415EH 

CVD 

4188H 

LOAD 

4161H 

EOF 

418BH 

MERGE 

4164H 

LOG 

418EH 

NAME 

4167H 

LOF 

4191H 

KILL 

416AH 

MKI$ 

4194H 

& 

416DH 

MKS$ 

4197H 

LSET 

4170H 

MKD$ 

419AH 

RSET 

4173H 

CMD 

419DH 

INSTR 

4176H 

TIMES 

41A0H 

SAVE 

4179H 

OPEN 

41  ASH 

LINE 

Fig.  3-1.  Disk  BASIC  links. 

last  byte  executed  or  the  next  byte  immediately  follomng  the 
BASIC  keyword. 

ENHANCING  USR 

Let's  try  using  a  DOS  linlc  to  enhance  the  USR  command.  The 
link  at  41A9H  is  called  by  the  USR  command  just  before  the  value  to 
be  passed  is  examined.  By  intercepting  this  Unk.  the  USR  command 
can  be  enhanced  to  call  subroutines  without  poking  the  starting 
address  into  memory.  The  format  for  this  new  USR  command  will 
be 

USR  starting  address,  (x) 


are 


Some  examples  of  how  this  new  USR  command  might  be  used 

10    fcUSR276^8,(25) 
100  X2=USRN,{M1) 


Listing  3-1  presents  a  program  that  utilizes  the  USR  command 
to  poke  the  starting  address  via  the  DOS  link. 


44 


X 

X 

5 

s 

cr  ^ 

CM 

CM 

B    g 

-o 

-o 

o   *^ 

c 

c 

II  Fr 
oca 

x=Sxx 

CO 

X  X 

X  X 

CO 

X  X 

CO     — * 

CD   ^   UL   <^ 

CO  CO 

LU  Q 

CO  S^ 

o 

in  <  CD  O 

o  o 

CD  CM 

r-  m 

CO  iu  o  o 

^  CM 

CM   CM 

O   T~   CM   CVi 

CM  CM 

CM  CM 

CM  O 

c 

.2 

TO 

xxxx 

XxxX 

X  X 

u 

^  h-  <  Q  O  CO 

CD  O  LL   CM 

o 

OOOOQQQQQUJ                                      | 

T-     1— 

T~      T— 

^  ^  ^  ^ 

T:t  ^ 

^  ^ 

^  '^ 

X 

o 

S     _ 

m 

o     « 

Q 

a:   ^ 

E    o 

u 

o   '^ 

c 

i^  s 

CO 

=  3 

XX  Xx 

X  X 

XX 

X  X 

Ct3    "* 

O  UJ  O  i 

1-  o 

CM  O 

^  o 

CJ 

LU  LL  ^  CD 

<  tu 

LL  CO 

1^  CM 

a>  t^  <  CO 

<  < 

<  GQ 

^   CO 

T-    CM    ^    O 

CM  O 

cr 

o 

1 

xxxxxxxxxx                             1 

u 

CD   C73  O  LL 

CM  lO 

CO  CD 

LU   t- 

5 

<<<<CQaQ0QmcQO                                           1 

*S 

^  ^  ^  ^ 

^  ^ 

T^    ^ 

'^^    Tj- 
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First,  the  program  intercepts  the  DOS  link  at  41A9H.  It  per- 
forms this  task  by  placing  a  jump  to  the  desired  location  aad  then 
returning  to  the  Level  II  BASIC  READY  routine.  Note  diat  a  JP 
0072H  will  return  to  the  BASIC  READY  routine.  This  jump  should 
always  be  used  whenever  a  machine  language  routine  is  to  nstum  to 
the  Level  II  BASIC  command  mode.  While  there  are  other  jumps 
which  return  to  the  Level  II  BASIC  command  mode,  the  jump  at 
0072H  is  the  only  one  which  is  error  free.  Other  jumps  may  cause  a 
BASIC  error. 

Whenever  a  USR  command  is  executed.  Level  II  BASIC  im- 
mediately calls  the  DOS  Unk  at  41A9H.  Because  this  link  has  been 
intercepted,  it  will  cause  a  jump  to  7FCFH.  Note  that  at  Ms  point 
the  BASIC  program  pointer  in  register  pair  HL  will  be  pointing  to 
the  USR  keyword.  The  new  USR  routine  will  start  by  calling  the 
ROM  routine  located  at  2B01H.  This  routine  performs  the  fctllowing 
Bump  the  BASIC  Program  Pointer,  and  evaluate 
expression  address  2B01H. 

This  routine  will  increment  the  value  of  the  BASIC  program 
pointer  and  will  evaluate  the  expression. 

The  BASIC  program  pointer  is  bumped  by  RST  OOIOH 
until  register  pair  HL  points  to  the  first  character  :.n  the 
expression.  The  expression  is  then  evaluated.  On  exit,  reg- 
ister pair  DE  will  hold  the  16-bit  result  and  register  pair  HL 
points  to  the  character  immediately  following  the  expresjsion. 
So,  after  the  call  2B01H,  register  pair  DE  will  hold  the  starting 
address.  This  starting  address  is  then  stored  in  memory  location 
16526  (408EH).  Remember  that  the  normal  USR  command  requires 
the  starting  address  to  be  poked  at  memory  locations  16526  and 
16527.  Thus,  the  routine  has  just  poked  the  starting  address  au- 
tomatically. 

After  poking  the  starting  address,  the  program  performs  a 
syntax  check.  If  a  comma  doesn't  follow  the  expression  which  was 
evaluated,  an  SN  ERROR  will  be  issued.  Next,  the  BASIC  j^rogram 
pointer,  in  register  pair  HL,  must  be  decremented.  This  is  neces- 
sary for  two  reasons.  First,  the  RST  0008H  syntax  check  executes  a 
RST  OOIOH  immediately  after  the  syntax  check.  Therefore,  regis- 
ter pair  HL  will  point  to  the  left  parenthesis.  Remember  that  on 
entry  to  the  DOS  link,  register  pair  HL  pointed  to  ttie  USR 
keyword.  So,  by  decrementing  register  pair  HL,  the  BAiSIC  pro- 
gram pointer  will  be  adjusted  to  the  correct  position  which  BASIC 
expects  on  return  from  the  subroutine. 

This  procedure  demonstrates  an  important  point  al)out  the 
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BASIC  program  pointer.  Whenever  a  Disk  BASIC  or  DOS  link  is 
used,  you  must  consider  the  consequences  of  adjusting  the  BASIC 
program  pointer  when  writing  a  routine.  If  you  don't  plan  ahead, 
your  routine  may  cause  SN  errors  everytime  it  is  executed. 

Listing  3-1 


7FBB 

00100 

ORG 

7FBBH 

7FBB 

3EC3 

00 110  START 

LD 

A,0C3H 

7FBD 

32A941 

00120 

LD 

<41A9H) ,A 

7FC0 

21CF7F 

00130 

LD 

HL,USR 

7FC3 

22AA41 

00140 

LD 

<41AAH) ,HL 

7FC6 

21DA7F 

00150 

LD 

HL,M1 

7FC9 

CD7S2B 

00160 

CALL 

2B75H 

7FCC 

C37200 

00170 

JP 

0072H 

7FCF 

CD0i2B 

00180  USR 

CALL 

2B01H 

7FD2 

ED538E40 

00190 

LD 

(40aEH),DE 

7FD6 

CF 

00200 

RST 

0008H 

7FD7 

2C 

00210 

DEFB 

J 

7FDS 

2B 

00220 

DEC 

HL 

7FD9 

C9 

00230 

RET 

7FDA 

45 

00240  m 

DEFM 

'ENHANCED  I 

7FDB 

4E 

7FDC 

48 

7FDD 

41 

7FDE 

4E 

7FDF 

43 

/hbO 

45 

^\-izl 

44 

7FE2 

20 

7FE3 

55 

/Ft4 

53 

7FES 

52 

/f-b6 

20 

7FE7 

43 

7FES 

4F 

/hb? 

4D 

7FEA 

4D 

7FEB 

41 

7FEC 

4E 

7FED 

44 

7FEE 

OD 

00250 

DEFB 

13 

/htF 

42 

00260 

DEFM 

'BY  MARK  G( 

7FF0 

59 

7FF1 

20 

/hi- 2 

4D 

7FF3 

41 

7FF4 

52 

/FFS 

4B 

7FF6 

20 

7{rp7 

47 

7FFS 

4F 

7FF9 

4F 

7FFA 

44 

7HI-i:« 

57 

/h(-C 

49 

7FFD 

4E 

7FFE 

OD 

00270 

DEFB 

13 

7FFF 

00 

00280 

DEFB 

0 

7FBB 

00290 

END 

START 

00000  TOTAL  ERRORS 

Ml 

7FDA 

USR 

7FCF 

START    7FBB 
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Listing  3-1  Comments 

100  -  Set  the  starting  address  for  the  program. 

110  -  Load  register  A  with  a  JP  op  code. 

120  -  Save  the  JP  op  code  in  register  A  at  the  first  byte  of  ±e  DOS 

Hnk. 
130  -  Load  register  pair  HL  with  the  starting  address  for  the  new 

USR  routine. 
140  -  Save  the  starting  address  for  the  new  USR  routine  in  register 

pair  HL  at  the  second  and  third  bytes  of  the  DOS  linlc. 
150  -  Load  register  pair  HL  with  the  starting  address  for  the 

message  to  be  displayed. 
160  -  Go  display  the  message. 
170  -  Jump  to  the  Level  II  BASIC  READY  routine. 
180  -  Go  evaluate  the  expression  at  the  location  of  the  current 

BASIC  program  pointer  in  register  pair  HL  and  return  with 

the  integer  result  in  register  pair  DE. 
190  -  Save  the  subroutine's  starting  address  in  register  pair  DE. 
200  -  Go  check  the  syntax.  The  character  at  the  location  of  the 

current  BASIC  program  pointer  in  register  pair  HL  must  be  a 

comma. 
210  -  The  character  to  be  checked  for  is  stored  here. 
220  -  Decrement  the  current  BASIC  program  pointer  in  register 

pair  HL. 
230  -  Return  to  the  normal  Level  11  BASIC  USR  routine. 
240  -  Part  of  the  sign-on  message  is  stored  here. 
250  -  This  will  cause  a  carriage  return  to  be  displayed  as  part  of  the 

sign-on  message. 
260  -  Part  of  the  sign-on  message  is  stored  here. 
270  -  This  will  cause  a  carriage  return  to  be  displayed  as  part  of  the 

sign-on  message. 
280  -  The  sign-on  message  terminator  is  stored  here. 
290  -  End  of  the  program. 

USING  THIS  NEW  COMMAND 

The  enhancement  to  the  USR  command  can  be  tested  with  a 
machine  language  subroutine  and  a  BASIC  program.  Listing  3-2 
presents  a  short  machine  language  subroutine  suitable  for  this 
demonstration.  Before  writing  a  BASIC  program  to  go  along  with 
this  machine  language  subroutine,  let's  first  consider  what  method 
will  be  used  to  interface  this  subroutine  with  a  BASIC  program. 
First  of  all,  the  machine  language  subroutine  is  short  and  doesn't 
have  any  zeros.  Can  you  guess  which  method  I  chose  for  interfac- 
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Hex 

Decimal 

CD 

205 

7F 

127 

OA 

10 

29 

41 

C3 

195 

9A 

154 

OA 

10 

Fig,  3-3.  Decimal  equivalents  for  the 
object  code  in  Listing  3-2. 


ing?  If  you  guessed  string  packing,  you're  absolutely  right.  In  order 
to  pack  the  subroutine  into  a  string,  we  must  first  determine  the 
object  code's  decimal  equivalent.  Figure  3-3  shows  the  decimal 
equivalent  for  the  object  code.  Next,  a  BASIC  program  such  as  the 
one  in  Listing  3-3  might  be  used  to  pack  the  string. 

Once  the  string  is  properiy  packed,  delete  lines  35-70  and  lines 
999-1000.  The  program  should  now  appear  as  in  Listing  3-4.  Now 
run  the  program.  As  you  can  see,  the  machine  language  subroutine 
simply  multiplies  the  value  passed  by  two.  Although  this  program 
demonstrates  how  the  enhanced  USR  command  is  used,  it  really 
doesn't  show  it's  advantages.  First  the  enhanced  USR  command 
eliminates  the  need  for  having  to  poke  the  starting  address  into 
memory.  This  will  cause  easier  program  development  and  faster 
program  execution.  One  added  benefit  is  also  caused  by  the  elimi- 
nation of  the  pokes.  Elimination  of  the  pokes  will  reduce  memory 
usage. 

Listing  3-2 


tlHUOO 

CD7F0A 

00100 

SUB 

CALL 

0A7FH 

0003 

29 

00110 

ADD 

HL,HL 

0004 

C39A0A 

00120 

JP 

0A9AH 

0000 

00130 

END 

SUB 

00000  TOTAL  ERRORS 


0000 


Listing  3-2  Comments 

100  -  Go  get  the  value  passed. 

110  -  Add  the  value  passed  in  register  pair  HL  to  itself.  The  result 

in  register  pair  HL  will  be  the  value  passed  times  two. 
120  -  Return  to  Level  II  BASIC  with  the  adjusted  value  in  register 

pair  HL. 
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130  -  End  of  the  program. 
Listing  3-3 

10  '  LISTINS  3.3 

20  '  ENHANCED  USR  DEMO  (BASIC) 

30  S$^"..... .. " 

35  '  PACK  THE  SUBROUTINE  INTO  S$ 

40  F0RN=0T06 

50  READB 

60  I«VARPTR<S$) sSA=PEEK<I+2>^256+PEEK<X+l) sPOKESA+n,B 

70  NEXTMsSTOP 

80  CLS 

90  F0RN='lT0i0 

100  PRINTNi"*  2  ="! 

1 10  I=VARPTR <S$) !  Ni==USRPEEK  <  1+2)  *256+PEEK  <  I  +  l )  ,  <N> 

120  PRINTNl 

130  NEXTN 

999  END 

1000  DATA20S, 127j 10,41, 195,  154,  10 


Listing  3-4 


10    '    LISTING   3.4 

20  "    ENHANCED  USR  DEMO  (BASIC) 

30  S$="+ 

) ERRD^FSNG 

80  CLS 

90  FORN-ITOIO 

100  PRINTNs"*  2  ="3 

110  I=:^VARPTR(S®):Nl=USRPEEK<I+2)*256+PEEK(I  +  U,  (N) 

120  PRINTNl 

130  NEXTN 


50 


Chapter  4 
Below  BASIC 


Have  you  ever  wondered  how  some  machine  language  utihties, 
such  as  DOS  or  Disk  BASIC,  can  operate  between  Level  II  BASIC 
and  the  BASIC  program  area?  Figure  4-1  presents  a  memory  map 
for  Level  II  BASIC.  Note  that  the  BASIC  program  area  immediately 
follows  the  Level  II  BASIC  interpreter.  Now  examine  the  memory 
map  in  Fig.  4-2,  which  shows  how  memory  would  be  configured  if  a 
DOS  or  Disk  BASIC  were  present.  A  DOS  or  Disk  BASIC  is  loaded 
into  memory  immediately  following  the  Level  II  BASIC  interpreter, 
and  the  BASIC  program  area  follows  the  DOS  or  Disk  BASIC  in 
memory. 

Wouldn't  it  be  nice  to  be  able  to  write  machine  language 
subroutines  that  could  reside  in  this  area  of  memory  between  the 
Level  II  BASIC  interpreter  and  the  BASIC  program  area?  Well,  it  is 
really  quite  simple  to  do.  All  that  has  to  be  done  is  to  tell  the  Level  II 
BASIC  interpreter  that  the  BASIC  program  area  will  be  located 
higher  in  memory  than  usual. 

MOVING  THE  BASIC  PROGRAM  AREA 

In  order  to  make  a  program  operate  below  the  BASIC  program 
area.  Level  II  BASIC  must  be  told  where  the  new  BASIC  program 
area  will  reside.  The  obvious  place  for  it  is  immediately  following 
the  machine  language  subroutine.  The  new  start  of  the  BASIC 
program  area  must  be  stored  at  memory  location  40A4H.  Memory 
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OOOOH 

Level  li  Basic 

42E8H 

42E9H 

Program  Area 

Simple  Variables 

Array  Variables 

Free  Memory 

Stack 

String  Space 

Reserved  Memory  (If  any) 

7FFFH 

End  of  Memory  -  16K 

BFFFH 

End  of  Memory  -  32K 

FFFFH 

End  of  Memory  -  48K 

Fig.  4-1.  Level  H  BASIC  memory  map. 

location  40A4H  is  used  by  Level  II  BASIC  to  point  to  the  first  byte 
available  for  BASIC  program  material. 

One  more  point  must  be  taken  into  consideration.  The  byte 
immediately  preceding  the  start  of  the  BASIC  program  area  must 


OOOOH 

Level  II  BASIC 

42E8H 

42E9H 

DOS 

Disk  BASIC 

Program  Area 

Simple  Variables 

Array  Variables 

Free  Memory 

Stack 

String  Space 

Reserved  Memory  (If  any) 

7FFFH 

End  of  Memory  -  16K 

BFFFH 

End  of  Memory  -  32K 

FFFFH 

End  of  Memory  -  48K 

Fig.  4-2.  Disk  BASIC  memory  map. 
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always  equal  zero  (OOH).  The  following  example  can  be  used  to 
meet  the  above  conditions. 


;  INITIALIZE  NEW  START  OF  BASIC 

LD  HL, BASIC 

OF  PROGRAM 
LD  (HL),0 

INC  HL 

LD  (^0A4h),HL 


POINT  TO  LAST  BYTE 
ZERO  THIS   BYTE 
BUMP  POINTER 
SAVE  BASIC  START 


BASIC  DEFB  0 

END 

Next  the  string  space  pointer  must  be  reset  in  order  to  assure 
proper  Level  II  BASIC  operation.  The  string  space  pointer  can  be 
reset  by  calling  the  ROM  routine  at  1E83H. 

Reset  String  Space  Pointer,  address  1E83H.  On 
entry  to  this  routine,  register  pair  DE  holds  the  number  of 
bytes  to  be  reserved  as  string  space.  The  routine  will 
reserve  the  amount  of  string  space  specified  and  reset  the 
string  space  pointer  to  it's  proper  position.  Level  II  BASIC 
reserves  50  bytes  of  string  space  on  initialization.  The 
following  example  meets  both  of  these  criteria. 

; RESET  THE  STRING  SPACE  POINTER 

;AND  RESERVE  50  BYTES  FOR  STRING  SPACE 

LD  DE,50  sNUBdBER  OF  BYTES 

CALL  1E83H  J  GO  TO  ROUTINE 

One  last  thing  must  be  done  for  proper  operation  of  Level  II 
BASIC.  The  simple  vanables  pomter,  the  array  variables  pointer, 
the  free  space  pointer,  and  other  miscellaneous  pointers  must  be 
reset.  This  is  easily  accomplished  by  calling  the  ROM  routine 
located  at  1B4DH. 

After  these  steps  have  been  completed  in  their  proper  order, 
Level  II  BASIC  will  function  properly  with  the  machine  language 
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subroutine  imbedded  between  the  Level  II  BASIC  interpnjter  and 
the  BASIC  program  area.  The  short  program  listing  in  Ing.  4-3 
presents  all  steps  necessary  to  write  programs  in  this  mfinner. 

TABBING  BEYOND  63 

Before  trying  to  write  your  own  program  using  this  m^^thod,  it 
may  be  best  to  study  the  example  presented  in  Listing  4-h  The 


; INSERT  YOUR  OWN  MATERIAL  WHERE  INDICATED 


START 


ORG 

42E9H 

CALL 

01C9H 

LD 

HL.m 

CALL 

2B75H 

LD 

HL, BASIC 

LD 

(HL),0 

LD 

(^0A4H),HL 

LD 

DE,50 

CALL 

1B83H 

CALL 

IBifDH 

! CLEAR  THE  SCREEN 

; POINT  TO  MESSAGE 

{DISPLAY  mSSAGi: 

J POINT  TO  BASIC  START 

I  ZERO  IT 

I  SAVE  BASIC  STAF.T 

l#  OF  BYTES  TO  F:ESERVE 

I  RESET  STRING  SI'ACE 

S RESET  BASIC  POINTERS 


(INSERT  ANY  DISK  BASIC  OR  DOS  LINKS  HERE 


JP        0072H         I  RETURN  TO  LEVE3.  II 
J  INSERT  ANY  PROGRAM  MATERIAL  HERE 


Ml 


DEFM 


•INSERT  SIGN  ON  MESSAGE  HERE' 


BASIC 


DEFB 
END 


0 
START 


Fig.  4-3.  Below  BASIC. 
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program  enhances  the  Level  II  TAB  command  so  that  it  will  permit 
TABs  greater  than  63  on  the  printer.  If  your  computer  has  the  newer 
Level  II  BASIC  ROMs,  this  TAB  extender  isn^t  necessary;  but  you 
should  study  the  program  to  better  understand  this  Below  BASIC 
interfacing  method. 

The  program  starts  by  clearing  the  screen  and  displaying  a 
sign-on  message.  Next,  the  program  sets  the  start  of  the  BASIC 
program  area  to  the  end  of  the  TAB  enhancer  program.  String  space 
is  reserved  and  the  pointers  are  reset.  Then,  the  program  links  with 
the  TAB  routine  via  the  DOS  link  located  at  41D3H.  Once  this  link 
is  set,  program  control  is  returned  to  Level  II  BASIC. 

Now  that  tiie  program  is  linked  with  Level  II  BASIC,  every 
time  a  TAB  statement  is  encountered,  the  Level  II  BASIC  in- 
terpreter will  branch  to  the  machine  language  subroutine  via  the 
DOS  link.  The  subroutine  first  checks  to  see  if  the  current  output 
device  is  the  printer.  This  is  accomplished  by  loading  the  contents 
of  409CH,  the  current  output  device  flag,  into  register  A.  Next, 
register  A  is  ORed  with  itself  to  set  the  flags.  This  causes  a  RET  M 
if  the  cassette  is  the  current  output  device  and  a  RET  Z  if  the  video 
display  is  the  current  output  device. 

DOS  link  41D3H  is  called  from  two  locations.  These  locations 
are  2108H  and  2141H.  The  TAB  command  calls  this  DOS  link  from 
2141H.  Therefore,  the  return  address  must  be  checked  to  insure 
that  the  DOS  link  was  called  from  2141H  and  not  from  2108H.  If  the 
DOS  link  was  called  from  2108H,  the  return  address  on  the  stack 
will  be  210BH.  Note  that  the  MSB  for  both  calls  is  21H.  Therefore, 
it  is  only  necessary  to  check  the  LSB  of  the  return  address.  If  the 
LSB  of  die  return  address  is  equal  to  OBH,  the  subroutine  will 
return  to  the  Level  II  BASIC  routine  which  called  the  DOS  link. 

Once  the  return  address  has  been  checked  for  it's  proper  value, 
the  subroutine  discards  the  return  address.  The  return  address  can 
be  discarded  because  program  control  will  be  returned  to  the  Level 
II  BASIC  interpreter  by  a  JP  214EH.  Next,  the  BASIC  program 
pointer  is  taken  off  the  stack  and  placed  in  register  pair  HL.  On 
entry  to  the  DOS  link,  it  points  past  the  TAB(N)  statement.  There- 
fore, it  is  necessary  to  back  up  the  pointer  to  the  TAB(  keyword. 
Because  BASIC  stores  keywords  in  memory  as  one  byte  values,  the 
program  searches  for  a  byte  equal  to  BCH.  BCH  is  the  value  Level  II 
BASIC  gives  to  TAB(.  Once  the  TAB(  keyword  is  located,  the 
subroutine  evaluates  the  TAB  position  by  calling  the  ROM  routine 
located  at  2B1BH  and  places  die  result  in  register  A. 

Evaluate  Expression,  address  2B1BH.  This  rou- 
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tine  first  bumps  the  BASIC  program  pointer  to  the  first 
character  of  the  expression  via  the  RST  OOIOH.  The  ex- 
pression is  then  evaluated  and  the  8-bit  result  is  returr.ed  in 
register  A.  On  exit,  the  BASIC  program  pointer  in  repster 
pair  HL,  will  point  to  the  byte  immediately  following  the 
expression. 

The  TAB  is  transferred  from  register  A  to  register  E  because, 
upon  return  to  Level  II  BASIC,  the  TAB(N)  command  will  expect 
the  TAB  position  to  be  in  register  E.  Next  a  sjmtax  check  is  made. 
Then,  the  BASIC  program  pointer  is  decremented  and  placed  on  the 
stack.  Control  is  then  returned  to  Level  II  BASIC,  by  a  JP  214EH. 

Program  Listing  4-2  is  a  short  BASIC  program  which  will  test 
the  TAB  enhancer  program.  Note  that  with  the  TAB  enhancer 
program.  Level  II  BASIC  will  do  any  TAB  from  0  to  255  on  a  printer. 

Listing  4-1 


42E9 

00100 

ORG 

42E9H 

42E9 

CDC901 

00110  START 

CALL 

01C9H 

42EC 

213343 

00120 

LD 

HL.Ml 

42EF 

CD752B 

00130 

CALL 

2B75H 

42F2 

215143 

00140 

LD 

HL, BASIC 

42F5 

3600 

00150 

LD 

(HL),0 

42F7 

23 

00160 

INC 

HL 

^2F8 

22A440 

00170 

LD 

<40A4H) ,HL 

42FB 

113200 

00180 

LD 

DE,50 

42FE 

CDS31E 

00190 

CALL 

1E83H 

4301 

CD4D1B 

00200 

CALL 

iB4DH 

4304 

3EC3 

00210 

LD 

AjOC3H 

4306 

32D341 

00220 

LD 

(41D3H) ,A 

4309 

211243 

00230 

LD 

HL.TAB 

430C 

22D441 

00240 

LD 

<4iD4H),HL 

430F 

C37200 

00250 

JP 

0072H 

4312 

3A9C40 

00260  TAB 

LD 

A, <409CH) 

4315 

B7 

00270 

OR 

A 

4316 

pg 

00280 

RET 

H 

4317 

C8 

00290 

RET 

Z 

4318 

E3 

00300 

EX 

<SP),HL 

4319 

3E0B 

00310 

LD 

A,OBH 

431B 

BD 

00320 

CP 

L 

431C 

2002 

00330 

JR 

N2,TAB1 

431E 

E3 

00340 

EX 

<SP),HL 

431F 

C9 

00350 

RET 

4320 

El 

00360  TAB! 

POP 

HL 

4321 

El 

00370 

POP 

HL 

4322 

2B 

00380  TAB2 

DEC 

HL 

4323 

7E 

00390 

LD 

A, (HL> 

4324 

FEBC 

00400 

CP 

OBCH 

4326 

20FA 

00410 

JR 

NZ,TAB2 

4328 

CD1B2B 

00420 

CALL 

2B1BH 

432B 

5F 

00430 

LD 

E,A 

432C 

CF 

00440 

RST 

0008H 

432D 

29 

00450 

DEFB 

'  )  ' 

432E 

2B 

00460 

DEC 

HL 

432F 

ES 

00470 

PUSH 

HL 

4330 

C34E2i 

00480 

JP 

214EH 

4333 

54 

00490  m 

DEFM 

'TAB  EXTENDER 
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4334 

41 

433S 

42 

4336 

20 

4337 

45 

4338 

58 

4339 

54 

433A 

45 

433B 

4E 

433C 

44 

433D 

45 

433E 

52 

^ZZF 

OD 

00500 

DEFB 

13 

4340 

42 

00510 

DEFM 

'BY  MARK  GOODWIN 

4341 

59 

4342 

20 

4343 

4D 

4344 

41 

4345 

52 

4346 

4B 

4347 

20 

4348 

47 

4349 

4F 

434A 

4F 

434B 

44 

434C 

57 

434D 

49 

434E 

4E 

434F 

OD 

00520 

DEFB 

13 

4350 

00 

00S30 

DEFB 

0 

4351 

00 

00540  BASIC 

DEFB 

0 

42E9 

00550 

END 

START 

00000  TOTAL  ERRORS 

TAB2 

4322 

TABl 

4320 

TAB 

4312 

BASIC 

4351 

Ml 

4333 

START 

42E9 

Listing  4-1  Comments 

100  -  Set  the  program's  starting  address  to  the  normal  start  of  the 

BASIC  program  area. 
110  -  Go  clear  the  screen. 
120  -  Load  register  pair  HL  with  the  starting  address  for  the 

message  to  be  displayed. 
130  -  Go  display  the  message. 
140  -  Load  register  pair  HL  with  the  end  of  the  TAB  enhancer 

program. 
150  -  Zero  the  address  at  the  location  of  the  start  of  the  BASIC 

program  area  pointer  in  register  pair  HL. 
160  -  Bump  the  start  of  the  BASIC  program  area  pointer  in  register 

pair  HL. 
170  -  Save  the  start  of  the  BASIC  program  area  pointer  in  register 

pair  HL. 
180  -  Load  register  pair  DE  with  the  number  of  bytes  to  be  re- 
served as  string  space. 
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190  -  Go  reserve  string  space  and  reset  the  string  space  jpointer. 

200  -  Go  reset  the  BASIC  pointers  and  variables. 

210  -  Load  register  A  with  a  JP  op  code. 

220  -  Save  theJP  op  code  in  register  A  as  the  first  byte  of  the  DOS 

hnk. 
230  -  Load  register  pair  HL  with  the  starting  address  of  the  TAB 

enhancer  program. 
240  -  Save  the  starting  address  of  the  TAB  enhancer  program  in 

register  pair  HL  as  the  second  and  third  bytes  of  the  DOS 

hnk. 
250  -  Jump  to  the  Level  II  BASIC  READY  routine. 
260  -  Load  register  A  with  the  current  output  device  code. 
270  -  Set  the  flags  according  to  the  current  output  device  code  in 

register  A. 
280  -  Return  if  the  current  output  device  is  the  cassette, 
290  -  Return  if  the  current  output  device  is  the  video  display. 
300  -  Exchange  the  value  in  register  pair  HL  with  tha  return 

address  on  the  stack. 
310  -  Load  register  A  with  the  LSB  of  the  return  address  to  check 

for. 
320  -  Check  to  see  if  the  return  address  to  be  checked  for  in 

register  A  is  the  same  as  the  LSB  of  the  return  acidress  in 

register  L. 
330  -  Jump  if  the  LSB  of  the  return  address  in  register  L  doesn't 

match  the  value  in  register  A. 
340  -  Exchange  the  return  address  in  register  pair  HL  with  value 

on  the  stack. 
350  -  Return. 

360  -  Get  the  value  from  the  stack  and  put  it  in  register  pair  HL. 
370  -  Get  the  correct  BASIC  program  pointer  firom  the  stack  and 

put  in  register  pair  HL. 
380  -  Decrement  the  current  BASIC  program  pointer  in  register 

pair  HL. 
390  -  Load  register  A  with  the  character  at  the  location  of  the 

current  BASIC  program  pointer  in  register  pair  H  L. 
400  -  Check  to  see  if  the  character  in  register  A  is  a  TAB( 

keyword. 
410  -  Jump  if  the  character  in  register  A  isn't  a  TAB(  k<iyword. 
420  -  Go  evaluate  the  expression  at  the  location  of  the  current 

BASIC  program  pointer  in  register  pair  HL  and  return  with 

the  8-bit  result  in  register  A. 
430  -  Load  register  E  with  the  TAB  value  in  register  A. 
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440  -  Go  check  the  syntax.  The  byte  at  the  location  of  the  current 

BASIC  program  pointer  in  register  pair  HL  must  be  a  ). 
450  -  The  character  to  be  checked  for  is  stored  here. 
460  -  Decrement  the  current  BASIC  program  pointer  in  register 

pair  HL. 
470  -  Save  the  current  BASIC  program  pointer  in  register  pair  HL 

on  the  stack. 
480  -  Jump  to  the  Level  II  BASIC  TAB  routine. 
490  -  Part  of  the  sign-on  message  is  stored  here. 
500  -  This  will  display  a  carriage  return  as  part  of  the  sign-on 

message. 
510  -  Part  of  the  sign-on  message  is  stored  here. 
520  -  This  will  display  a  carriage  return  as  part  of  the  sign-on 

message. 
530  -  The  sign-on  message  terminator  is  stored  here. 
540  -  The  new  start  of  the  BASIC  program  area  will  start  here. 
550  -  End  of  the  program. 

Listing  4-2 

10    '    LISTING    4.2 

20    '     TAB    EXTENDER    DEMO 

30    F0RN=^0TOi31 

40    LPRINTTAB<N) "*" 

50    NEXTN 
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Chapter  5 

Adding  New  BASIC  Commands 


Although  the  Disk  BASIC  links  can  be  used  to  add  new  commands, 
the  name  of  a  new  command  is  limited  to  the  names  for  the  existing 
Disk  BASIC  commands.  Wouldn't  it  be  nice  to  be  able  to  use 
SOUND  as  the  name  for  the  new  BASIC  command  whicli  would 
send  sound  out  the  cassette  port?  This  chapter  presents  a  method 
that  enables  you  to  add  new  BASIC  commands  and  give  these  new 
commands  any  name  you  desire.  Although  this  method  does  have  a 
few  limitations,  it  is  preferable  to  other  methods  for  adding  new 
BASIC  commands. 

INTERCEPTING  ERRORS 

This  method  uses  a  DOS  link  at  41A6H.  This  DOS  link  is  called 
by  the  Level  II  BASIC  error  routine.  It's  primary  function  is  to 
branch  to  Disk  BASIC  so  that  Disk  BASIC  can  display  spelled-out 
error  messages.  On  entry  to  this  DOS  link,  register  E  hDlds  the 
error  code.  The  routine  must  check  this  error  code  to  see  if  a  syntax 
error  has  occurred.  Register  E  must  be  checked  for  the  syntax  error 
code  because  using  a  new  name  for  a  BASIC  command  which  isn't 
part  of  the  reserved  words  list  will  cause  a  syntax  error.  Try  typing 
DSET(0,16)  followed  by  pressing  ENTER  on  your  computer.  You 
will  get  a  syntax  error  everytime  it  is  entered.  Therefore,  the 
program  must  check  for  a  syntax  error.  If  an  error  occurs  an  d  it  isn't 
a  syntax  error,  the  program  will  have  to  return  from  the  DOS  link 
witihout  any  further  processing.  If  a  syntax  error  does  occur,  regis- 
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ter  E  will  be  equal  to  two.  A  routine  which  would  handle  the  above 
check  could  be  written  like  this. 

;SAVE  AF 

;PUT  ERROR  CODS  IN  A 
;  CHECK  FOR  SN  ERROR 
NZ,NOSN     J  IF  NOT  THEN  RETURN 


PUSH 

AF 

LD 

A,S 

CP 

2 

JR 

NZ,] 

NOSN  POP  AF  J  GET  AF 

RET  ;  RETURN  FROM  DOS   LINK 

Once  it  has  been  determined  that  a  syntax  error  has  occurred, 
the  program  must  check  the  syntax  error  to  see  if  it  is  one  of  the  new 
commands.  Memory  location  40E6H  contains  the  position  of  the 
BASIC  program  pointer  just  before  the  error  occurred.  The  pro- 
gram pointer  will  point  to  one  of  the  two  possibilities  as  shown  in 
Fig.  5-1. 

As  shown  in  Fig.  5-1,  if  the  syntax  error  occurred  at  the  start  of 
the  new  line;  memory  location  40E6H  will  point  to  the  end  of  the 
last  BASIC  line.  Therefore,  the  value  contained  in  memory  location 
40E6H  must  be  incremented  by  four  to  point  to  die  byte  im- 
mediately preceding  the  error.  If  the  error  occurs  inside  of  a  BASIC 
program  line,  memory  location  40E6H  will  already  be  pointing  to 
the  byte  immediately  preceding  the  error. 

Once  the  error  location  has  been  determined,  the  syntax  error 
must  be  checked  to  see  if  it  matches  a  new  command.  If  you  were 
going  to  add  just  one  new  command,  a  simple  byte  by  byte  compari- 


OOH 


OOH 


Location  of 
next  line 
(2  bytes) 

Location  of 
next  iine 
(2  bytes) 


Line  number 
(2  bytes) 


Line  number 
(2  bytes) 


DSET(ai6) 


X=N:DSET(3,47) 

t 


Fig.  5-1 .  BASIC  program  pointer  positions. 
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son  would  be  the  easiest  method  to  use  for  the  syntax  check.  If  more 
than  one  command  is  to  be  added,  a  table  search  would  probably  be 
the  best  method. 

If  the  syntax  error  matches  a  new  command,  the  program 
should  jump  to  the  proper  function.  Also,  the  program  sliould  set 
memory  location  409AH  to  zero.  Memory  location  409AH  is  used 
by  Level  II  BASIC  as  an  error  flag.  To  return  to  Level  II  BASIC  after 
the  error,  the  return  address  should  be  removed  from  the  stack  and 
a  JP  IDIEH  should  be  used. 

Kthe  syntax  error  doesn't  match  a  new  command,  the  program 
should  return  to  the  ERROR  routine  via  the  DOS  link  return  ad- 
dress on  the  stack. 

DOUBLE  WIDTH  GRAPHICS 

The  next  program  adds  two  new  commands  to  Level  II  BASIC. 
These  commands  enable  the  use  of  double  width  grapliics.  The 
syntax  for  these  two  new  commands  and  the  new  ROM  routines  are 
as  follows. 

DSET{X,Y).  This  command  ^m\\  set  a  double  'mdth 
graphics  point  on  the  video  display  at  the  coordinates 
specified  by  X  and  Y. 

X  must  be  >  =  0  and  <  =  63- 

Y  must  be  >  =  0  and  <  =  4?, 

For  example  10  DSET(0.32)  would  be  the  same  as 
10  SET(0,32):SET(1,32). 
DRESET(X,Y).  This  command  will  reset  a  double 
width  graphics  point  on  the  video  display  at  the  coordinates 
specified  by  X  and  Y. 

X  must  be>=0  and<  =  63 

y  must  be  >  =  0  and  <  =  ^7 

For  example,  10  DRESET(5,16)  is  the  same  as 
10  RESET(10,16):RESET(11,16). 

Evaluate  Expression,  address  2B1CH.  This 
routine  evaluates  the  expression  at  the  current  location  of 
the  BASIC  program  pointer  in  register  pair  HL.  The  8-bit 
result  is  returned  in  register  A.  On  exit,  the  BASIC  pro- 
gram pointer  will  point  to  the  byte  immediately  following 
the  expression. 

Check  Syntax  and  Evaluate  Expression,  address 
2B17H.  This  routine  will  first  do  a  syntax  check  h-efore 
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evaluating  the  expression.  The  expression  must  be  pre- 
ceded by  a  comma  or  a  syntax  error  will  result.  The  rest  of 
the  routine  functions  the  same  as  the  ROM  routine  at 
2B1CH  described  above. 

FC  ERROR  Routine,  address  1E4AH.  This  routine 
will  jump  to  the  Level  II  BASIC  error  routine  and  output  a 
FC  ERROR  message. 

Graphics,  address  0150H.  This  routine  will  perform 
the  SET.  RESET,  and  POINT  graphic  functions.  On  entry, 
the  stack  should  have  the  following  values: 

1.  The  return  address 

2.  The  graphic  flag-OOH  POINT,  OIH  RESET  and  80H 
SET 

3.  The  X  value 

Register  A  should  hold  the  Y  value.  Register  pair  HL  should 
point  to  a)  character  because  this  routine  will  perform  a  syntax 
check  upon  completion.  Memory  location  018DH  is  equal  to  a) 
character,  so  register  pair  HL  should  point  to  this  location.  The 
following  example  illustrates  these  points. 


jSET(1.30) 


LD    HL,END 
PUSH   HL 


jPOINT  TO  RETORN  ADDRESS 
;PUT  IT  ON  STACK 


END 


LD  A,80H  ?A=SET  MODE 

PUSH  AF  ;PUT  IT  ON  STACK 

LD  A,l  ;A  =  X  VALUE 

PUSH  AF  ;PUT  IT  ON  STACK 

LD  A, 30  ;A  =  ir  VALUE 

LD  HL,018DH  jHL^DUBOMY  PROGRAM  POINTER 

JP  0150H  ;G0  DO  GRAPHICS 

^RETURN  HERE  ON  COMPLETION 


The  program  in  Listing  5-1  uses  a  table  search  for  syntax 
checks.  Note  that  the  commands  are  not  searched  for  a  DSET  and 
DRESET.  This  is  because  both  new  commands  contain  reserved 
words  and  the  BASIC  interpreter  will  store  all  keywords  as  one 
byte  values.  So  whenever  a  new  command  uses  a  reserved  word  in 
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it's  syntax,  the  one  byte  value  must  be  compared  for  proper  check- 
ing. Also,  reserved  words  can't  be  used  to  start  a  new  command 
name.  Such  words  as  SETS  and  PUTON  would  be  illegal  uses  of 
reserved  words. 

As  mentioned  at  the  start  of  this  chapter,  there  are  a  few 
limitations  with  this  method.  The  reserved  word  limitation  is  one 
and  the  IF.  THEN.  ELSE  structure  is  another.  The  newly  created 
words  cannot  be  used  inside  of  the  IF. THEN.ELSE  statements  as 
this  example  shows. 

This  would  not  work  properly. 

100  IFX=1TH£NDSET(1,0)ELSEDRESET(1,0) 

But  this  would  be  alright. 

100  IFX=1THEN110ELSE120 
110  DSET(1,0):G0T0130 
120  DRESET(1,0) 

Finally,  Listing  5-2  presents  a  program  which  will  dem- 
onstrate the  use  of  DSET  and  DRESET.  Although  Listing:  5-1  only 
adds  two  new  commands,  it  is  easily  modified  to  add  more. 

Listing  5-1 


42E9 

00100 

ORS 

42E9H 

42E9 

CDC901 

00110  START 

CALL 

0iC9H 

42EC 

21CA43 

00120 

LD 

HL,Ni 

42EF 

CD752B 

00130 

CALL 

2B75H 

42F2 

21F143 

00140 

LD 

HL, BASIC 

42F5 

3600 

00150 

LD 

(HL),0 

42F7 

23 

00160 

INC 

ML 

42F8 

22A440 

00170 

LD 

<40A4H),HL 

42FB 

113200 

00180 

LD 

DE,50 

42FE 

CD831E 

00190 

CALL 

lEa3H 

4301 

CD4D1B 

00200 

CALL 

1B4DH 

4304 

3EC3 

00210 

LD 

A5OC3H 

4306 

32A64 1 

00220 

LD 

(41A6H) ,A 

4309 

211243 

00230 

LD 

HL, DOUBLE 

430C 

22A74i 

00240 

LD 

<41A7H) jHL 

430F 

C37200 

00250 

3P 

0072H 

4312 

F5 

00260  DOUBLE 

PUSH 

AF 

4313 

7B 

00270 

LD 

A,E 

4314 

FE02 

00280 

CP 

2 

4316 

2060 

00290 

JR 

NZ , NOSN 

4318 

E5 

00300 

PUSH 

HL 

4319 

05 

00310 

PUSH 

DE 

431A 

2AE640 

00320 

LD 

HL, <40E6H) 

43iD 

AF 

00330 

XOR 

A 

431E 

BE 

00340 

CP 

<HL> 

431F 

2004 

00350 

JR 

NZ,D0U1 

4321 

23 

00360 

INC 

HL 

4322 

23 

00370 

INC 

HL 

64 


4323 

23 

00380 

INC 

HL 

4324 

23 

00390 

INC 

HL 

4325 

D7 

00400 

OOUi 

RST 

001  OH 

4326 

22C243 

00410 

LD 

(VI), HL 

4329 

32C843 

00420 

LO 

<V4>,A 

432C 

216C43 

00430 

LO 

HL, TABLE 

432F 

OlOAOO 

00440 

LD 

BC,iO 

4332 

EDBl 

00450 

LI 

CPIR 

4334 

2040 

00460 

JR 

NZ.SNE 

4336 

22C443 

00470 

LO 

<V2) ,HL 

4339 

ED43C643 

00480 

LD 

<V3),BC 

433D 

EB 

00490 

EX 

DE,HL 

433E 

2AC243 

00500 

LD 

HL, (VI) 

4341 

23 

00510 

L2 

INC 

HL 

4342 

lA 

00520 

LO 

A, <0E) 

4343 

BE 

00530 

CP 

(HL) 

4344 

2008 

00540 

JR 

NZ,L3 

4346 

13 

005S0 

INC 

DE 

4347 

lA 

00560 

LO 

A,  (DE) 

4348 

FEOO 

00570 

CP 

0 

434A 

280E 

00580 

JR 

Z,L4 

434C 

18F3 

00590 

JR 

L2 

434E 

2AC443 

00600 

L3 

LD 

HL, (V2) 

4351 

ED4BC643 

00610 

LD 

BC, <V3) 

4355 

3AC843 

00620 

LD 

A, (V4> 

4358 

1808 

00630 

JR 

LI 

435A 

22E640 

00640 

L4 

LO 

(40E6H),HL 

435D 

EB 

00650 

EX 

OE,HL 

435E 

23 

00660 

INC 

HL 

435F 

5E 

00670 

LO 

E, <HL> 

4360 

23 

00680 

INC 

HL 

4361 

56 

00690 

LD 

0, (HL) 

4362 

EB 

00700 

EX 

DE,HL 

4363 

Fi 

00710 

POP 

AF 

4364 

Fi 

00720 

POP 

AF 

4365 

Fi 

00730 

POP 

AF 

4366 

FI 

00740 

POP 

AF 

4367 

AF 

00750 

XOR 

A 

4368 

329A40 

00760 

LD 

<409AH) ,A 

436B 

E9 

00770 

JP 

(HL) 

436C 

44 

00780 

TABLE 

DEFB 

'0' 

436D 

83 

00790 

OEFB 

83H 

436E 

00 

00800 

DEFB 

0 

436F 

7E43 

00810 

DEFW 

DON 

4371 

44 

00820 

DEFM 

'D' 

4372 

82 

00830 

DEFB 

82H 

4373 

00 

00840 

DEFB 

0 

4374 

7A43 

00850 

DEFW 

DOFF 

4376 

Dl 

00860 

SHE 

POP 

DE 

4377 

El 

00870 

POP 

HL 

4378 

FI 

00880 

NOSN 

POP 

AF 

4379 

C9 

00890 

RET 

437A 

3E01 

00900 

OOFF 

LD 

A,01H 

437C 

1802 

00910 

JR 

GR3 

437E 

3E80 

00920 

DON 

LD 

A,80H 

4380 

32C943 

00930 

GR3 

LO 

(GFLAG>,A 

4383 

2AE640 

00940 

LO 

HL, (40E6H) 

4386 

07 

00950 

RST 

001  OH 

4387 

GF 

00960 

RST 

OOOSH 

4388 

28 

00970 

DEFB 

'  (' 

4389 

C0iC2B 

00980 

CALL 

2B1CH 

43SC 

FE40 

00990 

CP 

64 

438E 

D24A1E 

01000 

JP 

NC, 1E4AH 

4391 

F5 

01010 

PUSH 

AF 

4392 

CD172B 

01020 

CALL 

2B17H 

4395 

FE30 

01030 

CP 

48 

4397 

D24A1E 

01040 

JP 

NC, 1E4AH 

439A 

F5 

01050 

PUSH 

AF 

65 


439B 

CD8C01 

01060 

CALL 

oiacH 

439E 

Fl 

01070 

POP 

AF 

439F 

5F 

01080 

LD 

E,A 

43A0 

Fl 

01090 

POP 

AF 

43A1 

87 

01100 

ADD 

A, A 

43A2 

57 

OHIO 

LD 

D,A 

43A3 

E5 

01120 

PUSH 

HL 

43A4 

D5 

01130 

PUSH 

DE 

43A5 

3AC943 

01140 

LD 

A, (GFLAG) 

43A8 

CDB943 

01150 

CALL 

GRAPH 

43AB 

Dl 

01160 

POP 

DE 

43AC 

14 

01170 

INC 

D 

43AD 

3AC943 

01180 

LD 

A, (GFLAG) 

43B0 

CDB943 

01190 

CALL 

GRAPH 

43B3 

El 

01200 

POP 

HL 

43B4 

2B 

01210 

DEC 

HL 

43B5 

D7 

01220 

RST 

001  OH 

43B6 

C31E1D 

01230 

JP 

IDIEH 

43B9 

F5 

01240 

GRAPH 

PUSH 

AF 

43BA 

D5 

01250 

PUSH 

DE 

43BB 

7B 

01260 

LD 

A,E 

43BC 

218001 

01270 

LD 

HL,01SDH 

43BF 

C35001 

01280 

JP 

0150H 

43C2 

0000 

01290 

VI 

DEFUJ 

0 

43C4 

0000 

01300 

V2 

DEFW 

0 

43C6 

0000 

01310 

V3 

DEFW 

0 

43CS 

OCt 

01320 

V4 

DEFB 

0 

43C9 

00 

0 1 330 

GFLAG 

DEFB 

0 

43CA 

44 

01340 

Ml 

DEFM 

'DOUBLE  WIDTH  GRAPHICS 

43CB 

4F 

43CC 

55 

43CD 

42 

43CE 

4C 

OCF 

45 

43D0 

20 

43D1 

57 

43D2 

49 

43D3 

44 

43D4 

54 

43D5 

48 

43D6 

20 

43D7 

47 

43D8 

52 

43D9 

41 

43DA 

50 

43DB 

48 

43DC 

49 

43DD 

43 

43DE 

53 

43DF 

OD 

01350 

DEFB 

13 

43E0 

42 

01360 

DEFM 

'BY  HARK  GOODWIN' 

43E1 

59 

43E2 

20 

43E3 

4D 

43E4 

41 

43E5 

52 

43E6 

4B 

43E7 

20 

43E8 

47 

43E9 

4F 

43EA 

4F 

43EB 

44 

43EC 

57 

43ED 

49 

43bb 

4£ 

43EF 

OD 

01370 

DEFB 

13 

43F0 

00 

01380 

DEFB 

0 

43F1 

00 

01390 

BASIC 

DEFB 

0 

66 


42E9 

01400 

00000 

TGTAL  ERRORS 

GRAPH 

43B9 

GFLAS 

43C9 

GR3 

4380 

DOFF 

437A 

DON 

437E 

L4 

435A 

L3 

434E 

L2 

4341 

V3 

43C6 

V2 

43C4 

SNE 

4376 

LI 

4332 

TABLE 

436C 

V4 

43C8 

VI 

43C2 

DGUl 

4325 

NOSN 

4378 

DOUBLE 

4312 

BASIC 

43F1 

Ml 

43CA 

START 

42E9 

END  START 


Listing  5-1  Comments 

100  -  Set  the  starting  address  to  the  normal  start  of  the  BASIC 
program  area, 

110  -  Go  clear  the  screen. 

120  -  Load  register  pair  HL  with  the  starting  address  for  the 
message  to  be  displayed. 

130  -  Go  display  the  message. 

140  -  Load  register  pair  HL  with  the  ending  address  of  the  pro- 
gram. 

150  -  Zero  the  location  of  the  start  of  the  BASIC  program  area  in 
register  pair  HL. 

160  -  Bump  the  start  of  the  BASIC  program  area  pointer  in 
register  pair  HL. 

170  -  Save  the  start  of  the  BASIC  program  area  pointer  in  regis- 
ter pair  HL. 

180  -  Load  register  pair  DE  with  the  number  of  bytes  to  be 
reserved  for  string  space. 

190  -  Go  reserve  string  space  and  reset  the  string  space  pointer. 

200  -  Go  reset  the  BASIC  pointers  and  variables. 

210  -  Load  register  A  with  a  JP  op  code. 

220  -  Save  the  JP  op  code  in  register  A  as  the  first  byte  of  the  DOS 
link. 

230  -  Load  register  pair  HL  with  the  starting  address  of  the 
double  width  graphics  routine. 

240  -  Save  the  starting  address  of  the  double  -width  graphics 
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routine  in  register  pair  HL  as  the  second  and  third  bytes  of 

the  DOS  link. 
250  -  Jump  to  tlie  Level  II  BASIC  READY  routine. 
260  -  Save  the  value  in  register  pair  AF  on  the  stack. 
270  -  Load  register  A  with  the  error  code  in  register  E. 
280  -  Check  to  see  if  the  error  code  in  register  A  is  a  syntax  error 

code. 
290  -  Jump  if  the  error  code  in  register  A  isn't  a  syntax  enor  code. 
300  -  Save  the  value  in  register  pair  HL  on  the  stack. 
310  -  Save  the  value  in  register  pair  DE  on  the  stack, 
320  -  Load  register  pair  HL  with  the  syntax  error  location. 
330  -  Zero  register  A. 
340  -  Check  to  see  if  the  character  at  the  location  of  the;  current 

BASIC  program  pointer  in  register  pair  HL  is  equal  to  zero. 
350  -  Jump  if  the  character  at  the  location  of  the  current  BASIC 

program  pointer  in  register  pair  HL  isn't  equal  to  zero. 
360  -  Bump  die  current  BASIC  program  pointer  in  register  pair 

HL. 
370  -  Bump  the  current  BASIC  program  pointer  in  register  pair 

HL, 
380  -  Bump  die  current  BASIC  program  pointer  in  register  pair 

HL. 
390  -  Bump  the  current  BASIC  program  pointer  in  register  pair 

HL. 
400  -  Go  bump  the  current  BASIC  program  pointer  in  register 

pair  HL  till  it  points  to  the  next  character, 
410  -  Save  die  current  BASIC  program  pointer  in  register  pair 

HL. 
420  -  Save  die  character  at  the  location  of  the  current  BASIC 

program  pointer  in  register  A. 
430  -  Load  register  pair  HL  with  die  starting  address  of  the 

command  jump  table. 
440  -  Load  register  pair  BC  with  the  length  of  the  command  jump 

table. 
450  -  Go  search  for  the  character  in  register  A  in  the  command 

jump  table. 
460  -  Jump  if  the  character  in  register  A  wasn't  found  in  die 

command  jump  table. 
470  -  Save  die  current  command  jump  table  pointer  in  register 

pair  HL. 
480  -  Save  the  remaining  length  of  the  command  jump  table  in 

register  pair  BC. 
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490  -  I^ad  register  pair  DE  with  the  current  command  jump  table 

pointer  in  register  pair  HL. 
500  -  Load  register  pair  HL  with  the  current  BASIC  program 

pointer. 
510  -  Bump  the  current  BASIC  program  pointer  in  register  pair 

HL. 
520  -  Load  register  A  with  the  character  at  the  location  of  the 

current  command  jump  table  pointer  in  register  pair  DE. 
530  -  Check  to  see  if  the  character  at  the  location  of  the  current 

BASIC  program  pointer  in  register  pair  HL  matches  the 

character  at  the  location  of  the  current  jump  table  pointer  in 

register  A. 
540  -  Jump  if  the  character  at  the  location  of  the  current  BASIC 

program  pointer  in  register  pair  HL  doesn't  match  the 

character  at  the  location  of  the  current  jump  table  pointer  in 

register  A. 
550  -  Bump  the  current  command  jump  table  pointer  in  register 

pair  DE. 
560  -  Load  register  A  with  the  character  at  the  location  of  the 

command  jump  table  pointer  in  register  pair  DE. 
570  -  Check  to  see  if  the  character  at  the  location  of  the  command 

jump  table  pointer  in  register  A  is  equal  to  zero. 
580  -  Jump  if  the  character  at  the  location  of  the  command  jump 

table  pointer  in  register  A  is  equal  to  zero. 
590  -  Continue  comparison. 
600  -  Load  register  pair  HL  with  the  current  command  jump  table 

pointer. 
610  -  Load  register  pair  BC  with  the  remaining  length  of  the 

command  jump  table  to  be  searched. 
620  -  Load  register  A  with  the  character  to  be  searched  for. 
630  -  Jump. 
640  -  Save  the  current  BASIC  program  pointer  in  register  pair 

HL. 
650  -  Load  register  pair  HL  with  the  current  command  jump  table 

pointer  in  register  pair  DE. 
660  -  Bump  the  current  command  jump  table  pointer  in  register 

pair  HL. 
670  -  Load  register  E  with  the  LSB  of  the  jump  address  at  the 

location  of  the  command  jump  table  pointer  in  register  pair 

HL. 
680  -  Bump  the  command  jump  table  pointer  in  register  pair  HL. 
690  -  Load  register  D  with  the  MSB  of  the  jump  address  at  the 
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location  of  the  command  jump  table  pointer  in  regis;ter  pair 
HL. 
700  -  Load  register  pair  HL  with  the  jump  address  in  register  pair 

DE. 
710  -  Clean  up  the  stack. 
720  -  Clean  up  the  stack. 
730  -  Clean  up  the  stack. 
740  -  Clean  up  the  stack. 
750  -  Zero  register  A. 
760  -  Clear  the  Level  II  BASIC  error  flag. 
770  -  Jump  to  the  command's  starting  address  in  register  pair  HL. 
780  -  Part  of  the  DSET  conunand  is  stored  here. 
790  -  Part  of  the  DSET  command  is  stored  here. 
800  -  The  DSET  command  terminator  is  stored  here. 
810  -  The  DSET  command  starting  address  is  stored  here. 
820  -  Part  of  the  DRESET  command  is  stored  here. 
830  -  Part  of  the  DRESET  command  is  stored  here. 
840  -  The  DRESET  command  terminator  is  stored  here. 
850  -  The  DRESET  command  starting  address  is  stored  here. 
860  -  Get  the  value  from  the  stack  and  put  it  in  register  p  air  DE. 
870  -  Get  the  value  from  the  stack  and  put  it  in  register  pair  HL. 
880  -  Get  the  value  from  the  stack  and  put  it  in  register  F  air  AF. 

890  -  Return. 

900  -  Load  register  A  with  the  RESET  flag. 

910  -  Jump. 

920  -  Load  register  A  with  the  SET  flag. 

930  -  Save  the  graphic  flag  in  register  A. 

940  -  Load  register  pair  HL  with  the  current  BASIC  program 

pointer. 
950  -  Bump  the  current  BASIC  program  pointer  in  register  pair 

HL  till  it  points  to  the  next  character. 
960  -  Go  check  the  syntax.  The  character  at  the  location  of  the 

current  BASIC  program  pointer  in  register  pair  HL  must  be 

a(. 
970  -  The  character  to  be  checked  for  is  stored  here. 
980  -  Go  evaluate  the  expression  at  the  location  of  the  current 

BASIC  program  pointer  in  register  pair  HL  and  return  with 

the  X  value  in  register  A. 
990  -  Check  to  see  if  the  X  value  in  register  A  is  greater  than  63. 
1000  -  Go  to  the  Level  II  BASIC  error  routine  and  out])Ut  a  FC 

ERROR  message,  if  the  X  value  in  register  A  is  greater  than 

63. 
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1010  -  Save  the  X  value  in  register  A  on  the  stack. 

1020  -  Go  evaluate  the  expression  at  the  location  of  the  current 

BASIC  program  pointer  in  register  pair  HL  and  return  with 

the  Y  value  in  register  A. 
1030  -  Check  to  see  if  the  Y  value  in  register  A  is  greater  than  47. 
1040  -  Go  to  the  Level  II  BASIC  error  routine  and  output  a  FC 

ERROR  message,  if  the  Y  value  in  register  A  is  greater  than 

47. 
1050  -  Save  the  Y  value  in  register  A  on  the  stack. 
1060  -  Go  check  the  syntax.  The  character  at  the  location  of  the 

current  BASIC  program  pointer  in  register  pair  HL  must  be 

a). 
1070  -  Get  the  Y  value  from  the  stack  and  put  it  in  register  A. 
1080  -  Load  register  E  with  the  Y  value  in  register  A. 
1090  -  Get  the  X  value  from  die  stack  and  put  it  in  register  A. 
1100  -  Multiply  the  X  value  in  register  A  by  two. 
1110  -  Load  register  D  with  the  X  value  in  register  A. 
1120  -  Save  the  current  BASIC  program  pointer  in  register  pair 

HL  on  the  stack. 
1130  -  Save  the  X  and  Y  values  in  register  pair  DE  on  the  stack. 
1140  -  Load  register  A  with  the  graphic  flag. 
1150  -  Go  do  the  graphics. 
1160  -  Get  the  X  and  Y  values  from  the  stack  and  put  it  in  register 

pair  DE. 
1170  -  Bump  the  X  value  in  register  D. 
1180  -  Load  register  A  with  the  graphic  flag. 
1190  -  Go  do  the  graphics. 
1200  -  Get  the  current  BASIC  program  pointer  from  the  stack  and 

put  it  in  register  pair  HL. 
1210  -  Decrement  the  current  BASIC  program  pointer  in  register 

pair  HL. 
1220  -  Bump  the  current  BASIC  program  pointer  in  register  pair 

HL  till  it  points  to  the  next  character. 
1230  -  Jump  to  Level  II  BASIC. 
1240  -  Save  the  graphic  flag  in  register  A  on  the  stack. 
1250  -  Save  the  X  value  in  register  D  on  the  stack. 
1260  -  Load  register  A  with  the  Y  value  in  register  E. 
1270  -  Load  register  pair  HL  with  the  dummy  BASIC  program 

pointer. 
1280  -  Jump  to  the  Level  II  BASIC  graphics  routine. 
1290  -  A  value  from  the  command  jump  table  search  will  be  stored 

here. 
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1300  -  A  value  from  the  commandjump  table  search  will  be  stored 

here. 
1310  -  A  value  from  the  command  jump  table  search  will  be  stored 

here. 
1320  -  A  value  from  the  command  jump  table  search  will  be  stored 

here, 
1330  -  The  graphic  flag  will  be  stored  here. 
1340  -  Part  of  the  sign-on  message  is  stored  here. 
1350  -  This  will  display  a  carriage  return  as  part  of  the  sign-on 

message. 
1360  -  Part  of  the  sign-on  message  is  stored  here. 
1370  -  This  will  display  a  carriage  return  as  part  of  the  sign-on 

message. 
1380  -  The  sign-on  message  terminator  is  stored  here. 
1390  -  The  BASIC  program  area  will  start  here. 
1400  -  End  of  the  program. 

Listing  5-2 

O    '    LISTING    5.2 

10  '  DOUBLE  WIDTH  GRAPHICS  DEMO 

15  CLS 

20  FQRX=0TG63 

30  F0RY=0T047STEP2 

40  DSET<X,Y> 

50  NEXTY 

60  NEXTX 

70  FORX=0TO63 

80  F0RY=0T047 

90  IFPOINT  <  X«2, Y) THENIOOELSEI 10 

100  DRESET(X,Y>5GQTOi20 

110  DSET<X,Y) 

120  NEXTY 

130  NEXTX 

140  G0T070 
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Chapter  6 
Programmable  Shift  Key  Entries 


On  the  Model  I,  the  keyboard,  the  video  display,  and  the  printer  are 
all  controlled  by  device  control  blocks.  These  device  control  blocks 
are  used  by  Level  II  BASIC  to  branch  to  the  appropriate  driver 
routines  and  to  hold  data  relating  to  each  device.  The  driver  routine 
for  each  device  is  a  program  which  handles  the  input  or  output  for 
the  device.  This  chapter  describes  how  the  keyboard  driver  can  be 
intercepted  to  allow  for  modification  of  the  driver  routine. 

THE  KEYBOARD  DEVICE  CONTROL  BLOCK 

The  keyboard  device  control  block  is  shown  in  Fig.  6-1  as  it 
appears  in  memory.  The  keyboard  driver  address  is  shown  as 
03E3H.  By  placing  a  new  address  in  memory  location  4016H,  Level 
II  BASIC  will  branch  to  a  new  driver  routine.  The  next  program 
presents  a  way  to  modify  the  keyboard  driver  to  provide  program- 
mable shift  key  entries.  Shift  key  entries  provide  for  faster  program 
development  by  allowing  you  to  enter  a  string  of  characters  simply 
by  holding  the  shift  key  down  and  pressing  any  key  from  A  to  Z. 
Figure  6-2  lists  the  shift  key  entries,  as  they  are  initialized  by 
the  program.  The  program  also  makes  use  of  the  following  three 
Disk  BASIC  links: 

LSET.  This  command  turns  the  shift  key  entries  off 
thus  allowing  for  normal  keyboard  operation.  To  use,  sim- 
ply type  LSET  and  press  ENTER. 
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4015H  -  Device  type:  1 

401 6H  -  Driver  address  (with  Level  II  BASIC  this  is  03E3H) 

4018H- Not  used 

401 9H  -Not  used 

401  AH  -Not  used 

401 BH  -  RAM  Buffer  Address 


Fig.  6-1 .  Keyboard  device  control  block. 

RSET.  This  command  turns  the  shift  key  entries;  on. 
To  use,  simply  type  RSET  and  press  ENTER. 

CMDletter=string.  This  command  is  used  to 
change  the  value  of  a  shift  key  entry.  The  shift  key  entiy  to 


A  -  STRING$( 

B  - 

"  INT( 

C  -  CHR$( 

D  - 

"  DATA 

E  -  ELSE 

F  - 

-  LEFT$( 

G  -  GOTO 

H  - 

-  RIGHT$( 

I  -  INPUT 

J  - 

-  INKEY$ 

K  -  RUN  2NTBH 

L  . 

-  LIST 

n  -  MD$( 

N  - 

-  NEXT 

0  -  ASC( 

P  - 

-  LPRINT 

Q  -  SYSTEM  ENTER 

R  - 

-  RETURN 

S  -  GOSUB 

T  - 

-  THEN 

U  -  USING 

V  ■ 

-  VAL( 

W  -  RND( 

X  ■ 

-  STR$( 

Y  -  LEN{ 

Z   ' 

-  EDIT 

Fig.  6-2.  The  shift  key  entries. 
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be  changed  is  specified  by  'letter'  and  must  be  any  letter 
from  A  to  Z.  The  value  of  the  shift  key  entry  will  be  changed 
to  the  string,  which  can  be  any  Level  II  BASIC  string. 
Some  examples  follow. 

CI1DA="AUT0" 

croM=sraiNG$(3i»i9i) 

The  string  must  not  be  any  more  than  32  characters  in  length.  If 
the  string  is  more  than  32  characters  in  length,  the  shift  key  entry 
value  will  be  set  to  the  first  32  characters  of  the  string. 

THE  SHIFT  KEY  PROGRAM 

Let's  examine  the  program  in  Listing  6-1.  The  program  starts 
by  moving  the  start  of  the  BASIC  program  area  above  the  shift  key 
entry  program.  Next,  the  three  Disk  BASIC  commands  are  linked 
with  the  program.  The  keyboard  driver  address  is  loaded  into 
register  pair  HL  and  saved  as  part  of  the  program.  The  RSET 
function  is  then  called  to  initialize  the  shift  key  entries.  Program 
control  is  then  returned  to  Level  II  BASIC. 

The  LSET  command  turns  off  the  shift  key  entries  by  first 
saving  the  BASIC  program  pointer.  Then,  the  old  keyboard  driver 
address  is  retrieved  and  placed  in  the  keyboard  device  control 
block.  The  BASIC  program  pointer  is  retrieved  and  program  control 
is  returned  to  Level  II  BASIC. 

The  RSET  command  turns  on  the  shift  key  entries  by  first 
saving  the  BASIC  program  pointer.  Then,  the  new  keyboard  driver 
address  is  stored  in  the  keyboard  device  control  block.  The  BASIC 
program  pointer  is  retrieved  and  program  control  is  returned  to 
Level  II  BASIC. 

CMD  changes  a  shift  key  entr>'  by  first  checking  the  character 
pointed  to  by  register  pair  HL.  If  the  character  is  less  than  an  A  or 
the  character  is  greater  than  a  Z,  program  control  will  be  passed  to 
the  FC  ERROR  routine. 

Next,  65  is  subtracted  from  the  character  pointed  to  by  register 
pair  HL.  This  gives  the  program  an  offset  of  firom  0  to  25.  This  value 
is  then  multiplied  by  2  in  order  to  give  the  program  a  two  byte  offset. 
This  offset  is  placed  in  register  pair  DE, 

The  BASIC  program  pointer  is  saved  on  the  stack  and  register 
pair  HL  is  loaded  with  the  location  of  the  shift  key  entry  table. 
Register  pairs  HL  and  DE  are  then  added  resulting  in  register  pair 
HL  pointing  to  the  storage  location  of  the  shift  key  entry  to  be 
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changed.  This  address  is  loaded  into  register  pair  DE  and  saved. 
The  BASIC  program  pointer  is  retrieved  from  the  stack.  Register 
pair  HL  is  incremented  until  it  points  to  the  next  character. 

A  syntax  check  is  done  to  check  for  the  =  sign.  Note  that  Level 
II  BASIC  treats  =  as  a  BASIC  keyword  and  that  all  ='s  are  sitored  as 
D5H  in  memory.  The  number  type  flag  is  then  set  to  a  string.  The 
string  expression  is  evaluated  by  calling  the  ROM  routine  at  2337H. 
ROM  routine  2337H  performs  as  follows. 

Evaluate  Expression,  address  2337H.  This  routine 
evaluates  the  expression  at  the  location  of  the  current 
BASIC  program  pointer  in  register  pair  HL.  The  result  is 
returned  in  REGl.  On  exit,  the  BASIC  program  pointer 
will  be  pointing  to  the  byte  immediately  following  the 
expression. 

The  number  type  flag  is  then  checked  to  make  sure  that  the 
expression  was  a  string.  RST  0020H  is  used  to  perform  this  func- 
tion. This  ROM  routine  functions  as  follows: 

Test  the  Number  Type  Flag,  RST  0020H.  This 
routine  tests  the  number  type  flag  to  determine  the  cuirent 
type  of  value  in  REGl.  The  flags  register  and  register  A 
will  be  as  follows  on  exit: 


FLAGS 

REGISTER  A 

INTEGER 

NZ/C/M/E 

-1 

STRING 

Z/C/P/E 

0 

SINGLE 

NZ/C/P/0 

1 

DOUBLE 

NZ/NC/P/E 

5 

Once  this  check  is  completed,  program  control  is  passed  to  the 
TM  ERROR  routine  if  the  number  type  flag  is  any  other  value 
except  a  string.  Once  the  string  has  been  correctly  evaluated, 
memory  location  412 IH  will  hold  the  VARPTR  for  the  string  result. 
The  length  of  the  string  is  checked  to  see  if  it  is  greater  tian  32.  If 
the  length  of  the  string  is  greater  than  32,  the  length  will  be  set  to 
32.  Otherwise,  the  length  is  set  to  the  actual  string  length.  Once  the 
length  of  the  string  has  been  set,  the  string  is  block  moved  to  the 
shift  key  entry  location. 

Listing  6-1 


42E9 

00100 

ORG 

42E9H 

42E9 

CDC90i 

00110 

START 

CALL 

01C9H 

42EC 

214C47 

00120 

LD 

HL,M1 

42EF 

CD752B 

00130 

CALL 

2B75H 

76 


42F2 

217B47 

00140 

LD 

HL, BASIC 

42F5 

3600 

00150 

LD 

(HL),0 

42F7 

23 

00160 

INC 

HL 

42Fa 

22A440 

00170 

LD 

<40A4H) ,HL 

42FB 

1 1 3200 

00180 

LD 

DE,50 

42FE 

CD831E 

00190 

CALL 

1E83H 

4301 

CD4D1B 

00200 

CALL 

1B4DH 

4304 

3EC3 

00210 

LD 

A,0C3H 

4306 

327341 

00220 

LD 

(4173H),A 

4309 

213C43 

00230 

LD 

HL,CHD 

430C 

227441 

00240 

LD 

<4i74H) ,HL 

430F 

329741 

00250 

LD 

(4197H),A 

4312 

212D43 

00260 

LD 

HL,LSET 

4315 

229841 

00270 

LD 

<4198H),HL 

4318 

329A4 1 

00280 

LD 

<4i9AH) ,A 

43iB 

213343 

00290 

LD 

HL,RSET 

431E 

229B41 

00300 

LD 

<419BH) ,HL 

4321 

2A1640 

00310 

LD 

HL, (4016H) 

4324 

22A043 

00320 

LD 

<JUMP+1),HL 

4327 

CD3343 

00330 

CALL 

RSET 

432A 

C37200 

00340 

JP 

0072H 

432D 

E5 

00350  LSET 

PUSH 

HL 

432E 

2AA043 

00360 

LD 

HL,  (JUMP-^-l) 

4331 

1804 

00370 

JR 

LPl 

4333 

ES 

00380  RSET 

PUSH 

HL 

4334 

218D43 

00390 

LD 

HL,KEY 

4337 

221640 

00400  LPl 

LD 

<4016H),HL 

433A 

El 

00410 

POP 

HL 

433B 

C9 

00420 

RET 

433C 

FE41 

00430  CMD 

CP 

65 

ASSi:L 

DA4AiE 

00440 

JP 

C,1E4AH 

4341 

FE5B 

00450 

CP 

91 

4343 

D24AIE 

00460 

JP 

NC, 1E4AH 

4346 

D64i 

00470 

SUB 

65 

4348 

CB27 

00480 

SLA 

A 

434A 

1600 

00490 

LD 

D,0 

434C 

5F 

00500 

LD 

E,A 

434D 

E5 

00510 

PUSH 

HL 

434E 

21B943 

00520 

LD 

HL, TABLE 

4351 

19 

00530 

ADD 

HL,DE 

4352 

5E 

00540 

LD 

E, <HL) 

4353 

23 

00550 

INC 

HL 

4354 

56 

00560 

LD 

D, (HL) 

4355 

ED534747 

00570 

LD 

<CH1),DE 

4359 

El 

00580 

POP 

HL 

435A 

D7 

00590 

RST 

001  OH 

435B 

CF 

00600 

RST 

0008H 

435C 

D5 

00610 

DEFB 

ODSH 

435D 

3E03 

00620 

LD 

A, 3 

435F 

32AF40 

00630 

LD 

(40AFH),A 

4362 

CD3723 

00640 

CALL 

2337H 

4365 

22E640 

00650 

LD 

<40E6H),HL 

4368 

E7 

00660 

RST 

0020H 

4369 

C2F60A 

00670 

JP 

NZ,0AF6H 

436C 

2A2i4i 

00680 

LD 

HL, <412iH) 

436F 

7E 

00690 

LD 

A,  <HL) 

4370 

FE21 

00700 

CP 

33 

4372 

3003 

00710 

JR 

HC,Cf^2 

4374 

4F 

00720 

LD 

C,A 

4375 

1802 

00730 

JR 

CM3 

4377 

0E20 

00740  cri2 

LD 

C,32 

4379 

0600 

00750  CH3 

LD 

B,0 

437B 

23 

00760 

INC 

HL 

437C 

5E 

00770 

LD 

E, <HL) 

437D 

23 

00780 

INC 

HL 

437E 

56 

00790 

LD 

D,  <HL> 

43 /h 

EB 

00800 

EX 

DE,HL 

4380 

ED5B4747 

00810 

LD 

DE, <CM1) 

77 


4384  EDBO 

00820 

LDIR 

43S6  EB 

00830 

EX 

DE,HL 

4387  3600 

00840 

LD 

<HL),0 

4389  2AE640 

00850 

LD 

HL, (40E6H) 

438C  C9 

00860 

RET 

438D  3A4B47 

00870  KEY 

LD 

A, <FLAS) 

4390  B7 

00880 

OR 

A 

4391  2B0C 

00890 

JR 

2, JUMP 

4393  2A4947 

00900 

LD 

HL, (POINT) 

4396  7E 

00910  KEY! 

LD 

A, <HL) 

4397  23 

00920 

INC 

HL 

4398  224947 

00930 

LD 

<POINT) ,HL 

439B  324B47 

00940 

LD 

<FLAG),A 

439E  C9 

00950 

RET 

439F  CDOOOO 

00960  JUMP 

CALL 

OOOOH 

43A2  FE61 

00970 

CP 

97 

43A4  DS 

00980 

RET 

C 

43A5  FE80 

00990 

CP 

128 

43A7  DO 

01000 

RET 

NC 

43A8  D661 

01010 

SUB 

97 

43AA  CB27 

01020 

SLA 

A 

43AC  1600 

01030 

LD 

D,0 

43AE  5F 

01040 

LD 

E,A 

43AF  21B943 

01050 

LD 

HL, TABLE 

43B2  19 

01060 

ADD 

HL,DE 

43B3  5E 

01070 

LD 

E, <HL) 

43B4  23 

01080 

INC 

HL 

43B5  56 

01090 

LD 

D,  <HL) 

43B6  EB 

01100 

EX 

DE,HL 

43B7  iSDD 

Oiiio 

JR 

KEYl 

43B9  ED43 

01120  TABLE 

DEFW 

SHA 

43BB  0E44 

01130 

DEFW 

SHB 

43BD  2F44 

01140 

DEFW 

SHC 

43BF  5044 

01150 

DEFW 

SHD 

43C1  7144 

01160 

DEFW 

SHE 

43C3  9244 

01170 

DEFW 

SHF 

43C5  B344 

01  ISO 

DEFW 

SHB 

43C7  D444 

01190 

DEFW 

SHH 

43C9  F544 

01200 

DEFW 

SHI 

43CB  1645 

01210 

DEFW 

SHJ 

43CD  3745 

01220 

DEFW 

SHK 

43CF  584S 

01230 

DEFW 

SHL 

43D1  7945 

01240 

DEFW 

SHM 

43D3  9A45 

01250 

DEFW 

SHN 

43D5  BB4S 

01260 

DEFW 

SHO 

43D7  DC45 

01270 

DEFW 

SHP 

43D9  FD45 

01280 

DEFW 

SHQ 

43DB  1E46 

01290 

DEFW 

SHR 

43DD  3F46 

01300 

DEFW 

SHS 

43DF  6046 

01310 

DEFW 

SHT 

43E1  8146 

01320 

DEFW 

SHU 

43E3  A246 

01330 

DEFW 

SHV 

43E5  C346 

01340 

DEFW 

SHW 

43E7  E446 

01350 

DEFW 

SHX 

43E9  0547 

01360 

DEFW 

SHY 

43EB  2647 

01370 

DEFW 

SHZ 

43ED  53 

01380  SHA 

DEFM 

'STRINB$<'' 

43bL  54 

43tl-  52 

43F0  49 

43F1  4E 

43F2  47 

43F3  24 

43F4  28 

43F5  00 

01390 

DEFB 

0 

0018 

01400 

DEFS 

24 

440E  49 

01410  SHB 

DEFM 

'  imr 

440F  4E 

78 


4410 

54 

4411 

28 

4412 

00 

01420 

DEFB 

0 

OOIC 

01430 

DEFS 

28 

442F 

43 

01440 

SHC 

DEFM 

' CHR$ ( ' 

4430 

48 

4431 

52 

4432 

24 

4433 

28 

4434 

00 

01450 

DEFB 

0 

OOIB 

01460 

DEFS 

27 

4450 

44 

01470 

SHD 

DEFH 

'DATA' 

4451 

41 

4452 

54 

4453 

41 

4454 

00 

01480 

DEFB 

0 

OOIC 

01490 

DEFS 

28 

4471 

45 

01 500 

SHE 

DEFti 

,£J_S£, 

4472 

4C 

4473 

53 

4474 

45 

4475 

00 

01510 

DEFB 

0 

OOIC 

O1520 

DEFS 

28 

4492 

4C 

01530 

SHF 

DEFH 

' LEFT* ( ' 

4493 

45 

4494 

46 

4495 

54 

4496 

24 

4497 

28 

4498 

00 

01540 

DEFB 

0 

OOIA 

01550 

DEFS 

26 

44B3 

47 

01560 

SHG 

DEFH 

'GOTO' 

44B4 

4F 

44B5 

54 

44B6 

4F 

44B7 

00 

01570 

DEFB 

0 

OOIC 

01580 

DEFS 

28 

44D4 

52 

01590 

SHH 

DEFH 

' RIGHT* < 

44D5 

49 

44D6 

47 

44D7 

48 

44D8 

54 

44D9 

24 

44DA 

28 

44DB 

00 

01600 

DEFB 

0 

0019 

01610 

DEFS 

25 

44F5 

49 

01620 

SHI 

DEFH 

'INPUT' 

44F6 

4E 

44F7 

50 

44F8 

55 

44F9 

54 

44FA 

00 

0163O 

DEFB 

0 

OOIB 

01640 

DEFS 

27 

4516 

49 

01650 

SHJ 

DEFH 

'INKEY*' 

4517 

4E 

4518 

4B 

4519 

45 

451A 

59 

451B 

24 

451C 

00 

01660 

DEFB 

0 

OOIA 

01670 

DEFS 

26 

4537 

52 

01680 

SHK 

DEFH 

'RUN' 

4538 

55 

4539 

4E 

453A 

OD 

01690 

DEFB 

13 

453B 

00 

01700 

DEFB 

0 

OOIC 

01710 

DEFS 

28 

79 


4558 

4C 

01720  SHL 

DEFM 

'LIST' 

4559 

49 

4  55  A 

53 

455B 

54 

45SC 

00 

01730 

DEFB 

0 

OOIC 

01740 

DEFS 

28 

4579 

4D 

01750  SHM 

DEFN 

'MID*(' 

457A 

49 

457B 

44 

457C 

24 

457D 

28 

457H 

00 

01760 

DEFB 

0 

OOIB 

01770 

DEFS 

27 

459A 

4E 

01780  SHN 

DEFM 

'NEXT' 

4S9B 

45 

459C 

58 

459D 

54 

4S9E 

00 

017^0 

DEFB 

0 

OOIC 

01800 

DEFS 

28 

45BB 

41 

01810  SHO 

DEFM 

' ASC ( ' 

45BC 

53 

4SBD 

43 

45BE 

28 

45BF 

00 

01820 

DEFB 

0 

OOIC 

01830 

DEFS 

28 

45DC 

4C 

01840  SHF 

DEFM 

'LPRINT' 

45DD 

50 

45DE 

52 

45DF 

49 

45E0 

4E 

45E1 

54 

45E2 

00 

01850 

DEFB 

0 

OOIA 

01860 

DEFS 

26 

45FD 

S3 

01870  SHQ 

DEFM 

'SYSTEM' 

45FE 

59 

45FF 

53 

4600 

54 

4601 

45 

4602 

4D 

4603 

OD 

01 880 

DEFB 

13 

4604 

00 

01890 

DbFB 

0 

0019 

01900 

DEFS 

25 

461E 

52 

01910  SHR 

DEFM 

'RETURN 

461F 

45 

4620 

54 

4621 

S5 

4622 

52 

4623 

4E 

4624 

00 

01920 

DEFB 

0 

OOIA 

01930 

DEFS 

26 

463F 

47 

01940  SHS 

DEFM 

'SOSUB' 

4640 

4F 

4641 

53 

4642 

55 

4643 

42 

4644 

00 

01950 

DEFB 

0 

OOIB 

01960 

DEFS 

27 

4660 

54 

01970  SHT 

DEFM 

' THEN' 

4661 

48 

4662 

45 

4663 

4E 

4664 

00 

01980 

DEFB 

0 

OOIC 

01990 

DEFS 

28 

4681 

55 

02000  SHU 

DEFM 

'USING' 

4682 

53 

4683 

49 

4684 

4E 

4685 

47 

80 


4686 

00 

02010 

DEFB 

0 

OOIB 

02020 

DEFS 

27 

46A2 

56 

02030  SHV 

DEFH 

' VAL ( ' 

46A3 

41 

46A4 

4C 

46A5 

28 

46A6 

00 

02040 

DEFB 

0 

OOIC 

02050 

DEFS 

28 

46C3 

52 

02060  BHW 

DEFtI 

' RND ( ' 

46C4 

4E 

46C5 

44 

46C6 

28 

46C7 

00 

02070 

DEFB 

0 

OOIC 

02080 

DEFS 

28 

46E4 

53 

02090  SHX 

DEFfI 

' STR$ ( ' 

46E5 

54 

46E6 

52 

46E7 

24 

46E8 

28 

46E9 

00 

02100 

DEFB 

0 

OOIB 

02110 

DEFS 

27 

4705 

4C 

02120  SHY 

DEFH 

' LEN  < ' 

4706 

45 

4707 

4E 

4708 

28 

4709 

00 

02130 

DEFB 

0 

OOIC 

02140 

DEFS 

28 

4726 

45 

02150  SH2 

DEFfI 

'EDIT' 

4727 

44 

4728 

49 

4729 

54 

472A 

00 

02160 

DEFB 

0 

OOIC 

02170 

DEFS 

28 

4747 

0000 

02180  cm 

DEFW 

0 

4749 

0000 

02190  POINT 

DEFW 

0 

474B 

00 

02200  FLAG 

DEFB 

0 

474C 

50 

02210  Ml 

DEFM 

'PROGRAMABLE  SHIFT 
KEY  ENTRIES' 

474D 

52 

474E 

4F 

474F 

47 

4750 

52 

4751 

41 

4752 

4D 

4753 

41 

4754 

42 

4755 

4C 

4756 

45 

4757 

20 

4758 

53 

4759 

48 

475A 

49 

475B 

46 

475C 

54 

475D 

20 

475E 

4B 

4/bh 

45 

4760 

59 

4761 

20 

4762 

45 

4763 

4E 

4764 

54 

4765 

52 

4766 

49 

4767 

45 

4768 

53 

4769 

OD 

02220 

DEFB 

13 

476A 

42 

02230 

DEFM 

'BY  MARK  GOODWIN' 
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476C  20 

476D  4D 

476E  41 

476F  52 

4770  4B 

4771  20 

4772  47 

4773  4F 

4774  4F 

4775  44 

4776  57 

4777  49 

4778  4E 

4779  OD 

477A  00 

477B  00 

42E9 

00000  TOTAL  E 

SHZ 

4726 

SHY 

4705 

SHX 

46E4 

SHUJ 

46C3 

SHV 

46A2 

SHU 

46Bi 

SHT 

4660 

SHS 

463F 

SHR 

461E 

SHD 

45FD 

SHP 

45DC 

SHO 

45BB 

SHN 

459A 

SHM 

4579 

SHL 

4558 

SHK 

4bc^/ 

SHJ 

4516 

SHI 

44F5 

SHH 

44D4 

SHG 

44B3 

SHF 

4492 

SHE 

4471 

SHD 

4450 

SHC 

442F 

SHB 

440E 

SHA 

43ED 

KEYl 

4396 

POINT 

4749 

FLAG 

474B 

CM3 

4379 

CM2 

4377 

CMl 

4747 

TABLE 

43B9 

KEY 

43SD 

LPl 

4337 

JUMP 

439F 

RSET 

4333 

LSET 

432D 

CHD 

433C 

BASIC 

477B 

Ml 

474C 

START 

42E9 

02240  DEFB  13 

02250  DEFB  0 

02260  BASIC  DEFB  0 

02270  END  START 


Listing  8-1  Comments 

100  -  Set  the  starting  address  to  the  normal  start  of  tha  BASIC 
program  area. 
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110  -  Go  clear  the  screen. 

120  -  Load  register  pair  HL  with  the  starting  address  for  the 

message  to  be  displayed. 
130  -  Go  display  the  message. 

140  -  Load  register  pair  HL  with  the  ending  address  of  the  pro- 
gram. 
150  -  Zero  the  location  of  the  start  of  the  BASIC  program  area 

pointer  in  register  pair  HL. 
160  -  Bump  the  start  of  the  BASIC  program  pointer  in  register 

pair  HL. 
170  -  Save  the  start  of  the  BASIC  program  area  pointer  in  regis- 
ter pair  HL. 
180  -  Load  register  pair  DE  with  the  number  of  bytes  to  be 

reserved  as  string  space. 
190  -  Go  reserve  the  string  space  and  reset  the  string  space 

pointer. 
200  -  Go  reset  the  BASIC  pointers  and  variables. 
210  -  Load  register  A  with  a  JP  op  code. 
220  -  Save  the  JP  op  code  in  register  A  as  the  first  byte  of  the 

CMD  Disk  BASIC  link. 
230  -  Load  register  pair  HL  with  the  starting  address  for  the 

CMD  routine. 
240  -  Save  the  starting  address  for  the  CMD  routine  in  register 

pair  HL  as  the  second  and  third  bytes  of  the  CMD  Disk 

BASIC  link. 
250  -  Save  the  JP  op  code  in  register  A  as  the  first  byte  of  the 

LSET  Disk  BASIC  link. 
260  -  Load  register  pair  HL  with  the  starting  address  for  the 

LSET  routine. 
270  -  Save  the  starting  address  for  the  LSET  routine  in  register 

pair  HL  as  the  second  and  third  bytes  of  the  LSET  Disk 

BASIC  link. 
280  -  Save  the  JP  op  code  in  register  A  as  the  first  byte  of  the 

RSET  Disk  BASIC  link. 
290  -  Load  register  pair  HL  with  the  starting  address  for  the 

RSET  routine. 
300  -  Save  the  starting  address  for  the  RSET  routine  in  register 

pair  HL  as  the  second  and  third  bytes  of  the  RSET  Disk 

BASIC  link. 
310  -  Load  register  pair  HL  with  the  keyboard  driver  address. 
320  -  Save  the  old  keyboard  driver  address  in  register  pair  HL. 
330  -  Go  initialize  the  shift  key  entries. 
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340  -  Jump  to  the  Level  II  BASIC  READY  routine. 

350  -  Save  the  current  BASIC  program  pointer  in  register  pair 

HL  on  the  stack. 
360  -  Load  register  pair  HL  with  the  old  keyboard  driver  address. 

370  -  Jump. 

380  -  Save  the  current  BASIC  program  pointer  in  register  pair 
HL  on  the  stack. 

390  -  Load  register  pair  HL  with  the  new  keyboard  driver  ad- 
dress. 

400  -  Save  the  keyboard  driver  address  in  register  pair  HL. 

410  -  Get  the  current  BASIC  program  pointer  from  the  stack  and 
put  it  in  register  pair  HL. 

420  -  Return. 

430  -  Check  to  see  if  tiie  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  A  is  less  than  an  A. 

440  -  Jump  to  the  Level  II  BASIC  error  routine  and  outp  iit  a  FC 
ERROR  message  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is  less  than  an 
A. 

450  -  Check  to  see  if  the  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  A  is  greater  thcin  a  Z. 

460  -  Jump  to  the  Level  II  BASIC  error  routine  and  output  a  FC 
ERROR  message  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is  greater  than 
aZ. 

470  -  Subtract  65  from  the  value  in  register  A  to  give  an  offset  of  0 

to  25. 
480  -  Multiply  the  offset  in  register  A  by  two. 
490  -  Zero  register  D. 

500  -  Load  register  E  with  the  offset  in  register  A. 
510  -  Save  the  current  BASIC  program  pointer  in  register  pair 

HL  on  the  stack. 
520  -  Load  register  pair  HL  with  the  starting  address  of  the  shift 

key  location  table. 
530  -  Add  the  offset  in  register  pair  DE  to  the  starting  address  of 

the  shift  key  location  table  in  register  pair  HL. 
540  -  Load  register  E  with  the  LSB  of  the  shift  key's  starting 

address  at  the  location  of  the  shift  key  location  table  pointer 

in  register  pair  HL. 
550  -  Bump  the  shift  key  location  table  pointer  in  register  pair 

HL. 
560  -  Load  register  D  with  the  MSB  of  the  shift  key's  starting 
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address  at  the  location  of  the  shift  key  location  table  pointer 

in  register  pair  HL. 
570  -  Save  the  shift  key's  starting  address  in  register  pair  DE. 
580  -  Get  the  current  BASIC  program  pointer  from  the  stack  and 

put  it  in  register  pair  HL. 
590  -  Go  bump  the  current  BASIC  program  pointer  in  register 

pair  HL  till  it  points  to  the  next  character. 
600  -  Go  check  the  syntax.  The  character  at  the  location  of  the 

current  BASIC  program  pointer  in  register  pair  HL  must  be 

an  =. 
610  -  The  character  to  be  checked  for  is  stored  here. 
620  -  Load  register  A  with  the  string  number  type  code. 
630  -  Set  the  number  type  flag  to  string. 
640  -  Go  evaluate  the  string  expression  at  the  location  of  the 

current  BASIC  program  pointer  in  register  pair  HL  and 

return  with  the  result  in  REGl. 
650  -  Save  the  current  BASIC  program  pointer  in  register  pair 

HL. 
660  -  Go  check  the  number  type  flag. 
670  -  Go  to  the  Level  II  BASIC  error  routine  and  output  a  TM 

ERROR  if  the  current  value  of  the  number  type  flag  isn't  a 

string. 
680  -  Load  register  pair  HL  with  the  string's  VARPTR. 
690  -  Load  register  A  with  the  length  of  the  string  at  the  location 

of  the  string's  VARPTR  in  register  pair  HL. 
700  -  Check  to  see  if  the  length  of  the  string  in  register  A  is 

greater  than  32. 
710  -  Jump  if  the  length  of  the  string  in  register  A  is  greater  than 

32. 

720  -  Load  register  C  with  the  length  of  the  string  in  register  A. 

730  -  Jump. 

740  -  Load  register  C  with  the  length  of  the  string. 

750  -  Zero  register  B. 

760  -  Bump  the  string's  VARPTR  in  register  pair  HL. 

770  -  Load  register  E  with  the  LSB  of  the  string's  starting  ad- 
dress. 

780  -  Bump  the  string's  VARPTR  in  register  pair  HL. 

790  -  Load  register  D  with  the  MSB  of  the  string's  starting 
address. 

800  -  Load  register  pair  HL  with  the  string's  starting  address  in 
register  pair  DE. 

810  -  Load  register  pair  DE  with  the  shift  key's  starting  address. 
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820  -  Move  the  string  to  the  shift  key's  storage  location. 

830  -  Load  register  pair  HL  with  the  end  of  the  shift  key's  storage 

location, 
840  -  Zero  the  end  of  the  shift  key's  storage  location. 
850  -  Load  register  pair  HL  with  the  current  BASIC  program 

pointer. 
860  -  Return. 

870  -  Load  register  A  with  the  shift  key  flag. 
880  -  Check  to  see  if  a  shift  key  is  still  being  processed. 
890  -  Jump  if  a  shift  key  isn't  being  processed. 
900  -  Load  register  pair  HL  with  the  current  shift  key  ]3ointer. 
910  -  Load  register  A  with  the  character  at  the  location  of  the 

current  shift  key  pointer  in  register  pair  HL. 
920  -  Bump  the  current  shift  key  pointer  in  register  pair  HL. 
930  -  Save  the  current  shift  key  pointer  in  register  pair  HL. 
940  -  Save  the  character  in  register  A  as  the  shift  key  ilag. 
950  -  Return. 

960  -  Go  call  the  old  keyboard  driver. 
970  -  Check  to  see  if  the  key  pressed  is  less  than  a  shift  A, 
980  -  Return  if  the  key  pressed  in  register  A  is  less  than  a  shift  A. 
990  -  Check  to  see  if  the  key  pressed  in  register  A  is  greater  than 

a  shift  Z. 
1000  -  Return  if  the  key  pressed  in  register  A  is  greater  th<in  a  shift 

Z. 
1010  -  Subtract  97  from  register  A  so  that  register  A  will  hold  an 

offset  from  0  to  25. 
1020  -  Multiply  the  offset  in  register  A  by  two. 
1030  -  Zero  register  D. 

1040  -  Load  register  E  with  the  offset  in  register  A. 
1050  -  Load  register  pair  HL  with  the  starting  address  of  the  shift 

key  location  table. 
1060  -  Add  the  offset  in  register  pair  DE  to  the  starting  address  of 

the  shift  key  location  table  in  register  pair  HL. 
1070  -  Load  register  E  with  the  LSB  of  the  shift  key's  starting 
address  at  the  location  of  the  shift  key  location  tabk:  pointer 
in  register  pair  HL. 
1080  -  Bump  the  shift  key  location  table  pointer  in  regis;ter  pair 

HL. 
1090  -  Load  register  D  with  the  MSB  of  the  shift  key's  starting 
address  at  the  location  of  the  shift  key  location  table  pointer 
in  register  pair  HL. 
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1100  -  Load  register  pair  HL  with  the  shift  key  s  starting  address 

in  register  pair  DE. 
1110  -  Jump. 

1120  -  Shift  A's  starting  address  is  stored  here. 
1130  -  Shift  B's  starting  address  is  stored  here. 
1140  -  Shift  C's  starting  address  is  stored  here. 
1150  -  Shift  D's  starting  address  is  stored  here, 
1160  -  Shift  E*s  starting  address  is  stored  here. 
1170  -  Shift  F's  starting  address  is  stored  here. 
1180  -  Shift  G's  starting  address  is  stored  here. 
1190  -  Shift  H's  starting  address  is  stored  here. 
1200  -  Shift  I's  starting  address  is  stored  here. 
1210  -  Shift  J*s  starting  address  is  stored  here. 
1220  -  Shift  K*s  starting  address  is  stored  here. 
1230  -  Shift  L's  starting  address  is  stored  here. 
1240  -  Shift  M's  starting  address  is  stored  here. 
1250  -  Shift  N's  starting  address  is  stored  here. 
1260  -  Shift  O's  starting  address  is  stored  here. 
1270  -  Shift  P's  starting  address  is  stored  here. 
1280  -  Shift  Q's  starting  address  is  stored  here. 
1290  -  Shift  R's  starting  address  is  stored  here. 
1300  -  Shift  S's  starting  address  is  stored  here. 
1310  -  Shift  T's  starting  address  is  stored  here. 
1320  -  Shift  U's  starting  address  is  stored  here. 
1330  -  Shift  V's  starting  address  is  stored  here. 
1340  -  Shift  W's  starting  address  is  stored  here. 
1350  -  Shift  X's  starting  address  is  stored  here. 
1360  -  Shift  Y's  starting  address  is  stored  here. 
1370  -  Shift  Z's  starting  address  is  stored  here. 
1380  -  Shift  A  is  stored  here. 
1390  -  Shift  A's  terminator  is  stored  here. 
1400  -  Make  sure  there's  enough  room  for  32  characters. 
1410  -  Shift  B  is  stored  here. 
1420  -  Shift  B's  terminator  is  stored  here. 
1430  -  Make  sure  there's  enough  room  for  32  characters. 
1440  -  Shift  C  is  stored  here. 
1450  -  Shift  C's  terminator  is  stored  here. 
1460  -  Make  sure  there's  enough  room  for  32  characters. 
1470  -  Shift  D  is  stored  here. 
1480  -  Shift  D's  terminator  is  stored  here. 
1490  -  Make  sure  ±ere's  enough  room  for  32  characters. 
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1500  -  Shift  E  is  stored  here. 

1510  -  Shift  E's  terminator  is  stored  here. 

1520  -  Make  sure  there's  enough  room  for  32  characters. 

1530  -  Shift  F  is  stored  here. 

1540  -  Shift  F's  terminator  is  stored  here. 

1550  -  Make  sure  there's  enough  room  for  32  characters. 

1560  -  Shift  G  is  stored  here. 

1570  -  Shift  G's  terminator  is  stored  here, 

1580  -  Make  sure  there's  enough  room  for  32  characters. 

1590  -  Shift  H  is  stored  here. 

1600  -  Shift  H's  terminator  is  stored  here. 

1610  -  Make  sure  there's  enough  room  for  32  characters. 

1620  -  Shift  I  is  stored  here. 

1630  -  Shift  Fs  terminator  is  stored  here. 

1640  -  Make  sure  there's  enough  room  for  32  characters. 

1650  -  Shift  J  is  stored  here. 

1660  -  Shift  J's  terminator  is  stored  here. 

1670  -  Make  sure  there's  enough  room  for  32  characters. 

1680  -  Part  of  shift  K  is  stored  here. 

1690  -  This  will  cause  a  carriage  return  as  part  of  shift  ¥., 

1700  -  Shift  K's  terminator  is  stored  here. 

1710  -  Make  sure  there's  enough  room  for  32  characters., 

1720  -  Shift  L  is  stored  here. 

1730  -  Shift  L's  terminator  is  stored  here. 

1740  -  Make  sure  there's  enough  room  for  32  characters, 

1750  -  Shift  M  is  stored  here. 

1760  -  Shift  M's  terminator  is  stored  here. 

1770  -  Make  sure  there's  enough  room  for  32  characters. 

1780  -  Shift  N  is  stored  here. 

1790  -  Shift  N's  terminator  is  stored  here, 

1800  -  Make  sure  there's  enough  room  for  32  characters. 

1810  -  Shift  0  is  stored  here. 

1820  -  Shift  O's  terminator  is  stored  here. 

1830  -  Make  sure  there's  enough  room  for  32  characters. 

1840  -  Shift  P  is  stored  here. 

1850  -  Shift  P's  terminator  is  stored  here. 

1860  -  Make  sure  there's  enough  room  for  32  characters. 

1870  -  Part  of  shift  Q  is  stored  here, 

1880  -  This  will  cause  a  carriage  return  as  part  of  shift  (J. 

1890  -  Shift  Q's  terminator  is  stored  here. 

1900  -  Make  sure  there's  enough  room  for  32  characters. 

1910  -  Shift  R  is  stored  here. 
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1920  -  Shift  R's  teraiinator  is  stored  here. 

1930  -  Make  sure  there's  enough  roora  for  32  characters. 

1940  -  Shift  S  is  stored  here. 

1950  -  Shift  S's  terminator  is  stored  here. 

1960  -  Make  sure  there's  enough  room  for  32  characters. 

1970  -  Shift  T  is  stored  here. 

1980  -  Shift  T's  terminator  is  stored  here. 

1990  -  Make  sure  there's  enough  room  for  32  characters. 

2000  -  Shift  U  is  stored  here. 

2010  -  Shift  U's  terminator  is  stored  here. 

2020  -  Make  sure  there's  enough  room  for  32  characters. 

2030  -  Shift  V  is  stored  here. 

2040  -  Shift  V's  terminator  is  stored  here. 

2050  -  Make  sure  diere's  enough  room  for  32  characters. 

2060  -  Shift  W  is  stored  here. 

2070  -  Shift  W's  terminator  is  stored  here. 

2080  -  Make  sure  there's  enough  room  for  32  characters. 

2090  -  Shift  X  is  stored  here. 

2100  -  Shift  X's  terminator  is  stored  here. 

2110  -  Make  sure  there's  enough  room  for  32  characters. 

2120  -  Shift  Y  is  stored  here. 

2130  -  Shift  Y's  terminator  is  stored  here. 

2140  -  Make  sure  there's  enough  room  for  32  characters. 

2150  -  Shift  Z  is  stored  here. 

2160  -  Shift  Z's  terminator  is  stored  here. 

2170  -  Make  sure  there's  enough  room  for  32  characters, 

2180  -  Temporary  storage  location. 

2190  -  The  current  shift  key  entry  pointer  is  stored  here. 

2200  -  The  shift  key  entry  flag  is  stored  here. 

2210  -  Part  of  the  sign-on  message  is  stored  here. 

2220  -  This  will  display  a  carriage  return  as  part  of  the  sign-on 

message. 
2230  -  Part  of  the  sign-on  message  is  stored  here. 
2240  -  This  will  display  a  carriage  return  as  part  of  tiie  sign-on 

message. 
2250  -  The  sign-on  message  terminator  is  stored  here. 
2260  -  The  start  of  the  BASIC  program  area  will  start  here. 
2270  -  End  of  the  program. 

THE  NEW  KEYBOARD  DRIVER 

The  new  keyboard  driver  first  checks  the  shift  key  flag  to  see  if 
there  is  a  shift  key  entry  to  be  processed.  If  the  program  is  still 
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processing  a  shift  key  entry,  the  next  character  is  placed  in  register 
A.  The  value  in  register  A  is  returned  to  Level  11  BASK^. 

If  the  shift  key  entry  flag  indicates  there  isn't  a  shift  key  entry 
to  be  processed,  then  the  old  keyboard  driver  routine  is  called.  If 
the  character  returned  by  the  old  keyboard  driver  is  less  than  a  shift 
A  or  greater  than  a  shift  Z,  the  program  will  return  to  Level  II 
BASIC. 

If  a  shift  A  to  shift  Z  was  pressed,  the  driver  prograri  figures 
the  address  for  the  shift  key  entry.  The  first  shift  key  character  is 
placed  in  register  A.  The  shift  key  entry  flag  is  loaded  mth  this 
character  to  indicate  a  shift  key  entry  is  being  processed.  Then,  the 
character  in  register  A  is  returned  to  Level  II  BASIC. 

The  value  of  the  shift  key  entries  can  be  easily  changed  before 
assembly  to  any  initial  values  you  desire. 
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Chapter  7 
A  RAM  Printer  Spooler 


A  RAM  printer  spooler  can  be  added  to  Level  II  BASIC  by  simply 
intercepting  the  keyboard  driver  and  the  printer  driver.  For  those 
who  are  not  familiar  with  a  printer  spooler,  a  short  explanation 
about  spoolers  is  in  order. 

THE  PURPOSE  OF  A  SPOOLER 

Under  normal  operation  of  Level  II  BASIC,  program  execution 
is  temporarily  suspended  while  characters  are  sent  to  the  printer. 
By  halting  program  execution,  the  computer's  throughput  is  greatly 
reduced.  After  all,  just  think  how  much  time  would  be  saved  if  the 
computer  didn't  have  to  wait  for  the  printer. 

Well,  a  printer  spooler  will  virtually  eliminate  these  delays  for 
the  printer.  There  are  two  basic  types  of  printer  spoolers:  the  RAM 
spooler  and  the  disk  spooler.  With  both  types  of  spoolers,  the 
program  checks  to  see  if  the  printer  is  busy.  If  the  printer  is  busy, 
the  spooler  program  sends  the  character  to  be  printed  to  a  buffer 
area  in  RAM  for  the  RAM  printer  spooler  or  to  the  disk  for  the  disk 
spooler. 

Let's  look  at  the  RAM  printer  spooler's  operation  in  more 
detail.  When  the  printer  spooler  is  first  initialized,  you  are  asked  to 
enter  the  size  of  the  buffer  area.  This  buffer  area  is  used  by  the 
spooler  program  to  temporarily  hold  the  characters  while  the 
printer  is  busy.  The  size  of  the  buffer  area  is  determined  by  the 
memory  size  of  the  computer  and  the  memory  requirements  of  the 
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program  which  will  be  executed.  Suppose  the  buffer  ares  is  set  to 
2000  bytes  upon  initialization  of  the  spooler  program.  If  a  program 
of  1500  bytes  was  LLISTed,  the  spooler  program  will  immediately 
send  the  whole  program  to  the  buffer  area.  There  will  be  no  notice- 
able delay  while  the  spooler  performs  this  operation.  The  Level  II 
BASIC  READY  message  will  return  almost  instantly.  J^ow,  the 
operator  is  able  to  continue  with  his  next  task. 

For  instance,  he  might  choose  to  load  a  new  program  or  maybe 
run  the  program  that  is  already  in  memory  while  the  spooler  pro- 
gram will  be  sending  all  of  the  characters  to  the  printer  one  at  a  time 
until  the  buffer  is  empty. 

You  may  be  wondering  what  would  happen  if  a  program  longer 
than  2000  bytes  was  LLISTed.  The  spooler  program  would  start  by 
sending  the  first  2000  bytes  of  the  program  to  the  buffer  area.  At  this 
point,  printer  operation  will  function  like  a  normal  Level  II  printer 
operation.  The  spooler  will  take  a  character  out  of  the  buffer  and 
send  it  to  the  printer.  Also  the  spooler  will  place  the  next  character 
sent  to  it  in  the  buffer  area.  This  taking  one  character  out  md  putting 
another  character  in  will  continue  until  there  aren't  anymore 
characters  left  to  be  placed  in  the  buffer  area.  At  this  time,  the 
spooler  will  return  control  of  the  computer  to  the  operator  and 
continue  sending  characters  to  the  printer  until  the  buffer  area  is 
empty. 

As  you  can  see  from  the  above  examples,  the  larger  the  buffer 
area  the  fewer  delays  will  occur.  So  when  the  spooler  program  is 
initiaUzed  the  buffer  area  should  be  set  to  the  largest  practical  size. 

A  disk  spooler  works  in  much  the  same  way  as  the  RAM 
spooler.  Instead  of  sending  the  characters  to  a  buffer  areci  in  RAM, 
they  are  stored  on  the  disk  while  the  printer  is  busy.  Altliough  the 
disk  spooler  doesn't  use  any  of  the  computer's  RAM,  it  is  slower 
because  of  the  time  involved  with  disk  read/writes.  Therefore,  the 
RAM  spooler  is  the  preferred  method. 

THE  SPOOLER  PROGRAM 

Program  Listing  7-1  is  a  RAM  printer  spooler.  It  uses  the 
keyboard  driver  to  determine  if  the  printer  is  busy.  If  it  is,  the 
spooler  program  jumps  to  the  normal  keyboard  driver  routine.  If  the 
printer  isn't  busy,  then  the  spooler  program  performs  it's  intended 
function. 

The  program  also  uses  the  printer  driver  to  deteimine  if  a 
character  is  being  sent  to  the  printer  or  not.  The  printei*  driver  is 
intercepted  in  much  the  same  way  as  the  keyboard  driver  is  inter- 
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4025H 

Device  Type 

4026H  -  4027H 

Driver  Address 

4028H 

Lines  per  page 

4029H 

Lines  printed  so  far 

402AH 

Not  Used 

402BH  -  402CH 

RAM  Buffer  Address 

Fig.  7-1 .  The  printer  device  control  block. 

cepted;  a  new  driver  address  is  put  in  the  printer  device  control 
block.  The  printer  device  control  block  is  shown  in  Fig.  7-1  as  it 
appears  in  memory. 

The  program  in  Listing  7-1  uses  only  one  new  ROM  routine 
which  hasn't  been  previously  discussed.  This  routine  is  located  at 
0A9DH,  This  routine  simply  sets  the  number  type  flag  to  integer. 

Listing  7-1 


42E9 

00100 

ORG 

42E9H 

42E9 

CDC901 

00110  START 

CALL 

01C9H 

42EC 

21AC43 

00120 

LD 

HLjMl 

42EF 

CD752B 

00130 

CALL 

2B75H 

42F2 

CDB31B 

00140 

CALL 

1BB3H 

42F5 

D7 

00150 

RST 

001  OH 

42F6 

CD5A1E 

00160 

CALL 

1E5AH 

42F9 

21E543 

00170 

LD 

HL, BASIC 

42FC 

22A643 

00180 

LD 

<SBUFF),HL 

42FF 

22A843 

00190 

LD 

<NBUFF),HL 

4302 

19 

00200 

ADD 

HLjDE 

4303 

2B 

00210 

DEC 

HL 

4304 

22AA43 

00220 

LD 

<EBUFF),HL 

4307 

23 

00230 

INC 

HL 

4308 

3600 

00240 

LD 

<HL},0 

430A 

23 

00250 

INC 

HL 

430B 

22A440 

00260 

LD 

<40A4H},HL 

430E 

113200 

00270 

LD 

DE,50 

4311 

CD831E 

00280 

CALL 

1E83H 

4314 

CD4D1B 

00290 

CALL 

1B4DH 

4317 

2Ai640 

00300 

LD 

HL, <4016H) 

43iA 

226A43 

0031O 

LD 

<aMPl+l),HL 

431D 

213543 

00320 

LD 

HL,KEY 

4320 

221640 

00330 

LD 

<4016H),HL 

4323 

2A2640 

00340 

LD 

HL, <4026H> 

4326 

228643 

00350 

LD 

<jflP2+U  ,HL 

4329 

224943 

00360 

LD 

<jnP3+l) ,HL 

432C 

216C43 

00370 

LD 

HL, PRINT 

432F 

222640 

00380 

LD 

<4026H) ,HL 

4332 

C37200 

00390 

JP 

0072H 

433S 

2AA843 

00400  KEY 

LD 

HL, <NBUFF) 

4338 

ED5BA643 

00410 

LD 

DE, (SBUFF) 

433C 

DP 

00420 

RST 

OOIGH 

433D 

282A 

00430 

JR 

Z,JMP1 

433F 

CDD105 

00440 

CALL 

05D1H 

4342 

2025 

00450 

JR 

NZ,JHPi 

4344 

2AA643 

00460 

LD 

HL, < SBUFF) 
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4347 

4E 

00470 

LD 

C, (HL) 

4348 

CDOOOO 

004S0 

JMP3 

CALL 

OOOOH 

434B 

CD9D0A 

00490 

CALL 

0A9DH 

434E 

2AA643 

00500 

LD 

HL, (SBUFF) 

4351 

ED5BA843 

00510 

LD 

DE, < NBUFF) 

4355 

CDC70B 

00520 

CALL 

0BC7H 

4358 

E5 

00530 

PUSH 

HL 

4359 

Ci 

00540 

POP 

BC 

435A 

2AA643 

00550 

LD 

HL, (SBUFF) 

435D 

E5 

00560 

PUSH 

HL 

4^bb 

Dl 

00570 

POP 

DE 

435F 

23 

00580 

INC 

HL 

4360 

EDBO 

00590 

LDIR 

4362 

2AA843 

00600 

LD 

HL, (NBUFF) 

4365 

2B 

00610 

DEC 

HL 

4366 

22AS43 

00620 

LD 

(NBUFF), HL 

4369 

C30000 

00630 

JMPl 

JP 

OOOOH 

436C 

2AA843 

00640 

PRINT 

LD 

HL, (NBUFF) 

436F 

ED5BAA43 

00650 

LD 

DE, (EBUFF) 

4373 

DF 

00660 

RST 

0018H 

4374 

CA8043 

00670 

JP 

Z,SUB2 

4377 

2AA843 

00680 

LD 

HL, (NBUFF) 

437A 

71 

00690 

LD 

(HL),C 

437  B 

23 

00700 

INC 

HL 

437C 

22A843 

00710 

LD 

( NBUFF ),HL 

AS/h 

C9 

00720 

RET 

4380 

C5 

00730 

SUB2 

PUSH 

BC 

4381 

2AA643 

00740 

LD 

HL, (SBUFF) 

4384 

4E 

00750 

LD 

C, (HL) 

4385 

CDOOOO 

00760 

Jt1P2 

CALL 

OOOOH 

4388 

CD9D0A 

00770 

CALL 

0A9DH 

438B 

2AA643 

00780 

LD 

HL, (SBUFF) 

43SE 

ED5BAa43 

00790 

LD 

DE, (NBUFF) 

4392 

CDC70B 

00800 

CALL 

0BC7H 

439S 

E5 

00810 

PUSH 

HL 

4396 

CI 

00820 

POP 

BC 

4397 

2AA643 

00830 

LD 

HL, (SBUFF) 

439A 

ES 

00840 

PUSH 

HL 

439B 

Dl 

00B50 

POP 

VE 

439C 

23 

00860 

INC 

HL 

439D 

EDBO 

00870 

LDIR 

439F 

2AA843 

00880 

LD 

HL, (NBUFF) 

43A2 

2B 

00890 

DEC 

HL 

43A3 

CI 

00900 

POP 

BC 

43A4 

71 

00910 

LD 

(HL>,C 

43A5 

C9 

00920 

RET 

43A6 

0000 

00930 

SBUFF 

DEFUi 

0 

43A8 

0000 

00940 

NBUFF 

DEFW 

0 

43AA 

0000 

00950 

EBUFF 

DEFW 

0 

43AC 

52 

00960 

Ml 

DEFH 

'RAM  PRINTI 

43AD 

41 

43AE 

4D 

43AF 

20 

43B0 

50 

43B1 

52 

43B2 

49 

43B3 

4E 

43B4 

54 

43BS 

45 

43B6 

52 

43B7 

20 

43BB 

53 

43B9 

50 

43BA 

4F 

43BB 

4F 

43BC 

4C 

43BD 

45 

43BE 

52 
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43BF 

OD 

00970 

DEFB 

13 

43C0 

42 

00980 

DEFM 

'BY  MARK  D,  GOODWIN^ 

43Ci 

59 

43C2 

20 

43C3 

4D 

43C4 

41 

43C5 

52 

43C6 

4B 

43C7 

20 

43CS 

44 

43C9 

2E 

43CA 

20 

43CB 

47 

43CC 

4F 

43CD 

4F 

43CE 

44 

43CF 

57 

43D0 

49 

43D1 

4E 

43D2 

OD 

00990 

DEFB 

13 

43D3 

45 

01000 

DEFH 

'ENTER  BUFFER  SIZE' 

43D4 

4E 

43D5 

54 

43D6 

45 

4307 

52 

43D8 

20 

43D9 

42 

43DA 

55 

43DB 

46 

43DC 

46 

43DD 

45 

43DE 

52 

43DF 

20 

43E0 

53 

43Ei 

49 

43E2 

5A 

43E3 

45 

43E4 

00 

01010 

DEFB 

0 

43ES 

00 

01020  BASIC 

DEFB 

0 

42E9 

01030 

END 

START 

OOOOO  TOTAL  ERRORS 

SUB2 

4380 

PRINT 

436C 

JMP3 

4348 

JMP2 

4385 

KEY 

4335 

JMPi 

4369 

EBUFF 

43AA 

NBUFF 

43A8 

SBUFF 

43A6 

BASIC 

43E5 

m 

43AC 

START 

42E9 

Listing  7-1  Comments 

100  -  Set  the  starting  address  for  the  program  to  the  start  of  user 

RAM. 
110  -  Go  dear  the  screen. 
120  -  Load  register  pair  HL  with  the  starting  address  for  the 

message  to  be  displayed. 
130  -  Go  display  the  message. 
140  -  Go  get  the  response  from  the  keyboard. 
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150  -  Bump  the  input  buffer  pointer  in  register  pair  Hi:,  till  it 
points  to  the  first  character. 

160  -  Go  evaluate  the  expression  at  the  location  of  the  input 
buffer  pointer  in  register  pair  HL  and  return  with  the  in- 
teger result  in  register  pair  DE.  The  value  in  regis  cer  pair 
DE  is  the  size  of  the  spooler's  buffer  area. 

170  -  Load  register  pair  HL  with  the  end  of  the  spooler  program. 

180  -  Save  the  end  of  the  spooler  program  in  register  pai  r  HL  as 
the  start  of  the  buffer  area. 

190  -  Save  the  end  of  the  spooler  program  in  register  pair  HL  as 
the  next  available  location  in  the  spooler  buffer. 

200  -  Add  the  buffer  size  in  register  pair  DE  to  the  start  of  the 
buffer  area  in  register  pair  HL. 

210  -  Decrement  the  end  of  the  spooler  buffer  area  pointer  in 
register  pair  HL, 

220  -  Save  the  end  of  the  spooler  buffer  area  pointer  in  iregister 
pair  HL. 

230  -  Bump  the  pointer  in  register  pair  HL  so  that  it  points  to  the 

new  start  of  the  BASIC  program  area. 
240  -  Zero  the  location  of  the  start  of  the  BASIC  program  area 

pointer  in  register  pair  HL. 
250  -  Bump  the  start  of  the  BASIC  program  area  poiinter  in 

register  pair  HL. 
260  -  Save  the  new  start  of  the  BASIC  program  area  pointer  in 

register  pair  HL. 
270  -  Load  register  pair  DE  with  the  number  of  byte:5  to  be 

reserved  as  string  space. 
280  -  Go  reserve  the  amount  of  string  space  and  reset  the  start  of 

string  space  pointer. 
290  -  Go  reset  the  Level  II  BASIC  variables  and  pointers. 
300  -  Load  register  pair  HL  with  the  present  keyboarct  driver 

address. 
310  -  Save  the  present  keyboard  driver  address  in  register  pair 

HL  so  that  the  program  can  jump  to  the  old  keyboard  driver 

when  necessary. 
320  -  Load  register  pair  HL  with  the  starting  address  of  the  new 

keyboard  driver. 
330  -  Save  the  new  keyboard  driver  address  in  register  pair  HL  in 

the  keyboard  device  control  block. 
340  -  Load  register  pair  HL  with  the  present  printer  driver  ad- 
dress. 
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350  -  Save  the  present  printer  driver  address  in  register  pair  HL 

so  that  the  program  can  jump  to  the  old  printer  driver  when 

necessary. 
360  -  Save  the  present  printer  driver  address  in  register  pair  HL 

so  that  the  program  can  jump  to  the  old  printer  driver  when 

necessary. 
370  -  Load  register  pair  HL  with  ±e  starting  address  of  the  new 

printer  driver. 
380  -  Save  the  new  printer  driver  address  in  register  pair  HL  in 

the  printer  device  control  block. 
390  -  Return  to  the  Level  II  BASIC  READY  routine. 
400  -  Load  register  pair  HL  with  the  next  available  location  in  the 

spooler  buffer  area  pointer. 
410  -  Load  register  pair  DE  with  the  start  of  the  spooler  buffer 

area  pointer. 
420  -  Go  compare  the  next  available  location  in  the  spooler  buffer 

area  pointer  in  register  pair  HL  to  the  start  of  the  spooler 

buffer  area  pointer  in  register  pair  DE. 
430  -  If  the  next  available  location  in  the  spooler  buffer  area 

pointer  in  register  pair  HL  is  the  same  as  the  start  of  the 

spooler  buffer  area  pointer  in  register  pair  DE  then  jump  to 

the  normal  Level  II  BASIC  keyboard  driver  routine. 
440  -  Go  check  to  see  if  the  printer  is  busy. 
450  -  If  the  printer  is  busy,  then  jump  to  the  normal  Level  II 

BASIC  keyboard  driver  routine. 
460  -  Load  register  pair  HL  with  the  start  of  the  spooler  buffer 

area  pointer. 
470  -  Load  register  C  with  the  character  at  the  location  of  the 

start  of  the  spooler  buffer  area  pointer  in  register  pair  HL. 
480  -  This  is  a  dummy  call,  but  will  be  set  to  call  the  normal  Level 

II  BASIC  printer  driver  by  the  initialization  phase  of  the 

spooler  program. 
490  -  Go  set  the  current  number  type  flag  to  integer. 
500  -  Load  register  pair  HL  with  the  start  of  the  spooler  buffer 

area  pointer. 
510  -  Load  register  pair  DE  with  the  next  available  location  in  the 

spooler  buffer  area  pointer. 
520  -  Go  subtract  the  start  of  the  spooler  buffer  area  pointer  in 

register  pair  HL  from  the  next  available  location  in  the 

spooler  buffer  area  pointer  in  register  pair  DE. 
530  -  Save  the  length  of  the  remaining  characters  in  register  pair 

HL  on  the  stack. 
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540  -  Get  the  length  of  the  remaining  characters  from  t:he  stack 

and  put  it  in  register  pair  BC. 
550  -  Load  register  pair  HL  with  the  start  of  the  spooler  buffer 

area  pointer. 
560  -  Save  the  start  of  the  spooler  buffer  area  pointer  in  register 

pair  HL  on  the  stack. 
570  -  Get  the  start  of  the  spooler  buffer  area  pointer  in  register 

pair  HL. 
580  -  Bump  the  start  of  the  spooler  buffer  area  pointer  in  register 

pair  HL. 
590  -  Move  the  remaining  characters  in  the  spooler  buffer  down 

one  byte. 
600  -  Load  register  pair  HL  with  the  next  available  location  in  the 

spooler  buffer  area  pointer. 
610  -  Decrement  the  next  available  location  in  the  spooler  buffer 

area  pointer  in  register  pair  HL. 
620  -  Save  the  next  available  location  in  the  spooler  buffer  area 

pointer  in  register  pair  HL. 
630  -  Dummy  jump.  This  will  be  changed  by  the  spoDler  pro- 
gram's initialization  phase,   so  that  it  will  junrip  to  the 

normal  Level  II  BASIC  keyboard  driver. 
640  -  Load  register  pair  HL  with  the  next  available  location  in  the 

spooler  buffer  area  pointer. 
650  -  Load  register  pair  DE  with  the  end  of  the  spooler  buffer 

area  pointer. 
660  -  Go  compare  the  next  available  location  in  the  spooler  buffer 

area  pointer  in  register  pair  HL  to  the  end  of  the  spooler 

buffer  area  pointer  in  register  pair  DE. 
670  -  Jump  to  the  spooler  *one  in,  one  out'  routine,  if  the  next 

available  location  in  the  spooler  buffer  area  pointer  in 

register  pair  HL  is  the  same  as  the  end  of  the  spooler  buffer 

area  pointer  in  register  pair  DE. 
680  -  Load  register  pair  HL  with  the  next  available  location  in  the 

spooler  buffer  area  pointer. 
690  -  Save  the  character  to  be  sent  to  the  printer  at  the  location  of 

the  next  available  location  in  the  spooler  buffer  area  pointer 

in  register  pair  HL. 
700  -  Bump  the  next  available  location  in  the  spooler  buffer  area 

pointer  in  register  pair  HL. 
710  -  Save  the  next  available  location  in  the  spooler  buffer  area 

pointer  in  register  pair  HL. 
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720  -  Return. 

730  -  Save  the  character  to  be  printed  in  register  C  on  the  stack. 

740  -  Load  register  pair  HL  with  the  start  of  the  spooler  buffer 

area  pointer. 
750  -  Load  register  C  with  the  next  character  to  be  sent  to  the 

printer  at  the  location  of  the  start  of  the  spooler  buffer  area 

pointer  in  register  pair  HL. 
760  -  Dummy  call.  This  will  be  changed  by  the  spooler  program's 

initialization  phase,  so  that  it  will  call  the  normal  Level  II 

BASIC  printer  driver  routine. 
770  -  Go  set  the  current  number  type  flag  to  integer. 
780  -  Load  register  pair  HL  with  the  start  of  the  spooler  buffer 

area  pointer. 
790  -  Load  register  pair  DE  with  the  next  available  location  in  the 

spooler  buffer  area  pointer. 
800  -  Go  subtract  the  start  of  the  spooler  buffer  area  pointer  in 

register  pair  HL  from  the  next  available  location  in  the 

spooler  buffer  area  pointer  in  register  pair  DE. 
810  -  Save  the  length  of  the  remaining  characters  in  the  spooler 

buffer  area  in  register  pair  HL  on  the  stack. 
820  -  Get  the  length  of  the  remaining  characters  in  the  spooler 

buffer  area  from  the  stack  and  put  it  in  register  pair  BC. 
830  -  Load  register  pair  HL  with  the  start  of  the  spooler  buffer 

area  pointer. 
840  -  Save  the  start  of  the  spooler  buffer  area  pointer  in  register 

pair  HL  on  the  stack. 
850  -  Get  the  start  of  the  spooler  buffer  area  pointer  from  the 

stack  and  put  it  in  register  pair  DE. 
860  -  Bump  the  start  of  the  spooler  buffer  area  pointer  in  register 

pair  HL. 
870  -  Move  the  remaining  characters  in  the  spooler  buffer  area 

down  one  byte. 
880  -  Load  register  pair  HL  with  the  next  available  location  in  the 

spooler  buffer  area  pointer. 
890  -  Decrement  the  next  available  location  in  the  spooler  buffer 

area  pointer  in  register  pair  HL. 
900  -  Get  the  character  to  be  put  in  the  spooler  buffer  area  from 

the  stack  and  put  it  in  register  C. 
910  -  Save  the  character  to  be  put  in  the  spooler  buffer  area  in 

register  C  at  the  location  of  the  next  available  location  of  the 

spooler  buffer  area  pointer  in  register  pair  HL. 
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920  -  Return. 

930  -  Reserve  two  bytes  for  the  start  of  the  spooler  buffer  area 

pointer. 
940  -  Reserve  two  bytes  for  the  next  available  location  in  the 

spooler  buffer  area  pointer, 
950  -  Reserve  two  bytes  for  the  end  of  the  spooler  buffer  area 

pointer. 
960  -  Part  of  the  sign-on  message  is  stored  here. 
970  -  This  will  cause  a  carriage  return  to  be  displayed  as  part  of 

the  sign-on  message. 
980  -  Part  of  the  sign-on  message  is  stored  here. 
990  -  This  will  cause  a  carriage  return  to  be  displayed  as  part  of 

the  sign-on  message. 
1000  -  Part  of  the  sign-on  message  is  stored  here. 
1010  -  The  sign-on  message  terminator  is  stored  here. 
1020  -  The  spooler  buffer  area  will  start  here. 
1030  -  End  of  the  program. 
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Chapter  8 
The  JKL-to-Printer  Function 


The  utility  program  in  this  chapter  is  called  the  JKL-TO-PRINTER 
function.  This  utility  is  included  on  many  disk  operating  systems. 
The  utility's  function  is  quite  simple.  Whenever  the  JKL  keys  are  all 
pressed  at  the  same  time,  the  utility  will  print  the  contents  of  the 
video  display  on  the  printer.  It  can  be  quite  useful  when  debugging 
programs.  If  an  error  occurs,  the  operator  can  dump  the  contents  of 
the  screen  on  the  printer,  and  this  screen  dump  can  be  referred  to 
later  when  trying  to  determine  the  problem  in  the  program. 

THE  JKL-TO-PRINTER  PROGRAM 

The  keyboard  on  the  TRS-80  Model  I  is  a  memory-mapped 
device.  Simply  stated,  this  means  that  Level  II  BASIC  looks  at  a 
specific  location  in  memory  to  determine  if  a  key  is  being  pressed. 
The  J,  K.  and  L  keys  are  all  located  at  memory  location  3802H.  If  all 
of  the  keys  are  being  pressed  at  the  same  time,  memory  location 
3802H  will  have  the  value  of  28.  Therefore,  the  program  simply 
reads  the  value  stored  at  3802H.  If  it  is  equal  to  28,  the  program 
knows  that  the  JKL  keys  are  all  being  pressed  at  the  same  time. 

Program  Listing  8-1  performs  the  JKL-TO-PRINTER  func- 
tion. The  program  intercepts  the  keyboard  driver,  upon  initializa- 
tion. Once  initialized,  the  program  will  check  to  see  if  the  JKL  keys 
are  being  pressed  all  at  the  same  time.  This  check  is  performed  each 
time  level  II  BASIC  scans  the  keyboard.  If  the  JKL  keys  are  being 
held  down,  the  program  will  dump  the  contents  of  the  screen  on  the 
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printer.  K  the  JKL  keys  aren't  being  held  down,  the  program  will 
jump  to  the  normal  Level  II  BASIC  keyboard  driver. 

Listing  8-1 


42E9 

00100 

ORG 

42E9H 

42E9 

CDC901 

00110 

START 

CALL 

01C9H 

42EC 

214043 

00120 

LD 

HLjMl 

42EF 

CD752B 

00130 

CALL 

2B75H 

42F2 

CD4900 

00140 

CALL 

0049H 

42F5 

FE59 

00150 

CP 

"V 

42F7 

2808 

00160 

JR 

ZjLPl 

42F9 

FE4E 

00170 

CP 

"H' 

42FB 

20EC 

00180 

JR 

NZ, START 

42FD 

3E3E 

00190 

LD 

A,3EH 

42FF 

1802 

00200 

JR 

LP2 

4301 

3EC6 

00210 

LP! 

LD 

A,0C6H 

4303 

323B43 

00220 

LP2 

LD 

(JKL2),A 

4306 

219243 

00230 

LD 

HL, BASIC 

4309 

3600 

00240 

LD 

<HL),0 

430B 

23 

00250 

INC 

HL 

430C 

22A440 

00260 

LD 

<40A4H),HL 

430F 

1 1 3200 

00270 

LD 

DE,50 

4312 

CD831E 

00280 

CALL 

iEB3H 

4315 

CD4D1B 

00290 

CALL 

iB4DH 

4318 

2A1640 

00300 

LD 

HL, <40i6H) 

431B 

222D43 

00310 

LD 

(JUMP+1> ,HL 

431£ 

212743 

00320 

LD 

HL,JKL 

4321 

221640 

00330 

LD 

<4016H) ,HL 

4324 

C37200 

00340 

JP 

0072H 

4327 

3A0238 

00350 

JKL 

LD 

A, <3802H) 

432A 

FEIC 

00360 

CP 

28 

432C 

C20000 

00370 

JUMP 

JP 

NZ,OOOOH 

432F 

21003C 

00380 

LD 

HL,3C00H 

4332 

OEIO 

00390 

LD 

c/l6 

4334 

0640 

00400 

JKL  3 

LD 

8,64 

4336 

7E 

00410 

JKL4 

LD 

A,  <HL> 

4337 

FE80 

00420 

CP 

128 

4339 

3802 

00430 

JR 

C,JKL5 

433B 

00 

00440 

JKL2 

NOP 

433C 

20 

00450 

DEFB 

32 

433D 

CD3B00 

00460 

JKL5 

CALL 

003BH 

4340 

23 

00470 

INC 

HL 

4341 

10F3 

00480 

DJNZ 

JKL4 

4343 

3E0D 

00490 

LD 

A,  13 

4345 

CD3B00 

00500 

CALL 

003BH 

4348 

OD 

00510 

DEC 

C 

4349 

20E9 

00520 

JR 

NZ,JKL3 

434B 

AF 

00S30 

XOR 

A 

434C 

C9 

00540 

RET 

434D 

4A 

00550 

Ml 

DEFM 

'JKL-TO-PRII 

434E 

4B 

434F 

4C 

4350 

2D 

4351 

54 

43S2 

4F 

4353 

2D 

4354 

50 

4355 

52 

4356 

49 

4357 

4£ 

4358 

54 

4359 

45 

435A 

52 

435B 

OD 

00560 

DEFB 

13 
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435C  42 
43SD  59 
435E  20 
435F  4D 

4360  41 

4361  52 

4362  4B 

4363  20 

4364  44 

4365  2E 

4366  20 

4367  47 

4368  4F 

4369  4F 
436A  44 
436B  57 
436C  49 
436D  4E 
436E  OD 
436F  44 

4370  4F 

4371  20 

4372  59 

4373  4F 

4374  55 

4375  20 

4376  48 

4377  41 

4378  56 

4379  45 
437A  20 
437B  41 
437C  4E 
437D  20 
437E  45 
437F  50 

4380  53 

4381  4F 

4382  4E 

4383  20 

4384  4D 

4385  58 

4386  2p 

4387  38 

4388  30 

4389  20 
438A  28 
438B  59 
438C  2F 
438D  4E 
438E  29 
43SF  3F 

4390  OD 

4391  00 

4392  00 
42E9 


00570 


DEFM 


'BY  HARK  D.  GOODWIN' 


00580 
00590 


DEFB  13 

DEFM  'DO  YOU  HAVE  AN  EPSON  MX-80  (Y/N)' 


00600 
00610 

00620  BASIC 
00630 


DEFB 
DEFB 
DEFB 
END 


13 
O 
O 
START 


00000  TOTAL  ERRORS 


JKL5 

JKL4 

JKL3 

JKL 

JUMP 

BASIC 

JKL2 

LP2 

LPl 

Ml 

START 


433D 
4336 
4334 
4327 
432C 
4392 
433B 
4303 
4301 
434D 
42E9 
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Listing  8-1  Comments 

100  -  Set  the  starting  address  of  the  program  to  the  start  of  user 

RAM. 
110  -  Go  clear  the  screen. 
120  -  Load  register  pair  HL  with  the  starting  address  for  the 

message  to  be  displayed. 
130  -  Go  display  the  message. 
140  -  Go  scan  the  keyboard  and  wait  till  a  key  has  been  pressed. 

Return  with  the  key  pressed  in  register  A. 
150  -  Check  to  see  if  the  key  that  was  pressed  in  register  A  is  a  Y. 
160  -  Jump  if  the  key  that  was  pressed  in  register  A  is  a  Y. 
170  -  Check  to  see  if  the  key  that  was  pressed  in  register  A  is  a  N. 
180  -  Go  ask  again  if  the  key  that  was  pressed  in  register  A  isn't  a 

N. 
190  -  Load  register  A  with  the  op  code  for  a  LD  A,N  instruction. 

200  -  Jump. 

210  -  Load  register  A  with  the  op  code  for  a  ADD  A.N  instmction. 

220  -  Save  the  op  code  in  register  A  so  that  it  will  perform  the 

proper  operation  when  the  JKL-to-printer  function  is  used. 
230  -  Load  register  pair  HL  with  the  start  of  the  BASIC  program 

area  pointer. 
240  -  Zero  the  location  of  the  start  of  the  BASIC  program  pointer  in 

register  pair  HL. 
250  -  Bump  the  start  of  the  BASIC  program  pointer  in  register  pair 

HL. 
260  -  Save  the  start  of  the  BASIC  program  area  pointer  in  register 

pair  HL. 

270  -  Load  register  pair  DE  with  the  number  of  bytes  :o  be  re- 
served as  string  space. 

280  -  Go  reserve  the  amount  of  string  space  in  register  ]Dair  DE. 

290  -  Go  reset  the  BASIC  variables  and  pointers. 

300  -  Load  register  pair  HL  with  the  starting  address  of  the  pres- 
ent Level  II  BASIC  keyboard  driver. 

310  -  Save  the  starting  address  of  the  present  Level  II  BASIC 
keyboard  driver  in  register  pair  HL  so  that  it  can  be  used  by 
the  JKL-TO-PRINTER  function  to  branch  to  the  normal 
keyboard  driver  routine. 

320  -  Load  register  pair  HL  with  the  starting  address  of  the  JKL- 
TO-PRINTER  routine. 

330  -  Save  the  starting  address  of  the  JKL-TO-PRINTER  routine 
in  register  pair  HL  in  the  keyboard  device  control  block  as 
the  current  keyboard  driver  address. 
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340  -  Jump  to  the  Level  II  BASIC  READY  routine. 

350  -  Load  register  A  with  the  memory  location  which  holds  the 

value  for  the  JKL  keys. 
360  -  Check  to  see  if  the  value  in  register  A  is  the  same  as  the 

expected  value  for  the  JKL  keys  all  being  pressed  at  the  same 

time. 
370  -  Dummy  jump.  This  will  be  set  to  jump  to  the  normal 

keyboard  driver  routine  by  the  initialization  process,  if  the 

JKL  keys  aren't  being  pressed  all  at  the  same  time. 
380  -  Load  register  pair  HL  with  the  start  of  video  memory. 
390  -  Load  register  C  with  the  number  of  lines  to  be  printed. 
400  -  Load  register  B  with  the  number  of  characters  per  line  to  be 

printed. 
410  -  Load  register  A  with  the  character  being  displayed  at  the 

location  of  the  video  memory  pointer  in  register  pair  HL. 
420  -  Check  to  see  if  the  video  character  in  register  A  is  a  graphic 

character. 
430  -  If  the  video  character  in  register  A  isn't  a  graphic  character 

then  jump. 
440  -  Dummy  op  code.  This  will  be  changed  to  either  a  LD  A,  N  or  a 

ADD  A,N  op  code  by  the  initialization  process. 
450  -  The  value  to  either  load  register  A  with  or  the  value  to  add  to 

register  A  is  stored  here.  This  is  determined  by  the  value  of 

the  op  code  in  the  previous  line. 
460  -  Go  print  the  character  in  register  A  on  the  printer. 
470  -  Bump  the  video  memory  pointer  in  register  pair  HL. 
480  -  Loop  if  all  of  the  characters  on  the  present  line  of  the  video 

display  haven't  been  printed. 
490  -  Load  register  A  witli  the  ASCII  code  for  a  carriage  return. 
500  -  Go  print  a  carriage  return  on  the  printer. 
510  -  Decrement  the  number  of  lines  to  be  printed  in  register  C. 
520  -  Loop  till  all  of  the  lines  on  the  video  display  have  been 

printed. 
530  -  Zero  register  A. 
540  -  Return. 

550  -  Part  of  the  sign-on  message  is  stored  here. 
560  -  This  will  cause  a  carriage  return  to  be  displayed  as  part  of  the 

sign-on  message. 
570  -  Part  of  the  sign-on  message  is  stored  here. 
580  -  This  will  cause  a  carriage  return  to  be  displayed  as  part  of  the 

sign-on  message. 
590  -  Part  of  the  sign-on  message  is  stored  here. 
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600  -  This  will  cause  a  carriage  return  to  be  displayed  as  part  of  the 

sign-on  message. 
610  -  The  sign-on  message  terminator  is  stored  here. 
620  -  The  new  start  of  the  BASIC  program  area  will  be  here. 
630  -  End  of  the  program. 

EPSON  MX-80  PRINTER 

Most  of  the  recent  printers  introduced  on  the  market  have 
graphics  printing  capability.  The  Epson  MX-80  is  one  of  tlriem.  The 
program  presented  in  this  chapter  starts  it's  initialization  phase  by 
asking  the  operator  ifhe  has  an  Epson  MX-80.  Ifone  is  available,  the 
JKL  utility  will  be  able  to  print  any  graphic  characters  displayed  on 
the  screen.  The  Epson  graphic  codes  are  the  same  as  the  ]\lodel  Fs, 
except  that  32  must  be  added  to  the  value  of  die  Model  I  graphic 
code  to  print  the  same  graphic  character  on  the  MX-80.  Therefore, 
the  program  checks  each  character  to  be  sent  to  the  printer  to  see  if 
it's  a  graphic  character.  If  it  is,  the  utility  adds  32  to  the  ch^aractef  s 
value. 

NON-QRAPHiC  PRINTERS 

K  the  printer  available  doesn't  have  graphics  capability,  then 
the  appropriate  response  should  be  given  to  the  program's  initiali- 
zation phase.  By  telling  the  JKL  utility  that  an  Epson  M3C-80  isn't 
available,  the  program  will  print  a  space  for  any  graphic  character 
appearing  on  the  video  display.  The  program  perform!?  this  by 
checking  each  character  to  be  sent  to  the  printer  to  see  whether  or 
not  it  is  a  graphic  character. 
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Chapter  9 
Spelled-Out  Error  Messages 


The  abbreviated  Level  II  BASIC  error  messages  just  don't  provide 
enough  information  to  be  adequate.  They're  okay  for  errors  which 
occur  frequently,  but  a  lot  of  time  can  be  wasted  looking  up  error 
messages  which  don't  occur  frequently. 

The  program  in  Listing  9-1  adds  spelled-out  error  messages  to 
Level  II  BASIC,  Upon  initialization  of  the  program,  it  intercepts  the 
DOS  link  at  41A6H.  Whenever  an  error  occurs  in  Level  II  BASIC, 
the  error  routine  will  call  the  DOS  link.  On  entry  to  the  DOS  link, 
register  E  will  hold  the  appropriate  code.  The  program  adds  the 
value  of  the  error  code  to  a  table  pointer,  which  in  turn,  will  point  to 
the  new  error  message  to  be  displayed.  The  routine  jumps  back 
to  Level  11  BASIC  with  the  starting  address  of  the  new  error 
message  in  register  pair  HL  and  the  Level  II  BASIC  error  routine 
continues  on  normally. 


Listing  9-1 


42E9 

00100 

DRS 

42E9H 

42E9 

CDC90i 

00110  START 

CALL 

01C9H 

42EC 

21E244 

00120 

LD 

HL,M1 

42EF 

CD752B 

00130 

CALL 

2B7SH 

42F2 

211145 

00140 

LD 

HL, BASIC 

42F5 

3600 

00150 

LD 

<HL) ,0 

42F7 

23 

00160 

INC 

HL 

42F8 

22A440 

00170 

LD 

(40A4H>,HL 

42FB 

113200 

00180 

LD 

DE,S0 

42FE 

CDa31E 

00190 

CALL 

1E83H 

4301 

CD4D1B 

00200 

CALL 

1B4DH 
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4304  3EC3 

00210 

LD 

A,0C3H 

4306  32A641 

00220 

LD 

(41A6H) ,A 

4309  211243 

00230 

LD 

HL, ERROR 

430C  22A741 

00240 

LD 

(4iA7H),HL 

430F  C37200 

00250 

JP 

0072H 

4312  1600 

00260  ERROR 

LD 

D,0 

4314  21iF43 

00270 

LD 

HL, TABLE 

4317  19 

00280 

ADD 

HL,DE 

43ia  SE 

00290 

LD 

E,  <HL> 

4319  23 

00300 

INC 

HL 

431A  56 

00310 

LD 

D, <HL> 

43iB  EB 

00320 

EX 

DE,HL 

43iC  C30ilA 

00330 

JP 

lAOlH 

43 IF  4D43 

00340  TABLE 

DEFW 

NF 

4321  SE43 

00350 

DEFW 

SN 

4323  6B43 

00360 

DEFW 

RG 

4325  8043 

00370 

DEFW 

OD 

4327  aC43 

003S0 

DEFW 

FC 

4329  A243 

00390 

DEFW 

ov 

432B  AB43 

00400 

DEFW 

on 

432D  B943 

00410 

DEFW 

UL 

432F  CF43 

00420 

DEFW 

BG 

4331  E643 

00430 

DEFW 

DO 

4333  FA43 

00440 

DEFW 

DO 

4335  0B44 

00450 

DEFW 

ID 

4337  2444 

00460 

DEFW 

TM 

4339  3244 

00470 

DEFW 

OS 

433B  4644 

00480 

DEFW 

LS 

433D  5644 

00490 

DEFW 

ST 

433F  7144 

00500 

DEFW 

CN 

4341  8044 

00510 

DEFW 

NR 

4343  BA44 

00520 

DEFW 

RW 

4345  9F44 

00530 

DEFW 

UE 

4347  Bi44 

00540 

DEFW 

MO 

4349  C144 

00550 

DEFW 

FD 

434B  CF44 

00560 

DEFW 

L3 

434D  4E 

00570  NF 

DEFM 

'NEXT  WITHOUT  FOR 

434E  45 

434F  58 

4350  54 

4351  20 

4352  57 

4353  49 

4354  54 

4355  48 

4356  4F 

4357  55 

4358  54 

4359  20 

4 35 A  46 

435B  4F 

43SC  52 

435D  00 

00580 

PEFB 

0 

435E  53 

00590  SN 

DEFM 

'SYNTAX  ERROR' 

435F  59 

4360  4E 

4361  54 

4362  41 

4363  58 

4364  20 

4365  45 

4366  52 

4367  52 

4368  4F 

4369  52 

436A  00 

00600 

DEFB 

0 

436B  52 

00610  RG 

DEFM 

'RETURN  WITHOUT  G 

436C  45 
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436D 

54 

436E 

55 

436F 

52 

4370 

4E 

4371 

20 

4372 

57 

4373 

49 

4374 

54 

4375 

48 

4376 

4F 

4377 

55 

4378 

54 

4379 

20 

437A 

47 

437B 

4F 

437C 

53 

437D 

55 

437E 

42 

437F 

00 

00620 

DEFB 

0 

4380 

4F 

00630  OD 

DEFM 

'OUT  OF  D 

43S1 

55 

4382 

54 

4383 

20 

4384 

4F 

4385 

46 

43B6 

20 

4387 

44 

4388 

41 

4389 

54 

438A 

41 

438B 

00 

00640 

DEFB 

0 

438C 

49 

00650  FC 

DEFM 

' ILLEGAL  I 

4380 

4C 

43SE 

4C 

438F 

45 

4390 

47 

4391 

41 

4392 

4C 

4393 

20 

4394 

46 

4395 

55 

4396 

4E 

4397 

43 

4398 

54 

4399 

49 

439A 

4F 

439B 

4E 

439C 

20 

439D 

43 

439E 

41 

439F 

4C 

43A0 

4C 

43A1 

00 

00660 

DEFB 

0 

43A2 

4F 

00670  OV 

DEFM 

'OVERFLOW 

43A3 

56 

43A4 

45 

43AS 

52 

43A6 

46 

43A7 

4C 

43A8 

4F 

43A9 

57 

43AA 

00 

00680 

DEFB 

0 

43AB 

4F 

00690  on 

DEFM 

'OUT  OF  ME 

43AC 

55 

43AD 

54 

43AE 

20 

43AF 

4F 

43B0 

46 
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43B1  20 

43B2  4D 

43B3  4S 

43B4  4D 

43B5  4F 

43B6  52 

43B7  59 

43B8  00 

00700 

DthB 

43B9  55 

00710  UL 

DEFH 

43BA  4E 

43BB  44 

43BC  45 

43BD  46 

43BE  49 

43BF  4E 

43C0  45 

43C1  44 

43C2  20 

43C3  4C 

43C4  49 

43C5  4£ 

43C6  45 

43C7  20 

43C8  4G 

43C9  55 

43CA  4D 

43CB  42 

43CC  45 

43CD  52 

43CE  00 

00720 

DEFB 

43CF  53 

00730  BS 

DEFH 

43D0  55 

43D1  42 

43D2  53 

43D3  43 

43D4  52 

43D5  49 

43D6  50 

4307  54 

43DS  20 

43D9  4F 

43DA  55 

43DB  54 

43DC  20 

43DD  4F 

43DE  46 

43DF  20 

43E0  52 

43E1  41 

43E2  4£ 

43E3  47 

43E4  45 

43E5  00 

00740 

DEFB 

43E6  52 

00750  DD 

DEFH 

43E7  45 

43E8  44 

43E9  49 

43EA  4D 

43EB  45 

43EC  4E 

43ED  53 

43EE  49 

43EF  4F 

43F0  4E 

43F1  45 

43F2  44 

43F3  20 

43F4  41 

'UNDEFINED  LINE  NUMBER' 


'SUBSCRIPT  OUT  OF  RANGE' 


O 


'REDIMENSIONED  ARRAY' 
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43F5  52 
43F6  52 
43F7  41 
43Fa  S9 
43F9  00 
43FA  44 
43FB  49 
43FC  56 
43FD  49 
43FE  53 
43FF  49 

4400  4F 

4401  4E 

4402  20 

4403  42 

4404  59 

4405  20 

4406  5A 

4407  45 

4408  52 

4409  4F 
440 A  00 
440B  49 
440C  4C 
440D  4C 
44 OE  45 
440F  47 

4410  41 

4411  4C 

4412  20 

4413  44 

4414  49 

4415  52 

4416  45 

4417  43 

4418  54 

4419  20 
441A  4F 
441B  50 
441C  45 
441D  52 
44iE  41 
44 IF  54 

4420  49 

4421  4F 

4422  4E 

4423  00 

4424  54 

4425  59 

4426  50 

4427  45 

4428  20 

4429  4D 
442A  49 
442B  53 
442C  40 
442D  41 
442E  54 
442F  43 

4430  48 

4431  00 

4432  4F 

4433  5S 

4434  54 

4435  20 

4436  4F 

4437  46 

4438  20 


00760 
00770  DO 


DEFB 
DEFM 


'DIVISION  BY  ZERO' 


007B0 
00790  ID 


DEFB 
DEFM 


ILLEGAL  DIRECT  OPERATION' 


00800 
00810  TM 


DEFB 
DEFM 


'TYPE  hISHATCH' 


00820 
00830  OS 


DEFB 
DEFM 


'OUT  OF  STRINS  SPACE' 
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4439 

53 

443A 

54 

443B 

52 

443C 

49 

443D 

4E 

443E 

47 

443F 

20 

4440 

53 

4441 

50 

4442 

41 

4443 

43 

4444 

45 

4445 

00 

00B40 

DEFB 

0 

4446 

53 

00850  LS 

DEFM 

'STRING  TOO 

4447 

54 

4448 

52 

4449 

49 

444A 

4E 

444B 

47 

444C 

20 

444D 

54 

444E 

4F 

444F 

4F 

4450 

20 

4451 

4C 

4452 

4F 

4453 

4E 

4454 

47 

4455 

00 

00860 

DEFB 

0 

4456 

53 

00870  ST 

DEFM 

*  STRING  FORI 

4457 

54 

4458 

52 

4459 

49 

44SA 

4E 

445B 

47 

44SC 

20 

445D 

46 

445E 

4F 

44SF 

52 

4460 

40 

4461 

55 

4462 

4C 

4463 

41 

4464 

20 

4465 

54 

4466 

4F 

4467 

4F 

4468 

20 

4469 

43 

446A 

4F 

446B 

4D 

446C 

50 

446D 

4C 

446E 

45 

446F 

58 

4470 

00 

00880 

DEFB 

0 

4471 

43 

00890  CN 

DEFii 

'CAN' 

4472 

41 

4473 

4E 

4474 

27 

00900 

DEFB 

39 

4475 

54 

00910 

DEFM 

'T  CONTINUE 

4476 

20 

4477 

43 

4478 

4F 

4479 

4E 

447A 

54 

447B 

49 

447C 

4E 
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447D 

5S 

447E 

45 

447F 

00 

4480 

4E 

4481 

4F 

44S2 

20 

4483 

52 

4484 

45 

4485 

53 

4486 

55 

4487 

4D 

4488 

45 

4489 

00 

44SA 

52 

448B 

45 

448C 

53 

448D 

55 

44aE 

4D 

448F 

45 

4490 

20 

4491 

57 

4492 

49 

4493 

54 

4494 

48 

4495 

4F 

4496 

55 

4497 

54 

4498 

20 

4499 

45 

449A 

52 

449B 

52 

449C 

4F 

449D 

52 

449E 

00 

449F 

55 

44A0 

4E 

44A1 

50 

44A2 

52 

44A3 

49 

44A4 

4E 

44A5 

54 

44A6 

41 

44A7 

42 

44AS 

4C 

44A9 

45 

44AA 

20 

44AB 

45 

44AC 

52 

44AD 

52 

44AE 

4F 

44AF 

52 

44B0 

00 

44B1 

4D 

44B2 

49 

44B3 

53 

44B4 

53 

44B5 

49 

44B6 

4E 

44B7 

47 

4468 

20 

44B9 

4F 

44BA 

50 

44BB 

45 

44BC 

52 

44BD 

41 

44BE 

4E 

44BF 

44 

44C0 

00 

00920 
00930  NR 


DEFB 
DEFM 


-NO  RESUME' 


00940 
00950  RW 


DEFB 
DEFH 


'RESUME  UIITHOUT  ERROR' 


00960 
00970  UE 


DEFB 
DEFM 


'UNPRINTABLE  ERROR' 


00980 
00990  MQ 


DEFB 
DEFM 


=■  MISSING  OPERAND' 
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44C1 

42 

01010  FD 

DEFIi 

'BAD  FILE  DATA' 

44C2 

41 

44C3 

44 

44C4 

20 

44C5 

46 

44C6 

49 

44C7 

4C 

44C8 

45 

44C*? 

20 

44CA 

44 

44CB 

41 

44CC 

54 

44CD 

41 

44CE 

00 

01020 

DEFB 

0 

44CF 

44 

01030  L3 

DEFM 

'DISK    BASIC  COMMAND^ 

44  DO 

49 

44D1 

53 

44D2 

4B 

44D3 

20 

44D4 

42 

44D5 

41 

44D6 

53 

44D7 

49 

44D8 

43 

44D<? 

20 

44DA 

43 

44DB 

4F 

44DC 

4D 

44DD 

4D 

44DE 

41 

44DF 

4E 

44  EG 

44 

44E1 

00 

01040 

DEFB 

Ci 

44E2 

53 

01050  Ml 

DEFM 

' SPR  t  ED  OUT  ERROR  t 

44E3 

50 

44E4 

45 

44E5 

4C 

44E6 

AC 

44E7 

45 

44E8 

44 

44E9 

20 

44EA 

4F 

44EB 

55 

44EC 

54 

44ED 

20 

44EE 

45 

44EF 

52 

44F0 

52 

44Fi 

4F 

44F2 

52 

44F3 

20 

44F4 

40 

44F5 

45 

44F6 

53 

44F7 

53 

44Fa 

41 

44F9 

47 

44FA 

45 

44FB 

S3 

44FC 

OD 

01060 

DEFB 

13 

44F0 

42 

01070 

DEFM 

'BY  MARK  D.  GOODWIN 

44FE 

59 

44FF 

20 

4500 

4D 

4501 

41 

4502 

52 

4503 

4B 

4504 

20 
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4505 

44 

4506 

2E 

4507 

20 

4508 

47 

450^ 

4F 

450A 

4F 

450  B 

44 

450C 

57 

450  D 

49 

450E 

4E 

450F 

OD 

01080 

DEFB 

4510 

00 

01090 

DEFB 

4511 

00 

01100  BASIC 

DEFB 

42E9 

OHIO 

END 

00000  TOTAL  ERRORS 

L3 

44CF 

FD 

44Ci 

MO 

44B1 

UE 

449F 

RW 

448A 

NR 

4480 

€H 

4471 

ST 

44S6 

LS 

4446 

OS 

4432 

TM 

4424 

ID 

440B 

DO 

43FA 

DD 

43E6 

BS 

43CF 

UL 

43B9 

OH 

43AB 

OV 

43A2 

FC 

438C 

OD 

4380 

RG 

436B 

SN 

435E 

NF 

434D 

TABLE 

431 F 

ERROF 

! 

4312 

BASIC 

4S11 

Mi 

44E2 

START 

42E9 

Listing  9-1  Comments 

100  -  Set  the  program's  starting  address  to  the  start  of  user  RAM. 

110  -  Go  clear  the  screen. 

120  -  Load  register  pair  HL  with  the  starting  address  of  the 
message  to  be  displayed. 

130  -  Go  display  the  message. 

140  -  Load  register  pair  HL  with  the  start  of  the  BASIC  program 
area  pointer. 

150  -  Zero  the  location  of  the  start  of  the  BASIC  program  area 
pointer  in  register  pair  HL, 

160  -  Bump  the  start  of  the  BASIC  program  area  pointer  in  reg- 
ister pair  HL. 

170  -  Save  the  start  of  the  BASIC  program  area  pointer  in  regis- 
ter pair  HL. 
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180  -  Load  register  pair  DE  with  the  number  of  bytes  to  be 

reserved  as  string  space. 
190  -  Go  reserve  the  number  of  bytes  of  string  space  as  specified 

by  register  pair  DE. 
200  -  Go  reset  the  BASIC  variables  and  pointers. 
210  -  Load  register  A  with  a  JP  op  code. 
220  -  Save  the  JP  op  code  in  register  A  as  the  first  byte  of  the  DOS 

link. 
230  -  Load  register  pair  HL  with  the  starting  address  of  the 

spelled-out  error  message  routine. 
240  -  Save  the  starting  address  of  the  spelled-out  error  message 

routine  in  register  pair  HL  as  the  second  and  third  bytes  of 

the  DOS  link. 
250  -  Jump  to  the  Level  II  BASIC  READY  routine. 
260  -  Zero  register  D,  so  that  register  pair  DE  will  hold  the  error 

code. 
270  -  Load  register  pair  HL  with  the  starting  address  of  the  table 

of  error  message  locations. 
280  -  Add  the  error  code  in  register  pair  DE  to  the  table  pointer  in 

register  pair  HL. 
290  -  Load  register  E  with  the  LSB  of  the  error  message  starting 

address  at  the  location  of  the  table  pointer  in  register  pair 

HL 
300  -  Bump  the  table  pointer  in  register  pair  HL. 
310  -  Load  register  D  with  the  MSB  ofthe  error  message  starting 

address  at  the  location  of  the  table  pointer  in  register  pair 

HL. 
320  -  Load  register  pair  HL  with  the  starting  address  of  the  error 

message  in  register  pair  DE. 
330  -  Jump  to  the  Level  II  error  routine  and  display  the  appro- 
priate error  message. 
340  -  The  starting  address  of  the  NF  error  message. 
350  -  The  starting  address  of  the  SN  error  message. 
360  -  The  starting  address  of  the  RG  error  message. 
370  -  The  starting  address  of  the  OD  error  message. 
380  -  The  starting  address  of  the  PC  error  message. 
390  -  The  starting  address  of  the  OV  error  message. 
400  -  The  starting  address  of  the  OM  error  message. 
410  -  The  starting  address  of  the  UL  error  message. 
420  -  The  starting  address  of  the  BC  error  message. 
430  -  The  starting  address  of  the  DD  error  message. 
440  -  The  starting  address  of  the  /O  error  message. 
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450  -  The  starting  address  of  the  ID  error  message. 

460  -  The  starting  address  of  the  TM  error  message. 

470  -  The  starting  address  of  the  OS  error  message. 

480  -  The  starting  address  of  the  LS  error  message. 

490  -  The  starting  address  of  the  ST  error  message. 

500  -  The  starting  address  of  the  CN  error  message. 

510  -  The  starting  address  of  the  NR  error  message. 

520  -  The  starting  address  of  the  RW  error  message. 

530  -  The  starting  address  of  the  UE  error  message, 

540  -  The  starting  address  of  the  MO  error  message. 

550  -  The  starting  address  of  the  FD  error  message. 

560  -  The  starting  address  of  the  L3  error  message. 

570  -  The  NF  error  message  is  stored  here. 

580  -  The  NF  error  message  terminator. 

590  -  The  SN  error  message  is  stored  here. 

600  -  The  SN  error  message  terminator. 

610  -  The  RG  error  message  is  stored  here. 

620  -  The  RG  error  message  terminator. 

630  -  The  OD  error  message  is  stored  here. 

640  -  The  OD  error  message  terminator, 

650  -  The  FC  error  message  is  stored  here. 

660  -  The  FC  error  message  terminator. 

670  -  The  OV  error  message  is  stored  here. 

680  -  The  OV  error  message  terminator. 

690  -  The  OM  error  message  is  stored  here. 

700  -  The  OM  error  message  terminator. 

710  -  The  UL  error  message  is  stored  here. 

720  -  The  UL  error  message  terminator. 

730  -  The  BS  error  message  is  stored  here, 

740  -  The  BS  error  message  terminator. 

750  -  The  DD  error  message  is  stored  here, 

760  -  The  DD  error  message  terminator, 

770  -  The  /O  error  message  is  stored  here, 

780  -  The  /O  error  message  terminator, 

790  -  The  ID  error  message  is  stored  here. 

800  -  The  ID  error  message  terminator. 

810  -  The  TM  error  message  is  stored  here. 

820  -  The  TM  error  message  terminator. 

830  -  The  OS  error  message  is  stored  here. 

840  -  The  OS  error  message  terminator. 

850  -  The  LS  error  message  is  stored  here. 

860  -  The  LS  error  message  terminator. 
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870  -  The  ST  error  message  is  stored  here. 

880  -  The  ST  error  message  terminator. 

890  -  The  CN  error  message  starts  here. 

900  -  This  will  display  an  *  with  the  CN  error  message. 

910  -  The  rest  of  the  CN  error  message  is  stored  here. 

920  -  The  CN  error  message  terminator. 

930  -  The  NR  error  message  is  stored  here. 

940  -  The  NR  error  message  terminator, 

950  -  The  RW  error  message  is  stored  here. 

960  -  The  RW  error  message  terminator. 

970  -  The  UE  error  message  is  stored  here. 

980  -  The  UE  error  message  terminator. 

990  -  The  MO  error  message  is  stored  here. 
1000  -  The  MO  error  message  terminator. 
1010  -  The  FD  error  message  is  stored  here. 
1020  -  The  FD  error  message  terminator. 
1030  -  The  L3  error  message  is  stored  here. 
1040  -  The  L3  error  message  terminator. 
1050  -  Part  of  the  program's  sign-on  message  is  stored  here. 
1060  -  This  will  cause  a  carriage  return  to  be  displayed  £:s  part  of 

the  sign-on  message. 
1070  -  Part  of  the  sign-on  message  is  stored  here. 
1080  -  This  will  cause  a  carriage  return  to  be  displayed  cis  part  of 

the  sign-on  message. 
1090  -  The  sign-on  message  terminator. 
1100  -  The  start  of  the  BASIC  program  area  will  begin  here. 
1110  -  End  of  the  program. 
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Chapter  10 
A  Machine  Language  Monitor 


This  chapter  presents  a  relocatable  machine  language  monitor.  This 
monitor  makes  liberal  use  of  the  Level  II  BASIC  ROM  routines. 
Because  of  the  program's  size,  it  has  been  broken  down  into  five 
parts,  so  that  it  can  be  assembled  on  a  16K  computer. 

THE  MONITOR'S  COMMANDS 

The  monitor  has  many  useful  commands.  All  of  the  monitor's 
commands  require  from  0  to  4  values  to  be  input.  The  values  should 
be  entered  as  hexadecimal  numbers.  When  more  than  one  value  is 
required  for  a  command,  the  values  should  be  separated  by  spaces. 
Leading  zeros  are  not  required.  The  syntax  for  each  command 
follows  the  colon  and  does  not  include  the  period. 

Display  Memory:  D  starting  address  ending  ad- 
dress. This  command  will  display  the  contents  of  memory 
from  the  ^starting  address'  specified  to  the  'ending  address' 
specified.  The  values,  at  these  memory  locations,  will  be 
displayed  as  two  digit  hexadecimal  numbers.  To  end 
execution  of  this  command  before  the  ending  address  is 
reached,  simply  press  the  BREAK  key.  To  pause  the 
display,  press  the  space  bar.  To  resume  execution,  after 
pressing  the  space  bar,  press  any  key. 

Jump  to  Address:  G  jump  address.  This  command 
will  cause  program  execution  to  begin  at  the  'jump  address' 
specified. 
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Edit  Memory:  E  starting  address.  This  command 
will  allow  you  to  change  the  contents  of  memory.  The 
command  will  begin  by  displaying  the  ^starting  address' 
specified  and  the  value  currently  at  this  memory  address. 
To  change  the  contents  of  an  address,  enter  the  desired 
value.  To  leave  the  contents  of  the  address  unchanged, 
press  the  carriage  return  without  any  input.  To  exit  the 
Edit  Memory  mode,  press  the  BREAK  key. 

Zero  Memory:  Z  starting  address  ending  address 
value.  This  command  will  change  all  of  the  memory  loca- 
tions from  the  ^starting  address'  specified  to  the  *ending 
address'  specified  to  the  Value'  given. 

Input  from  Port:  I  port  number.  This  command  will 
get  the  value  at  the  'port'  specified  and  display  this  value. 

Output  to  Port:  0  port  number  value.  This  conrimand 
will  send  the  Value'  specified  to  the  *port'  specified. 

Convert  Hexadecimal  Numbers  to  Decimal 
Numbers:  B  first  number  second  number.  If  only  one 
number  is  input  after  the  B  command,  this  hexadeicimal 
number  will  be  converted  to  decimal  and  the  result  v/ill  be 
displayed.  If  two  numbers  are  given,  then  they  will  be 
displayed  like  this. 

A  B       A-hB      A-B      B-A 

7FFF     0001      8000      7FFE     8002 
32767     1  32768    32766    32770 

Set  Breakpoint:  @  breakpoint  location.  This  com- 
mand will  set  a  breakpoint  at  the  address  specified.  If  no 
input  follows  the@command  or  an  address  of  zero  is  ipven, 
then  the  current  breakpoint  location  will  be  displayed. 

Read  a  SYSTEM  Tape:  R.  This  command  will  load 
into  memory  a  Level  H  BASIC  SYSTEM  tape.  After  the 
program  has  been  completely  loaded,  the  monitor  will 
display  the  program's  name,  it's  starting  address,  it's  end- 
ing address,  and  it's  execution  address. 

Write  a  SYSTEM  Tape:  P  starting  address  e^nding 
address  execution  address.  This  command  will  promjpt  you 
to  enter  the  file  name  for  the  program  to  be  written  on  the 
cassette  recorder.  Once  the  file  name  has  been  entered,  a 
Level  II  BASIC  SYSTEM  tape  will  be  written  beginning  at 
the  'starting  address'  specified  to  the  *ending  ad'dress' 
specified.  If  an  ^execution  address'  is  specified,  then  this 
address  will  also  be  written  as  part  of  the  SYSTEM  tape.  If 
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an  ^execution  address'  isn't  specified,  then  the  'starting 
address'  will  be  written  as  the  program's  execution  ad- 
dress. 

Display  Characters  in  Memory:  A  starting  ad- 
dress ending  address.  This  command  will  display  the 
ASCII  characters  for  all  of  the  locations  from  the  ^starting 
address'  specified  to  the  ^ending  address'  specified. 

Find  8-bit  Value:  F  starting  address  ending  address 
8-bit  value.  This  command  will  search  the  locations  from 
the  ^starting  address'  specified  to  the  *ending  address' 
specified  for  the  *8-bit  value'  given.  All  of  tiie  locations 
which  contain  the  8-bit  value  being  searched  for  will  be 
displayed. 

Find  the  16-bit  Value:  H  starting  address  ending 
address  16-bit  value.  This  command  is  the  same  as  the  F 
command  except  that  it  will  search  a  block  of  memory  for  a 
16-bit  value. 

Move  Block  of  Memory:  M  starting  address  ending 
address  new  starting  address.  This  command  will  move  the 
block  of  memory-from  the  ^starting  address'  specified  to  the 
*ending  address'  specified  to  the  new  area  of  memory  be- 
ginning at  the  *new  starting  address.' 

Figure  Checksum:  Q  starting  address  ending  ad- 
dress. This  command  will  figure  and  display  the  checksum 
for  the  block  of  memory  from  the  'starting  address'  to  the 
'ending  address,* 

Test  Memory:  T  starting  address  ending  address. 
This  command  will  test  the  block  of  memory  from  the 
'starting  address'  to  the  'ending  address.'  Any  bad  memory 
locations  will  be  displayed. 

Verify  Memory:  V  starting  address  ending  address 
second  starting  address.  This  command  will  compare  the 
contents  of  a  block  of  memory  beginning  at  the  'starting 
address'  to  the  'ending  address'  to  the  second  block  of 
memory  beginning  at  the  'second  starting  address.*  Any 
memory  locations  which  don't  match  will  be  displayed. 

Exchange  Memory:  X  starting  address  ending  ad- 
dress second  starting  address.  This  command  will  ex- 
change the  contents  of  a  block  of  memory  beginning  at  the 
'starting  address'  to  the  'ending  address'  with  the  contents 
of  a  second  block  of  memory  beginning  at  the  'second 
starting  address.* 
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Set  the  Current  Output  Device  to  Printer:  L. 

This  command  will  set  the  current  output  device  to  the 
printer. 

Set  the  Current  Output  Device  to  Video  Dis- 
play: C.  This  command  will  set  the  current  output  device 
to  the  video  display. 

Save  a  Program  on  an  ESF:  "starting  address 
ending  address  execution  address  file  number.  This  com- 
mand will  save  a  program  beginning  at  the  ^starting  ad- 
dress' to  the  *ending  address'  on  a  Stringy  Floppy  wafer  at 
the  'file  number,*  The  'execution  address'  will  also  be 
saved  as  the  program's  autostart  address. 

Certify  an  ESF  Wafer: !  file  number.  This  command 
will  certify  a  Stringy  Floppy  wafer  beginning  at  the  'file 
number.' 

Load  a  Program  from  the  ESF:  #  file  number.  This 
command  will  load  a  program  from  a  Stringy  Floppy  w^ifer 
at  the  'file  number'  given.  The  program's  starting  addre^ss, 
ending  address,  and  execution  address  will  be  displayed 
after  the  program  has  been  loaded, 

THE  MONITOR  PROGRAM 

The  following  pages  contain  the  five  parts  of  the  monitor 
program  (Listing  10-1  through  10-5).  The  line  by  line  program 
comments  follow  each  listing. 

Listing  10-1 


42F1 

Oct  1 00 

ORB 

42FFH-0EH 

42F1 

21B14A 

001 10  REND 

LD 

HL,4AB1H 

42F4 

ED5BB24A 

00120 

LD 

DE, <4AB2H) 

42F8 

01B207 

00130 

LD 

BC,19V0 

42FB 

EDBB 

00140 

LDDR 

42FD 

EB 

00150 

EX 

DE,HL 

42FE 

23 

00160 

INC 

HL 

42FF 

E9 

00170 

JP 

(HL) 

4300 

00180 

END 

4300H 

00000  TOTAL  ERRORS 


Listing  10-1  Comments 

100  -  Set  the  starting  address  of  the  program  so  that  it  resides 

below  the  monitor  program. 
110  -  LoadregisterpairHLwiththeendofthemonitorprogram. 
120  -  Load  register  pair  DE  with  the  monitor  program  s  new 

ending  address. 
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130  -  Load  register  pair  BC  with  the  length  of  the  monitor  pro- 
gram. 

140  -  Move  the  monitor  program. 

150  -  Load  register  pair  HL  with  the  starting  address  of  the 
monitor  program  -  1. 

160  -  Bump  the  starting  address  of  the  monitor  in  register  pair 
HL 

170  -  Jump  to  the  location  of  the  monitor's  starting  address  in 
register  pair  HL, 

180  -  End  of  the  program. 


Listing  10-2 

4300 

00100 

ORG 

4300H 

4300 

21AB45 

00110 

ST 

LD 

HL,ni 

4303 

CD752B 

00120 

CALL 

2B75H 

4306 

210000 

00130 

L0 

HL,0 

4309 

228E45 

00140 

LD 

< BREAK ),HL 

430C 

C32C46 

00150 

JP 

LI 

430F 

AF 

00160 

HEX 

XQR 

A 

4310 

328045 

00170 

LD 

(FLAG), A 

4313 

110000 

00  ISO 

LD 

DE,0 

4316 

23 

00190 

H4 

INC 

HL 

4317 

7E 

00200 

LD 

A, (HL) 

4318 

B7 

00210 

OR 

A 

4319 

282A 

00220 

JR 

2, Hi 

431B 

D630 

00230 

SUB 

30H 

431D 

D8 

00240 

RET 

C 

431E 

FEOA 

00250 

CP 

OAH 

4320 

3808 

00260 

JR 

C,H3 

4322 

FEll 

00270 

CP 

IIH 

4324 

D8 

00280 

RET 

C 

4325 

FEi7 

00290 

CP 

i7H 

4327 

DO 

00300 

RET 

NC 

432S 

D607 

00310 

SUB 

7 

432A 

F5 

00320 

H3 

PUSH 

AF 

432B 

3E01 

00330 

LD 

A,  I 

432D 

328C45 

00340 

LD 

(FLAG), A 

4330 

Fl 

00350 

PQP 

AF 

4331 

CB27 

00360 

SLA 

A 

4333 

CB27 

00370 

SLA 

A 

4335 

CB27 

00380 

SLA 

A 

4337 

CB27 

00390 

SLA 

A 

4339 

0604 

00400 

LD 

B,4 

433B 

CB27 

00410 

H5 

SLA 

A 

433D 

CB13 

00420 

RL 

E 

A6Si- 

CB12 

00430 

RL 

D 

4341 

iOFS 

00440 

DJNZ 

H5 

4343 

iSDl 

00450 

JR 

H4 

4345 

2B 

00460 

HI 

DEC 

HL 

4346 

C9 

00470 

RET 

4347 

CD9F44 

00480 

DISR 

CALL 

CHI 

434A 

2A8545 

00490 

LD 

HL,  <N1) 

434D 

CD8544 

00500 

DIl 

CALL 

DISl 

4350 

0610 

00510 

LD 

B,  16 

4352 

7E 

00520 

DI2 

LD 

A, (HL) 

4353 

CD9244 

00530 

CALL 

DSP 

4356 

CD2046 

00540 

CALL 

CH2 

4359 

10F7 

00550 

DJNZ 

DI2 

43SB 

CD8044 

00560 

CALL 

CR 
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435E  CD 1144 

00570 

CALL 

KEY 

4361  iSEA 

00580 

JR 

DIl 

4363  E5 

00590 

Dl 

PUSH 

HL 

4364  328B4S 

00600 

LD 

(N4),A 

4367  AF 

00610 

XOR 

A 

4368  218B45 

00620 

LD 

HL,N4 

436B  ED6F 

00630 

RLD 

436D  CD7B43 

00640 

CALL 

D2 

4370  AF 

00650 

XOR 

A 

4371  ED6F 

00660 

RLD 

4373  CD7843 

00670 

CALL 

D2 

4376  El 

00680 

POP 

HL 

4377  C9 

00690 

RET 

4378  C630 

00700 

D2 

ADD 

A,30H 

437A  FE3A 

00710 

CP 

3AH 

437C  3802 

00720 

JR 

C,D3 

437E  C607 

00730 

ADD 

A, 7 

4380  C32A03 

00740 

D3 

JP 

32AH 

4383  2A8545 

00750 

GO 

LD 

HL, <N1) 

4386  E9 

00760 

JP 

(HL) 

4387  2Aa545 

00770 

EDIT 

LD 

HL, <N1) 

438A  CD8544 

00780 

El 

CALL 

DISl 

438D  7E 

00790 

LD 

A,  <HL) 

438E  328545 

00800 

LD 

<N1),A 

4391  CD9244 

00810 

CALL 

DSP 

4394  E5 

00820 

PUSH 

HL 

4395  CD6i03 

00830 

CALL 

361H 

4398  DA2C46 

00840 

JP 

C,L1 

439B  D7 

00850 

RST 

16 

439C  2B 

00860 

DEC 

HL 

439D  CD0F43 

00870 

CALL 

HEX 

43A0  3A8C45 

00880 

LD 

A, (FLAS) 

43A3  07 

00890 

OR 

A 

43A4  2804 

00900 

JR 

Z,E3 

43A6  ED538545 

00910 

LD 

<N1? ,DE 

43AA  3A8545 

00920 

E3 

LD 

A, (Ni) 

43AD  El 

00930 

POP 

HL 

43AE  77 

00940 

LD 

<HLJ,A 

43AF  23 

00950 

INC 

HL 

43B0  1SD8 

00960 

JR 

El 

43B2  2A8S45 

00970 

ZERO 

LD 

HL, <N1) 

43B5  3A8945 

00980 

Zl 

LD 

A, <N3) 

43B8  77 

00990 

LD 

<HL?,A 

43B9  ED5B8745 

01000 

LD 

DE, <N2) 

43BD  DF 

01010 

RST 

18H 

43BE  CA2C46 

01020 

JP 

2, LI 

43C1  23 

01030 

INC 

HL 

43C2  18F1 

01040 

JR 

Zi 

43C4  CDA244 

01050 

INP 

CALL 

PR 

43C7  3A8545 

01060 

LD 

A,  <N1> 

43CA  4F 

01070 

LD 

C,A 

43CB  ED78 

01080 

IN 

A,  (C) 

43CD  CD6343 

01090 

CALL 

Dl 

43D0  CD2946 

01100 

CALL 

CH3 

43D3  3Aa545 

OHIO 

OUP 

LD 

A, (Nl) 

43D6  4F 

01120 

LD 

C,A 

43D7  3A8745 

01130 

LD 

A, (N2) 

43DA  ED79 

01140 

OUT 

(C),A 

43DC  C32C46 

01150 

JP 

LI 

43DF  CDA244 

01160 

MATH 

CALL 

PR 

43E2  CDA944 

01170 

HA3 

CALL 

LO 

43E5  7A 

01180 

LD 

A5D 

43E6  B3 

01190 

OR 

E 

43E7  CA4E44 

01200 

JP 

Z,MAi 

43EA  21CB45 

01210 

LD 

HL,M2 

43ED  CD752B 

01220 

CALL 

2B75H 

43F0  2A8545 

01230 

LD 

HL, (Nl) 

4Si-6   CD7644 

01240 

CALL 

DIWS 
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43F6 

2AB745 

01250 

LD 

HL, <N2) 

43F9 

CD7644 

01260 

CALL 

DINS 

43FC 

CDA944 

01270 

CALL 

LQ 

43FF 

19 

01280 

ADD 

HL,DE 

4400 

229345 

01290 

LD 

<RE6),HL 

4403 

CD7644 

01300 

CALL 

DIWS 

4406 

GDA944 

01310 

CALL 

LO 

4409 

AF 

01320 

XOR 

A 

440A 

ED52 

01330 

SBC 

HL,DE 

440C 

229545 

01340 

LD 

<REG-*-2)  ,HL 

440F 

CD7644 

01350 

CALL 

DIWS 

4412 

CDA944 

01360 

CALL 

LO 

4415 

EB 

01370 

EX 

DEjHL 

4416 

AF 

01380 

XOR 

A 

4417 

ED52 

01390 

SBC 

HL,DE 

4419 

229745 

01400 

LD 

<REG4-4),HL 

441C 

CD7644 

01410 

CALL 

DIWS 

44iF 

CD8044 

01420 

CALL 

CR 

4422 

2A8545 

01430 

LD 

ML, <N1) 

4425 

1E06 

01440 

LD 

E,6 

4427 

CD5944 

01450 

CALL 

TAB 

442A 

2AS745 

01460 

LD 

HL, (N2) 

442D 

lEOC 

01470 

LD 

E,12 

442F 

CD5944 

01480 

CALL 

TAB 

4432 

2A9345 

01490 

LD 

HL, (REG) 

4435 

iE12 

01500 

LD 

E,i8 

4437 

CD5944 

01510 

CALL 

TAB 

443A 

2A9545 

01520 

LD 

HL, <REG+2) 

443D 

1E18 

01530 

LD 

E,24 

443F 

CDS944 

01540 

CALL 

TAB 

4442 

2A9745 

01550 

LD 

HL, (REG+4) 

4445 

CDAFOF 

01560 

CALL 

OFAFH 

4448 

CD8044 

01570 

CALL 

CR 

444B 

C32C46 

01580 

MA2 

JP 

LI 

444E 

2A8545 

01590 

HAl 

LD 

HL, (Ni) 

4451 

CDAFOF 

01600 

CALL 

OFAFH 

4454 

CD8044 

01610 

CALL 

CR 

4457 

18F2 

01620 

JR 

riA2 

4459 

D5 

01630 

TAB 

PUSH 

DE 

445A 

CDAFOF 

01640 

CALL 

OFAFH 

445D 

Di 

01650 

POP 

DE 

445E 

3A9C40 

01660 

LD 

A, <409CH) 

4461 

B7 

01670 

OR 

A 

4462 

2805 

01680 

JR 

Z,VID 

4464 

3A9B40 

01690 

LD 

A, (409BH> 

4467 

1803 

01700 

JR 

Tl 

4469 

3AA640 

01710 

VID 

LD 

A, (40A6H) 

446C 

2F 

01720 

Tl 

CPL 

446D 

83 

01730 

ADD 

A,E 

446E 

3C 

01740 

INC 

A 

446F 

47 

01750 

LD 

B,A 

4470 

CDSD44 

01760 

T2 

CALL 

SPA 

4473 

iOFB 

01770 

DJNZ 

T2 

4475 

C9 

01780 

RET 

4476 

CD7B44 

01790 

DIWS 

CALL 

DIS 

4479 

1812 

01800 

JR 

SPA 

447B 

CD9744 

01810 

DIS 

CALL 

DISW 

447E 

180D 

01820 

JR 

SPA 

4430 

3E0D 

01830 

CR 

LD 

A,  13 

4482 

C32A03 

01840 

JP 

32AH 

4485 

CD9744 

01850 

DISl 

CALL 

DISUI 

4488 

3E3A 

01860 

LD 

A,^:' 

44eA 

CD2A03 

01870 

CALL 

32AH 

448D 

3E20 

01880 

SPA 

LD 

A,'  ' 

448F 

C32A03 

01890 

JP 

32AH 

4492 

CD6343 

01900 

DSP 

CALL 

Dl 

4495 

18F6 

01910 

JR 

SPA 

4497 

7C 

01920 

DXSW 

LD 

A,H 
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4498  CD6343 

01930 

CALL 

Dl 

449B  7D 

01940 

LD 

A,L 

449C  C36343 

01950 

JP 

Dl 

449F  CDD144 

01960 

CHI 

CALL 

CHECK 

44A2  3A8D45 

01970 

PR 

LD 

A,  <FL2) 

44AS  329C40 

01980 

LD 

<409CH),A 

44A8  C9 

01<?90 

RET 

44A9  2A8545 

02000 

LQ 

LD 

HL, (Nl) 

44AC  ED5B8745 

02010 

LD 

DE, (N2) 

44 BO  C9 

02020 

RET 

44Bi  0604 

02030 

CH4 

LD 

B,4 

44B3  CDC544 

02040 

CHA4 

CALL 

CHS 

44B6  lOFB 

02050 

DJNZ 

CHA4 

44B8  C9 

02060 

RET 

44B9  CDC544 

02070 

CH6 

CALL 

C\^5 

44BC  DD23 

02080 

INC 

IX 

44BE  DD23 

020^0 

INC 

IX 

44C0  CDC544 

02100 

CALL 

CH5 

44C3  18BB 

02110 

JR 

CR 

44C5  DD6E00 

02120 

CHS 

LD 

L, (IX+0) 

44Ca  DD23 

02130 

INC 

IX 

44CA  DD6600 

02140 

LD 

H, <IX+0) 

44CD  DD23 

02150 

INC 

IX 

44CF  i8AA 

02160 

JR 

DIS 

44DI  2A8545 

02170 

CHECK 

LD 

ML, (Ni) 

44D4  7C 

02 1  SO 

LD 

A,H 

44D5  B5 

02190 

OR 

L 

44D6  CO 

02200 

RET 

NZ 

44D7  2A8745 

02210 

LD 

HL, <N2> 

44DA  7C 

02220 

LD 

A,H 

44DB  B5 

02230 

OR 

L 

44 DC  CO 

02240 

RET 

NZ 

44DD  211-l-hf- 

02250 

LD 

HL,0FFFFH 

44E0  228745 

02260 

LD 

(N2) ,HL 

44E3  C9 

02270 

RET 

44E4  2ASS45 

02280 

BRK 

LD 

HL, <N1> 

44E7  7C 

02290 

LD 

A,H 

44ES  B5 

02300 

OR 

L 

44E9  2819 

02310 

JR 

Z,B1 

44EB  E5 

02320 

PUSH 

HL 

44EC  228E45 

02330 

LD 

< BREAK ),HL 

44EF  119045 

02340 

LD 

DEjSAVE 

44F2  0603 

02350 

LD 

B,3 

44F4  7E 

02360 

B2 

LD 

A, (HL) 

44F5  12 

02370 

LD 

(DE),A 

44F6  23 

02380 

INC 

HL 

44F7  13 

02390 

INC 

DE 

44F8  lOFA 

02400 

DJNZ 

B2 

44FA  El 

02410 

POP 

HL 

44FB  36CD 

02420 

LD 

<HL),OCDH 

44FD  23 

02430 

INC 

HL 

44FE  111645 

02440 

LD 

DE,RENT 

4501  73 

02450 

LD 

<HL) ,E 

4502  23 

02460 

INC 

HL 

4503  72 

02470 

LD 

(HL>,D 

4504  21E845 

02480 

Bl 

LD 

HL,RE1 

4507  CD752B 

02490 

CALL 

2B75H 

450A  2A8E45 

02500 

LD 

HL, (BREAK) 

4S0D  CD9744 

02510 

CALL 

DISUi 

4510  CDS044 

02520 

CALL 

CR 

4513  C32C46 

02530 

JP 

LI 

4516  22A745 

02540 

RENT 

LD 

<REG+20) ,HL 

4519  El 

02550 

POP 

HL 

451A  2B 

02560 

DEC 

HL 

4S1B  2B 

02570 

DEC 

HL 

451C  2B 

02580 

DEC 

HL 

45 ID  22A945 

02590 

LD 

(REG+22),HL 
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4520 

2AA74S 

02600 

LD 

HL,  <REGt-20) 

4523 

ED73A745 

02610 

LD 

(REG+20>,SP 

4527 

31A745 

02620 

LO 

SP,REG+20 

452A 

FDE5 

02630 

PUSH 

lY 

452C 

DDES 

02640 

PUSH 

IX 

452E 

E5 

02650 

PUSH 

HL 

452F 

OS 

02660 

PUSH 

OE 

4530 

C5 

02670 

PUSH 

BC 

4531 

F5 

02680 

PUSH 

AF 

4532 

08 

02690 

EX 

AFjAF' 

4533 

09 

02700 

EXX 

4534 

E5 

02710 

PUSH 

HL 

4535 

D5 

02720 

PUSH 

DE 

4536 

C5 

02730 

PUSH 

BC 

4b^/ 

F5 

02740 

PUSH 

AF 

4538 

310043 

02750 

LO 

SP,ST 

453B 

CDA244 

02760 

CALL 

PR 

453E 

2A8E4S 

02770 

LD 

HL, (BREAK) 

4541 

119045 

02780 

LD 

DE,SAVE 

4544 

0603 

02790 

LD 

B,3 

4546 

lA 

02800 

Rl 

LD 

A, <DE) 

4547 

77 

02810 

LD 

<HL>,A 

4548 

23 

02820 

INC 

HL 

4549 

13 

02830 

INC 

DE 

454A 

lOFA 

02840 

DJNZ 

Rl 

454C 

21E845 

02850 

LD 

HL,RE1 

454F 

CD752B 

02860 

CALL 

2B75H 

4552 

2A8E45 

02870 

LO 

HL, < BREAK) 

4555 

CD9744 

02880 

CALL 

OISW 

4558 

CD8044 

02890 

CALL 

CR 

455B 

CDS044 

02900 

CALL 

CR 

455E 

21F245 

02910 

LD 

HL,RE2 

4561 

CD752B 

02920 

CALL 

2B75H 

4564 

DD2i9B45 

02930 

LO 

IX,REG+S 

4568 

COB 144 

02940 

CALL 

CH4 

456B 

CDB944 

02950 

CALL 

CH6 

456E 

DD2 19345 

02960 

LD 

I  X , REG 

4572 

CDBi44 

02970 

CALL 

CH4 

4575 

DD21A545 

02980 

LD 

IX,REG+i8 

4579 

CDB944 

02990 

CALL 

CH6 

457C 

210000 

03OOO 

LD 

HL,0 

457F 

22aE45 

03010 

LD 

( BREAK ),HL 

4582 

C32C46 

03020 

JP 

LI 

4585 

0000 

03030 

Nl 

DEFW 

0 

4587 

0000 

03040 

N2 

DEFW 

0 

4589 

0000 

03050 

N3 

DEFUi 

0 

458B 

00 

03060 

N4 

DEFB 

0 

45SC 

00 

03070 

FLAG 

DEFB 

0 

458D 

00 

03080 

FL2 

DEFB 

0 

45SE 

0000 

03090 

BREAK 

DEFl*J 

0 

0003 

03100 

SAVE 

DEFS 

3 

0018 

03110 

REG 

DEFS 

24 

45AB 

IC 

03120 

Ml 

DEFB 

iCH 

45AC 

IF 

03130 

DEFB 

IFH 

45AD 

53 

03140 

DEFn 

'SWAT  V2.0' 

45AE 

57 

45AF 

41 

45B0 

54 

45B1 

20 

45B2 

56 

4583 

32 

45B4 

2E 

45B5 

30 

45B6 

OD 

03150 

DEFB 

13 

45B7 

42 

03160 

DEFM 

'BY  MARK  D.  GOODWIN 

45B8 

59 

45B9 

20 

45BA 

40 
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45BB 

41 

4SBC 

52 

45BD 

4B 

4SBE 

20 

45BF 

44 

45C0 

2E 

45Ci 

20 

45C2 

47 

45C3 

4F 

45C4 

4F 

4SC5 

44 

45C6 

57 

45C7 

49 

4SCS 

4E 

45C9 

00 

03170 

OEFB     13 

45CA 

00 

03180 

NOP 

45CB 

41 

03190  ri2 

DEFM     ' A      B 

45CC 

20 

45CD 

20 

45CE 

20 

4SCF 

20 

4500 

20 

45D1 

42 

45D2 

20 

45D3 

20 

4504 

20 

45D5 

20 

4506 

20 

45D7 

41 

4508 

2B 

45D9 

42 

450A 

20 

45DB 

20 

450C 

20 

450D 

41 

45DE 

2D 

450F 

42 

45E0 

20 

45E1 

20 

45E2 

20 

45E3 

42 

45E4 

20 

45E5 

41 

45E6 

00 

03200 

OEFB     13 

45E7 

00 

03210 

NOP 

45Ea 

42 

03220  REl 

OEFM     'BREAK  AT 

45E9 

52 

45EA 

45 

45EB 

41 

45EC 

4B 

45ED 

20 

45EE 

41 

45EF 

54 

45F0 

20 

45F1 

00 

03230 

NOP 

45F2 

41 

03240  RE2 

OEFM     'AF    BC 
IX/Y  BTAK' 

45F3 

46 

45F4 

20 

45FS 

20 

45F6 

20 

4bh/ 

42 

45F8 

43 

45F9 

20 

45FA 
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Listing  10-2  Comments 

100  -  Set  the  starting  address  for  the  monitor  program. 

110  -  Load  register  pair  HL  with  the  starting  address  of  the 

message  to  be  displayed. 
120  -  Go  display  the  message. 
130  -  Zero  register  pair  HL. 
140  -  Save  the  value  in  register  pair  HL  at  the  breakpoint  address 

location. 
150  -  Jump. 
160  -  Zero  register  A. 
170  -  Zero  the  input  flag, 
180  -  Zero  register  pair  DE. 
190  -  Bump  the  input  pointer  in  register  pair  HL. 
200  -  Load  register  A  with  the  character  at  the  location  of  the 

input  pointer  in  register  pair  HL. 
210  -  Check  to  see  if  this  is  the  end  of  the  input. 
220  -  Jump  if  this  is  the  end  of  the  input. 
230  -  Check  to  see  if  the  character  in  register  A  is  less  than  a  0. 
240  -  Return  if  the  character  in  register  A  is  less  than  a  0. 
250  -  Check  to  see  if  the  character  in  register  A  is  numeric. 
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260  -  Jump  if  the  character  in  register  A  is  numeric. 
270  -  Check  to  see  if  the  character  in  register  A  is  less  than  an  A. 
280  -  Return  if  the  character  in  register  A  is  less  than  an  A. 
290  -  Check  to  see  if  the  character  in  register  A  is  greater  than  a  F. 
300  -  Return  if  the  character  in  register  A  is  greater  than  a  F. 
310  -  Adjust  the  letter  in  register  A  so  that  it  will  be  a  binary 

10-15. 
320  -  Save  the  binary  value  in  register  A  on  the  stack. 
330  -  Load  register  A  with  a  1. 

340  -  Save  the  value  in  register  A  as  the  current  input  flag. 
350  -  Get  the  binary  value  from  the  stack  and  put  it  in  register  A. 
360  -  Move  the  binary  value  in  register  A  over  one  bit, 
370  -  Move  the  binary  value  in  register  A  over  one  bit. 
380  -  Move  the  binary  value  in  register  A  over  one  bit. 
390  -  Move  the  binary  value  in  register  A  over  one  bit. 
400  -  Load  register  B  with  the  number  of  bits  to  be  moved  into 

register  pair  DE. 
410  -  Move  the  most  significant  bit  in  register  A  into  the  Carry 

flag. 
420  -  Move  the  bit  in  the  Carry  flag  into  register  E  and  move 

register  E*s  most  significant  bit  into  the  Carry  flag. 
430  -  Move  the  bit  in  the  Carry  flag  into  register  D. 
440  -  Loop  till  all  four  bits  of  the  hex  digit  have  been  moved  into 

register  pair  DE. 
450  -  Loop  till  the  end  of  the  hex  number  has  been  processed. 
460  -  Decrement  the  input  pointer  in  register  pair  HL. 
470  -  Return  with  the  binary  value  of  the  hex  number  in  register 

pair  DE. 
480  -  Go  check  the  addresses  and  set  the  current  output  device. 
490  -  Load  register  pair  HL  with  the  starting  address  to  be  dis- 
played. 
500  -  Go  send  the  value  in  register  pair  HL  to  the  current  output 

device. 
510  -  Load  register  B  with  the  number  of  memory  locations  per 

line  to  output. 
520  -  Load  register  A  with  the  value  at  the  location  of  the  memory 

pointer  in  register  pair  HL. 
530  -  Go  display  the  value  in  register  A  as  two  hex  digits. 
540  -  Check  to  see  if  the  memory  pointer  in  register  pair  HL  is 

the  same  as  the  last  address. 
550  -  Loop  till  16  values  have  been  sent  to  the  current  output 

device. 
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560  -  Go  display  a  carriage  return. 

570  -  Go  check  to  see  if  the  BREAK  or  the  space  key  was 

pressed. 

580  -  Loop  till  done. 

590  -  Save  the  value  in  register  pair  HL  on  the  stack. 

600  -  Save  the  value  in  register  A. 

610  -  Zero  register  A. 

620  -  Point  register  pair  HL  to  the  storage  location  of  the  value  to 

be  displayed. 
630  -  Load  register  A  with  the  most  significant  four  bits  at  the 

location  in  register  pair  HL. 
640  -  Go  display  the  4-bit  value  in  register  A. 
650  -  Zero  register  A. 
660  -  Load  register  A  with  the  most  significant  four  bits  at  the 

location  in  register  pair  HL. 
670  -  Go  display  the  4-bit  value  in  register  A. 
680  -  Get  the  value  from  the  stack  and  put  it  in  register  pair  HL. 

690  -  Return. 

700  -  Adjust  the  4-bit  value  in  register  A  so  that  it  will  be  an 

ASCII  character. 
710  -  Check  to  see  if  the  character  in  register  A  is  a  0-!3. 
720  -  Jump  if  the  character  in  register  A  is  a  0-9. 
730  -  Adjust  the  4-bit  value  in  register  A  so  that  it  will  be  the 

proper  ASCII  value  for  A-F. 
740  -  Go  send  the  character  in  register  A  to  the  current  output 

device. 
750  -  Load  register  pair  HL  with  the  location  to  jump  to. 
760  -  Jump  to  the  location  in  register  pair  HL. 
770  -  Load  register  pair  HL  with  the  starting  address. 
780  -  Go  display  the  address  in  register  pair  HL. 
790  -  Load  register  A  with  the  value  at  the  location  of  the  memory 

pointer  in  register  pair  HL. 
800  -  Save  the  value  in  register  A. 
810  -  Go  display  the  value  in  register  A. 
820  -  Save  the  memory  pointer  in  register  pair  HL  on  the  stack. 
830  -  Go  get  the  input  from  the  keyboard. 
840  -  Jump  if  BREAK  is  pressed. 
850  -  Point  the  input  pointer  in  register  pair  HL  to  the  first 

character  in  the  input. 
860  -  Decrement  the  input  pointer  in  register  pair  HL. 
870  -  Go  convert  the  hex  input  to  binary. 
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880  -  Load  register  A  with  the  input  flag. 

890  -  Check  to  see  if  a  hex  number  was  input. 

900  -  Jump  if  a  hex  number  wasn't  input. 

910  -  Save  the  binary  value  for  the  hex  input  in  register  pair  DE. 

920  -  Load  register  A  with  the  value  to  be  saved, 

930  -  Get  the  memory  pointer  from  the  stack  and  put  it  in  register 

pair  HL. 
940  -  Save  the  value  in  register  A  at  the  location  of  the  memory 

pointer  in  register  pair  HL. 
950  -  Bump  the  memory  pointer  in  register  pair  HL. 
960  -  Loop  till  the  BREAK  key  is  pressed. 
970  -  Load  register  pair  HL  with  the  starting  address, 
980  -  Load  register  A  with  the  value  to  save. 
990  -  Save  the  value  in  register  A  at  the  location  of  the  memory 

pointer  in  register  pair  HL, 
1000  -  Load  register  pair  DE  with  the  ending  address. 
1010  -  Go  compare  the  memory  pointer  in  register  pair  HL  with 

the  ending  address  in  register  pair  DE. 
1020  -  Jump  if  the  memory  pointer  in  register  pair  HL  is  the  same 

as  the  ending  address  in  register  pair  DE. 
1030  -  Bump  the  memory  pointer  in  register  pair  HL. 
1040  -  Loop  till  done. 
1050  -  Go  set  the  current  output  device. 
1060  -  Load  register  A  with  the  port  to  input  from. 
1070  -  Load  register  C  with  the  port  number  in  register  A. 
1080  -  Go  read  the  port. 
1090  -  Go  display  the  value  read  in  register  A. 
1100  -  Go  send  a  carriage  return  to  the  current  output  device  and 

return. 
1110  -  Load  register  A  with  the  port  number. 
1120  -  Load  register  C  with  the  port  number  in  register  A. 
1130  -  Load  register  A  with  the  value  to  send  to  the  port. 
1140  -  Send  the  value  in  register  A  to  the  port  in  register  C. 
1150  -  Jump. 

1160  -  Go  set  the  current  output  device. 
1170  -  Go  load  the  first  value  input  into  register  pair  HL  and  the 

second  value  input  into  register  pair  DE. 
1180  -  Load  register  A  with  the  MSB  of  the  second  value  input  in 

register  D. 
1190  -  Combine  the  MSB  of  the  second  value  input  in  register  A 
with  the  LSB  of  the  second  value  input  in  register  E. 
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1200  -  Jump  if  there  wasn't  a  second  value  input. 

1210  -  Load  register  pair  HL  with  the  starting  address  of  the 

message  to  be  displayed. 
1220  -  Go  display  the  message. 
1230  -  Load  register  pair  HL  with  the  first  number. 
1240  -  Go  display  the  number  in  register  pair  HL, 
1250  -  Load  register  pair  HL  with  the  second  number. 
1260  -  Go  display  the  second  number  in  register  pair  HL. 
1270  -  Go  load  the  first  number  in  register  pair  HL  and  the  second 

number  in  register  pair  DE. 
1280  -  Add  the  second  number  in  register  pair  DE  to  the  first 

number  in  register  pair  HL. 
1290  -  Save  the  result  in  register  pair  HL. 
1300  -  Go  display  the  result  in  register  pair  HL. 
1310  -  Load  the  first  number  in  register  pair  HL  and  the  second 

number  in  register  pair  DE. 
1320  -  Clear  the  Carry  flag. 
1330  -  Go  subtract  the  second  number  in  register  pair  DE  from  the 

first  number  in  register  pair  HL. 
1340  -  Save  the  result  in  register  pair  HL. 
1350  -  Go  display  the  result  in  register  pair  HL. 
1360  -  Go  load  the  first  number  in  register  pair  HL  and  the  second 

number  in  register  pair  DE. 
1370  -  Exchange  the  first  number  in  register  pair  HL  with  the 

second  number  in  register  pair  DE. 
1380  -  Clear  the  Carry  flag. 
1390  -  Subtract  the  first  number  in  register  pair  DE  iirom  the 

second  number  in  register  pair  HL. 
1400  -  Save  the  result  in  register  pair  HL. 
1410  -  Go  display  the  result  in  register  pair  HL. 
1420  -  Go  display  a  carriage  return. 
1430  -  Load  register  pair  HL  with  the  first  number. 
1440  -  Load  register  E  with  the  tab  position  after  displaying  the 

result  in  register  pair  HL. 
1450  -  Go  display  the  number  in  register  pair  HL  and  tab  to  the 

next  position, 
1460  -  Load  register  pair  HL  with  the  second  number. 
1470  -  Load  register  E  with  the  next  tab  position  after  displaying 

the  number  in  register  pair  HL. 
1480  -  Go  display  the  number  in  register  pair  HL  and  fcab  to  the 

next  position. 
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1490  -  Load  register  pair  HL  with  the  result  of  adding  the  first  and 

second  numbers. 
1500  -  Load  register  E  with  the  next  tab  position  after  displaying 

the  result  in  register  pair  HL. 
1510  -  Go  display  the  result  in  register  pair  HL  and  tab  to  the  next 

position, 
1520  -  Load  register  pair  HL  with  the  result  of  subtracting  the 

second  number  from  the  first  number. 
1530  -  Load  register  E  with  the  next  tab  position  after  displaying 

the  result  in  register  pair  HL. 
1540  -  Go  display  the  result  in  register  pair  HL  and  tab  to  the  next 

position. 
1550  -  Load  register  pair  HL  with  the  result  of  subtracting  the  first 

number  from  the  second  number. 
1560  -  Go  display  the  result  in  register  pair  HL. 
1570  -  Go  display  a  carriage  return. 
1580  -  Jump. 

1590  -  Load  register  pair  HL  wi±  the  number  to  be  converted. 
1600  -  Go  display  the  number  in  register  pair  HL. 
1610  -  Go  display  a  carriage  return. 
1620  -  Jump. 

1630  -  Save  the  tab  position  in  register  E  on  the  stack. 
1640  -  Go  display  the  number  in  register  pair  HL. 
1650  -  Get  the  tab  position  from  the  stack  and  put  it  in  register  E. 
1660  -  Load  register  A  with  the  current  output  device. 
1670  -  Check  to  see  if  the  current  output  device  is  the  video 

display. 
1680  -  Jump  if  the  current  output  device  is  the  video  display. 
1690  -  Load  register  A  with  the  current  carriage  position. 
1700  -  Jump. 

1710  -  Load  register  A  with  the  current  cursor  position. 
1720  -  Compliment  the  current  print  position  in  register  A. 
1730  -  Figure  the  number  of  spaces  to  be  printed. 
1740  -  Bump  the  number  of  spaces  to  be  printed  in  register  A. 
1750  -  Load  register  B  with  the  number  of  spaces  to  be  printed  in 

register  A, 
1760  -  Go  print  a  space. 

1770  -  Loop  till  all  of  the  spaces  have  been  printed, 
1780  -  Return. 

1790  -  Go  display  the  value  in  register  pair  HL  and  a  space. 
1800  -  Go  display  a  space. 
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1810  -  Go  print  the  value  in  register  pair  HL. 

1820  -  Go  display  a  space. 

1830  -  Load  register  A  with  a  carriage  return  character. 

1840  -  Go  display  a  carriage  return  on  the  current  output  device. 

1850  -  Go  display  the  value  in  register  pair  HL. 

1860  -  Load  register  A  with  a  :  character. 

1870  -  Go  send  the  :  character  in  register  A  to  the  current  output 

device. 
1880  -  Load  register  A  with  a  space  character. 
1890  -  Go  send  the  space  in  register  A  to  the  current  output 

device. 
1900  -  Go  display  the  8-bit  value  in  register  A. 
1910  -  Go  display  a  space. 
1920  -  Load  register  A  with  the  MSB  of  the  value  to  be  displayed  in 

register  H. 
1930  -  Go  display  the  8-bit  value  in  register  A. 
1940  -  Load  register  A  with  the  LSB  of  the  value  to  be  displayed  in 

register  L. 
1950  -  Go  display  the  8-bit  value  in  register  A. 
1960  -  Go  check  the  numbers  that  were  input  and  set  the  default 

values  if  necessary. 
1970  -  Load  register  A  with  the  output  device  number. 
1980  -  Save  the  value  in  register  A  as  the  current  output  device 

flag. 
1990  -  Return. 

2000  -  Load  register  pair  HL  with  the  first  number. 
2010  -  Load  register  pair  DE  with  the  second  number. 
2020  -  Return. 

2030  -  Load  registers  with  the  number  of  values  to  be  displayed. 
2040  -  Go  display  the  value  at  the  location  of  the  memory  pointer  in 

register  pair  IX. 
2050  -  Loop  till  all  of  the  numbers  have  been  displayed. 
2060  -  Return. 
2070  -  Go  display  the  value  at  the  location  of  the  memory  pointer  in 

register  pair  IX. 
2080  -  Bump  the  memory  pointer  in  register  pair  IX. 
2090  -  Bump  the  memory  pointer  in  register  pair  IX. 
2100  -  Go  display  the  value  at  the  location  of  the  memory  pointer  in 

register  pair  IX. 
2110  -  Go  display  a  carriage  return. 
2120  -  Load  register  Lwidi  the  LSB  of  the  value  to  be  displayed  at 
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the  location  of  the  memory  pointer  in  register  pair  IX. 
2130  -  Bump  the  memory  pointer  in  register  pair  IX. 
2140  -  Load  register  H  with  the  MSB  of  the  value  to  be  displayed  at 

the  location  of  the  memory  pointer  in  register  pair  IX. 
2150  -  Bump  the  memory  pointer  in  register  pair  IX. 
2160  -  Go  display  the  value  in  register  pair  HL. 
2170  -  Load  register  pair  HL  with  the  first  number  input. 
2180  -  Load  register  A  with  the  MSB  of  the  first  number  input  in 

register  H. 
2190  -  Combine  the  MSB  of  the  first  number  input  in  register  A 

with  the  LSB  of  the  first  number  input  in  register  L. 
2200  -  Return  if  the  first  number  input  isn't  equal  to  zero. 
2210  -  Load  register  pair  HL  with  the  second  number  input. 
2220  -  Load  register  A  with  the  MSB  of  the  second  number  input  in 

register  H. 
2230  -  Combine  the  MSB  of  the  second  number  input  in  register  A 

with  the  LSB  of  the  second  number  input  in  register  L. 
2240  -  Return  if  the  second  number  input  isn't  equal  to  zero. 
2250  -  Load  register  pair  HL  with  the  end  of  memory. 
2260  -  Save  the  value  in  register  pair  HL  as  the  second  number 

input. 
2270  -  Return. 

2280  -  Load  register  pair  HL  with  the  first  number  input. 
2290  -  Load  register  A  with  the  MSB  of  the  first  number  input  in 

register  H. 
2300  -  Combine  the  MSB  of  the  first  number  input  in  register  A 

with  the  LSB  of  &e  first  number  input  in  register  L. 
2310  -  Jump  if  the  first  number  input  is  equal  to  zero. 
2320  -  Save  the  first  number  input  in  register  pair  HL  on  the  stack. 
2330  -  Save  the  first  number  input  in  register  pair  HL  as  the 

current  breakpoint  location. 
2340  -  Load  register  pair  DE  with  the  location  to  save  the  values  at 

the  breakpoint  location. 
2350  -  Load  register  B  with  the  number  of  values  to  be  saved. 
2360  -  Load  register  A  with  the  value  at  the  breakpoint  pointer  in 

register  pair  HL. 
2370  -  Save  the  value  in  register  A  at  the  location  of  the  breakpoint 

storage  pointer  in  register  pair  DE. 
2380  -  Bump  the  breakpoint  pointer  in  register  pair  HL. 
2390  -  Bump  the  breakpoint  storage  pointer  in  register  pair  DE. 
2400  -  Loop  till  the  three  bytes  at  the  breakpoint  location  have 

been  saved. 
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2410  -  Get  the  location  of  the  breakpoint  from  the  stack  and  put  it 

in  register  pair  HL. 
2420  -  Save  a  call  op  code  at  the  location  of  the  breakpoint  pointer 

in  register  pair  HL. 
2430  -  Bump  the  breakpoint  pointer  in  register  pair  HL. 
2440  -  Load  register  pair  DE  with  the  reentry  point. 
2450  -  Save  the  LSB  of  the  reentry  point  in  register  E  at  the 

location  of  the  breakpoint  pointer  in  register  pair  HL. 
2460  -  Bump  the  breakpoint  pointer  in  register  pair  HL. 
2470  -  Save  the  MSB  of  the  reentry  point  in  register  E»  at  the 

location  of  the  breakpoint  pointer  in  register  pair  HL. 
2480  -  Load  register  pair  HL  with  the  starting  address  of  the 

message  to  be  displayed. 
2490  -  Go  display  the  message. 

2500  -  Load  register  pair  HL  with  the  current  breakpoint  location. 
2510  -  Go  display  the  current  breakpoint  location  in  register  pair 

HL. 
2520  -  Go  display  a  carriage  return. 
2530  -  Jump. 

2540  -  Save  the  value  in  register  pair  HL. 
2550  -  Get  the  return  address  from  the  stack  and  put  it  in  iregister 

pair  HL. 
2560  -  Decrement  the  return  address  in  register  pair  HL.. 
2570  -  Decrement  the  return  address  in  register  pair  HL. 
2580  -  Decrement  the  return  address  in  register  pair  HL,. 
2590  -  Save  the  return  address  in  register  pair  HL. 
2600  -  Load  register  pair  HL  with  the  value  previously  saved. 
2610  -  Save  the  current  location  of  the  stack  pointer. 
2620  -  Set  the  stack  pointer  at  the  storage  locations  for  the  regis- 
ters. 
2630  -  Save  the  value  in  register  pair  lY. 
2640  -  Save  the  value  in  register  pair  IX. 
2650  -  Save  the  value  in  register  pair  HL. 
2660  -  Save  the  value  in  register  pair  DE. 
2670  -  Save  the  value  in  register  pair  BC. 
2680  -  Save  the  value  in  register  pair  AF. 
2690  -  Exchange  the  prime  and  the  nonprime  registers. 
2700  -  Exchange  the  prime  and  the  nonprime  registers. 
2710  -  Save  the  value  in  register  pair  HL. 
2720  -  Save  the  value  in  register  pair  DE. 
2730  -  Save  the  value  in  register  pair  BC. 
2740  -  Save  the  value  in  register  pair  AF. 
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2750  -  Reset  the  stack  pointer. 

2760  -  Go  set  the  current  output  device. 

2770  -  Load  register  pair  HL  with  the  current  location  of  the 
breakpoint. 

2780  -  Load  register  pair  DE  with  the  location  of  the  breakpoint 
storage  location. 

2790  -  Load  register  B  with  the  number  of  bytes  to  be  replaced  in 
memory. 

2800  -  Load  register  A  with  the  value  at  the  location  of  the  break- 
point storage  location  in  register  pair  DE. 

2810  -  Save  the  value  in  register  A  at  the  location  of  the  breakpoint 
pointer  in  register  pair  HL. 

2820  -  Bump  the  breakpoint  pointer  in  register  pair  HL. 

2830  -  Bump  the  breakpoint  storage  pointer  in  register  pair  DE. 

2840  -  Loop  till  all  of  the  bytes  have  been  replaced. 

2850  -  Load  register  pair  HL  with  the  starting  address  of  die 
message  to  be  displayed. 

2860  -  Go  display  the  message, 

2870  -  Load  register  pair  HL  with  the  current  breakpoint  location. 

2880  -  Go  display  the  current  breakpoint  location  in  register  pair 
HL. 

2890  -  Go  display  a  carriage  return. 

2900  -  Go  display  a  carriage  return. 

2910  -  Load  register  pair  HL  with  the  starting  address  of  the 
message  to  be  displayed. 

2920  -  Go  display  the  message. 

2930  -  Load  register  pair  IX  with  the  register  storage  location, 

2940  -  Go  display  the  register  values. 

2950  -  Go  display  the  register  values. 

2960  -  Load  register  pair  IX  with  the  location  of  the  registers  to  be 
displayed, 

2970  -  Go  display  the  register  values, 

2980  -  Load  register  pair  IX  with  the  register  values  storage  loca- 
tion. 

2990  -  Go  display  the  register  values. 

3000  -  Zero  register  pair  HL, 

3010  -  Save  the  value  in  register  pair  HL  as  the  current  breakpoint 
location. 

3020  -  Jump. 

3030  -  The  first  number  input  is  stored  here, 

3040  -  The  second  number  input  is  stored  here. 

3050  -  The  third  number  input  is  stored  here. 
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3060  -  Temporary  storage  location. 

3070  -  Input  flag. 

3080  -  Current  output  device  number  is  stored  here. 

3090  -  The  current  breakpoint  location  is  stored  here. 

3100  -  The  values  at  the  current  breakpoint  location  are  stored 

here. 
3110  -  The  register  values  are  stored  here  upon  reentry  from  a 

breakpoint, 
3120  -  This  will  home  the  cursor. 
3130  -  This  will  clear  to  the  end  of  the  screen. 
3140  -  Part  of  the  sign-on  message  is  stored  here. 
3150  -  This  will  display  a  carriage  return  as  part  of  the  sign-on 

message. 
3160  -  Part  of  the  sign-on  message  is  stored  here. 
3170  -  This  will  display  a  carriage  return  as  part  of  the:  sign-on 

message. 
3180  -  Sign-on  message  terminator. 
3190  -  Math  conversion  message  is  stored  here. 
3200  -  This  will  display  a  carriage  return  as  part  of  the  math  con- 
version message. 
3210  -  Math  conversion  message  terminator  is  stored  here. 
3220  -  Breakpoint  message  is  stored  here. 
3230  -  Breakpoint  message  terminator  is  stored  here. 
3240  -  Register  display  message  is  stored  here. 
3250  -  This  will  display  a  carriage  return  as  part  of  the  register 

display  message. 
3260  -  Register  display  message  terminator  is  stored  here. 
3270  -  Go  scan  the  keyboard. 
3280  -  Check  to  see  if  there  was  a  key  pressed. 
3290  -  Return  if  a  key  wasn't  pressed. 
3300  -  Check  to  see  if  the  BREAK  key  was  pressed. 
3310  -  Jump  if  the  BREAK  key  was  pressed. 
3320  -  Check  to  see  if  the  space  key  was  pressed. 
3330  -  Return  if  the  space  key  wasn't  pressed. 
3340  -  Loop  till  another  key  is  pressed. 
3350  -  Load  register  pair  DE  with  the  second  number  input. 
3360  -  Go  check  to  see  if  the  current  value  in  register  pair  HL  is 

the  same  as  the  second  number  input  in  register  pair  DE. 
3370  -  Jump  if  the  value  in  register  pair  HL  is  the  sanrie  as  the 

second  number  input  in  register  pair  DE. 
3380  -  Bump  the  value  in  register  pair  HL. 
3390  -  Return. 

140 


3400  -  Go  display  a  carriage  return. 
3410  -  Link  to  the  next  part. 
3420  -  End  of  the  program. 

Listing  10-3 


45B5 

00100 

Ml 

EQU 

458SH 

4587 

001 10 

N2 

EQU 

4587H 

4589 

00120 

M3 

EQU 

4589H 

458C 

00130 

FLAS 

EQU 

458CH 

4497 

00140 

DISW 

EQU 

4497H 

4480 

00150 

CR 

EQU 

4480H 

44D1 

00160 

CHECK 

EQU 

44D1H 

44A2 

00170 

PR 

EQU 

44A2H 

4485 

00 180 

DISl 

EQU 

44S5H 

4492 

00190 

DSP 

EQU 

4492H 

43^3 

00200 

Dl 

EQU 

4363H 

448D 

00210 

SPA 

EQU 

448DH 

449F 

00220 

CHI 

EQU 

449FH 

4620 

00230 

CH2 

EQU 

4620H 

4629 

00240 

CH3 

EQU 

4629H 

4611 

00250 

KEY 

EQU 

4611H 

462C 

00260 

ORG 

462CH 

462C 

C3E948 

00270 

JP 

LI 

462F 

AF 

00280 

READ 

XOR 

A 

4630 

328C45 

00290 

LD 

(FLAG), A 

4633 

CDBC46 

00300 

CALL 

CASS 

4636 

CD9602 

00310 

CALL 

296H 

4639 

CD3502 

00320 

RAl 

CALL 

235H 

463C 

htbb 

00330 

CP 

55H 

463E 

20F9 

00340 

JR 

NZ,RA1 

4640 

0606 

00350 

LD 

B,6 

4642 

21D246 

00360 

LD 

HL,NAt1E 

4645 

CD3502 

00370 

RA2 

CALL 

235H 

4648 

77 

00380 

LD 

(HL>,A 

4649 

23 

00390 

INC 

HL 

464A 

10F9 

00400 

DJNZ 

RA2 

464C 

CD2C02 

00410 

RA3 

CALL 

22CH 

464F 

CD3502 

00420 

RA4 

CALL 

235H 

4652 

FE78 

00430 

CP 

78H 

4654 

2835 

00440 

JR 

Z,RA6 

4656 

FE3C 

00450 

CP 

3CH 

4658 

20F5 

00460 

JR 

NZ,RA4 

465A 

CD3502 

00470 

CALL 

235H 

465D 

47 

00480 

LD 

B,A 

465E 

CD 1403 

00490 

CALL 

314H 

4661 

85 

00500 

ADD 

A,L 

4662 

4F 

00510 

LD 

C,A 

4663 

3ASC4S 

00520 

LD 

A, <FLAS) 

4666 

FEOl 

00530 

CP 

1 

4668 

2808 

00540 

JR 

Z,RA5 

466A 

228545 

00550 

LD 

(Ni),HL 

466D 

3E01 

00560 

LD 

Aj  1 

466F 

328C4S 

00570 

LD 

(FLAG), A 

4672 

CD3502 

00580 

RA5 

CALL 

235H 

4675 

77 

00590 

LD 

<HL),A 

4676 

23 

00600 

INC 

HL 

4677 

228745 

00610 

LD 

(N2) ,HL 

467A 

81 

00620 

ADD 

A,C 

467B 

4F 

00630 

LD 

C,A 

467C 

10F4 

00640 

DJNZ 

RA5 

467E 

CD3502 

00650 

CALL 

235H 

4681 

B9 

00660 

CP 

C 

4682 

28C8 

00670 

JR 

Z,RA3 
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46B4 

3E43 

00680 

LD 

A,43H 

4686 

323E3C 

00690 

LD 

(3C3EH),A 

4689 

1SC4 

00700 

JR 

RA4 

468B 

CD1403 

00710 

RA6 

CALL 

314H 

468E 

228945 

00720 

LD 

(N3),HL 

4691 

CDF801 

00730 

CALL 

1F8H 

4694 

21E946 

00740 

LO 

HL,CA2 

4697 

CD752B 

00750 

CALL 

2B75H 

469A 

21D246 

00760 

LD 

HL,NAME 

469D 

CD752B 

00770 

CALL 

2B75H 

46A0 

CD8044 

00780 

CALL 

CR 

46A3 

2AB545 

00790 

LD 

HL, <N1) 

46A6 

CDCA46 

00800 

CALL 

DIS2 

46A9 

2A8745 

00810 

LD 

HL,  <N2) 

46AC 

2B 

00820 

DEC 

HL 

46AD 

CDCA46 

00830 

CALL 

DIS2 

46B0 

2A8945 

00840 

LD 

HL,  m:^) 

46B3 

CD9744 

00850 

CALL 

DISW 

46B6 

CD8044 

00860 

CALL 

CR 

46B9 

C3E94a 

00870 

JP 

Li 

46BC 

21 0946 

00880 

CASS 

LD 

HL,CA1 

46BF 

CD752S 

00890 

CALL 

2B75H 

46C2 

CD4900 

00900 

CALL 

49H 

46C5 

3E01 

00910 

LD 

A,l 

46C7 

C31202 

00920 

JP 

212H 

46CA 

CD9744 

00930 

DIS2 

CALL 

DISW 

46CD 

3E2C 

00940 

LD 

A,%' 

46CF 

C32A03 

00950 

JP 

32AH 

0006 

00960 

MAHE 

DEFS 

6 

46D8 

00 

00970 

NOP 

46D9 

52 

00980 

CAl 

DEFM 

'READY  CAi 

46DA 

45 

46DB 

41 

46DC 

44 

46DD 

59 

46DE 

20 

46DF 

43 

46E0 

41 

46E1 

53 

46E2 

53 

46E3 

45 

46E4 

54 

46E5 

54 

46E6 

45 

46E7 

00 

00990 

DEFB 

13 

46E8 

00 

01000 

NOP 

46E9 

4E 

01010 

CA2 

DEFM 

'NAME:  ' 

46EA 

41 

46EB 

4D 

46EC 

45 

46ED 

3A 

46EE 

20 

46EF 

00 

01020 

NOP 

46F0 

2A8945 

01030 

PUNCH 

LD 

HL, (N3) 

46F3 

7C 

01040 

LD 

A,H 

46F4 

B5 

01050 

OR 

L 

46F5 

2006 

01060 

JR 

NZ,PUN 

46F7 

2A8545 

01070 

LD 

HL, <N1) 

46FA 

228945 

01080 

LD 

<N3) ,HL 

46FD 

21E946 

01090 

PUN 

LD 

HL,CA2 

4700 

CD752B 

01100 

CALL 

2B75H 

4703 

CD6103 

OHIO 

CALL 

36 IH 

4706 

DAE948 

01120 

JP 

C,L1 

4709 

D7 

01130 

RST 

16 

470A 

2003 

01140 

JR 

NZ,PU1 

470C 

217D47 

01150 

LD 

HL,CA3 

470F 

E5 

01160 

PUl 

PUSH 

HL 
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4710 

CDBC46 

01170 

CALL 

CASS 

4713 

FDEl 

01180 

POP 

lY 

4715 

CDCA47 

01190 

CALL 

LENGTH 

4718 

CD8402 

01200 

CALL 

284H 

471B 

3E55 

01210 

LD 

A,55H 

471D 

CD6402 

01220 

CALL 

264H 

4720 

0606 

01230 

LD 

B,6 

4722 

FD7E00 

01240 

PU2 

LD 

A,  <IY4-0) 

4725 

CD6402 

01250 

CALL 

264H 

4728 

FD23 

01260 

INC 

lY 

472A 

10F6 

01270 

DJNZ 

PU2 

472C 

25 

01280 

PU3 

DEC 

H 

472D 

FA3E47 

01290 

JP 

n,PU4 

4730 

3E3C 

01300 

L0 

A,3CH 

4732 

CD6402 

01310 

CALL 

264H 

4735 

AF 

01320 

XOR 

A 

4736 

CD6402 

01330 

CALL 

264H 

4739 

CD6547 

O1340 

CALL 

PUS 

473C 

18EE 

01350 

JR 

PU3 

473E 

AF 

01360 

PU4 

XDR 

A 

473F 

BD 

01370 

CP 

L 

4740 

280C 

01380 

JR 

Z,PU6 

4742 

3b3C 

01390 

LD 

A,3CH 

4744 

CD6402 

01400 

CALL 

264H 

4747 

7D 

01410 

LD 

A,L 

4748 

CD6402 

01420 

CALL 

264H 

474B 

CD6547 

01430 

CALL 

PU5 

474E 

3E78 

01440 

PU6 

LD 

A,7SH 

4750 

CD6402 

01450 

CALL 

264H 

4753 

3A8945 

01460 

LD 

A, <N3) 

4756 

CD6402 

01470 

CALL 

264H 

4759 

3A8A45 

01480 

LD 

A,  <N3+U 

475C 

CD6402 

01490 

CALL 

264H 

475F 

CDF801 

01500 

CALL 

IFSH 

4762 

C3E948 

01510 

JP 

LX 

4765 

47 

01520 

PU5 

LD 

B,A 

4766 

7B 

01530 

LD 

A,E 

4767 

CD6402 

01540 

CALL 

264H 

476A 

7A 

01550 

LD 

A,D 

476B 

CD6402 

01560 

CALL 

264H 

476E 

83 

01570 

ADD 

A,E 

476F 

4F 

01580 

LD 

C,A 

4770 

lA 

01590 

PU7 

LD 

A,  <DE) 

4771 

CD6402 

01600 

CALL 

264H 

4774 

81 

01610 

ADD 

A,C 

4775 

4F 

01620 

LD 

C,A 

4776 

13 

01630 

INC 

DE 

4777 

10F7 

01640 

DJN2 

PU7 

4779 

79 

01650 

LD 

A,C 

477A 

C36402 

01660 

JP 

264H 

477D 

4E 

01670 

CA3 

DEFM 

'NONAME' 

477E 

4F 

47 /K 

4E 

4780 

41 

4781 

4D 

4782 

45 

4783 

CD9F44 

01680 

ASC 

CALL 

CHI 

4786 

2A8545 

01690 

LD 

HL, <Ni) 

4789 

CD8544 

01700 

ASl 

CALL 

DISl 

478C 

0630 

01710 

LD 

B,48 

478E 

7E 

01720 

AS2 

LD 

A, (HLJ 

478F 

CBBF 

01730 

RES 

7, A 

4791 

FE20 

01740 

CP 

32 

4793 

3804 

01750 

JR 

C,AS3 

4795 

FE80 

01760 

CP 

128 

4797 

3802 

01770 

JR 

C,AS4 

4799 

3E2E 

01780 

AS3 

LD 

A,'.' 
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479B 

CD2A03 

01790 

AS4 

CALL 

32AH 

479E 

CD2046 

01800 

CALL 

CH2 

47A1 

lOEB 

01810 

DJNZ 

AS2 

47A3 

CD8044 

01 820 

CALL 

CR 

47A6 

CD1146 

01830 

CALL 

KEY 

47A9 

1S0E 

01840 

JR 

ASl 

47AB 

CD9F44 

01850 

FIND 

CALL 

CHI 

47AE 

CDD647 

01860 

FX 

CALL 

SEARCH 

47B1 

F5 

01870 

FUSH 

AF 

47B2 

CDD348 

01880 

CALL 

CHi9 

47B5 

7E 

01890 

LD 

A, <HL) 

47B6 

CDC54S 

01900 

CALL 

CHi2 

47B9 

Fl 

01910 

POP 

AF 

47BA 

F7F94S 

01920 

JP 

PO<,LX 

47BD 

CDil46 

01930 

CALL 

KEY 

47C0 

i8EC 

01940 

JR 

Fl 

47C2 

CD9F44 

01950 

CH9 

CALL 

CHI 

47C5 

1803 

01960 

JR 

LENGTH 

47C7 

CDD144 

01970 

CH7 

CALL 

CHECK 

47CA 

2A8745 

01980 

LENGTH 

LD 

HL, <N2) 

47CD 

ED5B8545 

01990 

LD 

DE,  <Ni) 

47D1 

AF 

02000 

XOR 

A 

47D2 

EDS2 

02010 

SBC 

HL,DE 

47D4 

23 

02020 

INC 

HL 

47D5 

C9 

02030 

RET 

47D6 

CDCA47 

02040 

SEARCH 

CALL 

LENGTH 

47D9 

E5 

02050 

PUSH 

HL 

47DA 

CI 

02060 

POP 

BC 

47DB 

2A8545 

02070 

LD 

HL, <N1> 

47DE 

3A8945 

02080 

LD 

A,  <N3) 

47E1 

EDBl 

02090 

CPIR 

47E3 

C2E94a 

02100 

JP 

NZ,L1 

47E6 

228545 

02110 

LD 

(Nl) ,HL 

47E9 

C9 

02120 

RET 

47EA 

CD9F44 

02130 

HUNT 

CALL 

CHI 

47ED 

CDD647 

02140 

Hi 

CALL 

SEARCH 

47F0 

F5 

02150 

PUSH 

AF 

47F1 

2B 

02160 

DEC 

HL 

47F2 

CDD348 

02170 

CALL 

CH19 

47F5 

5E 

02180 

LD 

E, (HL) 

47F6 

23 

02190 

INC 

HL 

47F7 

56 

02200 

LD 

D, <HL) 

47F8 

EB 

02210 

EX 

DE,HL 

47F9 

CD9744 

02220 

CALL 

DISW 

47FC 

CD8044 

02230 

CALL 

CR 

47FF 

Fl 

02240 

POP 

AF 

4800 

E2E948 

02250 

JP 

P0,L1 

4803 

CDli46 

02260 

CALL 

KEY 

4806 

ISES 

02270 

JR 

HI 

4808 

CDBA48 

02280 

MOVE 

CALL 

CHS 

4B0B 

CDCB48 

02290 

CALL 

CH13 

4S0E 

EDBO 

02300 

LDIR 

4810 

C3E948 

02310 

JP 

LI 

4813 

CDC247 

02320 

SUM 

CALL 

CH9 

4816 

EB 

02330 

EX 

DE,HL 

4817 

2A8545 

02340 

LD 

HL, <N1) 

48iA 

47 

02350 

LD 

B,A 

481B 

7E 

02360 

SI 

LD 

A, (HLJ 

48iC 

80 

02370 

ADD 

A,B 

481D 

47 

02380 

LD 

B,A 

481E 

23 

02390 

INC 

HL 

48iF 

IB 

02400 

DEC 

DE 

4820 

7A 

02410 

LD 

A,D 

4821 

B3 

02420 

OR 

E 

4822 

20F7 

02430 

JR 

NZ,S1 

4824 

C5 

02440 

PUSH 

BC 

4825 

213248 

02450 

LD 

HL,SUl 

4828 

CD752B 

02460 

CALL 

2B75H 
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482B 

Fl 

02470 

POP 

AF 

482C 

CD6343 

02480 

CALL 

Dl 

482F 

C32946 

02490 

JP 

CH3 

4832 

43 

02500  SUl 

DEFM 

'CHECKSUMS 

4833 

48 

4834 

45 

4835 

43 

4836 

4B 

4837 

53 

4838 

55 

4839 

4D 

483A 

3A 

483B 

20 

4830 

00 

02510 

NOP 

483D 

CDC048 

02520  TEST 

CALL 

OHIO 

4840 

2A854S 

02530 

LD 

HL, (Nl> 

4843 

5E 

02540  Tl 

LD 

E, (HL> 

4844 

AF 

02550 

XOR 

A 

484S 

77 

02560 

LD 

<HL),A 

4B46 

56 

02570 

LD 

D,  <HL) 

4847 

BA 

02580 

CP 

D 

4848 

73 

02590 

LD 

<HL),E 

4849 

280C 

02600 

JR 

Z,T2 

484B 

D5 

02610 

PUSH 

DE 

484C 

CD8544 

02620 

CALL 

DISl 

484F 

AF 

02630 

XOR 

A 

4850 

CD9244 

02640 

CALL 

DSP 

4853 

Fl 

02650 

POP 

AF 

4854 

CDC548 

02660 

CALL 

CHi2 

4857 

5E 

02670  T2 

LD 

E, (HL) 

4858 

3EFF 

02680 

LD 

A,0FFH 

485A 

77 

02690 

LD 

<HL),A 

485B 

56 

02700 

LD 

D, <HL> 

485C 

BA 

02710 

CP 

D 

485D 

73 

02720 

LD 

<HL),E 

485E 

280D 

02730 

JR 

Z,T3 

4860 

D5 

02740 

PUSH 

DE 

4861 

CD8544 

02750 

CALL 

DISl 

4864 

3bh(- 

02760 

LD 

AjOFFH 

4866 

CD9244 

02770 

CALL 

DSP 

4869 

Fl 

02780 

POP 

AF 

4S6A 

CDC548 

02790 

CALL 

CHi2 

486D 

CDDD48 

02800  T3 

CALL 

CH18 

4870 

18D1 

02810 

JR 

Tl 

4872 

CDC048 

02820  VERF 

CALL 

CHIO 

4875 

CDCB48 

02830  VI 

CALL 

CH13 

4878 

7E 

02840 

LD 

A,  <HL) 

4879 

EB 

02850 

EX 

DE,HL 

487A 

BE 

02860 

CP 

<HL) 

487B 

23 

02870 

INC 

HL 

487C 

13 

02880 

INC 

DE 

487D 

ED538545 

02890 

LD 

<N1),DE 

4881 

228945 

02900 

LD 

<N3) ,HL 

4884 

2S1B 

02910 

JR 

Z,V2' 

4886 

E5 

02920 

PUSH 

HL 

4807 

EB 

02930 

EX 

DE,HL 

4888 

2B 

02940 

DEC 

HL 

4889 

CD8S44 

02950 

CALL 

DISl 

488C 

7E 

02960 

LD 

A, (HL) 

48SD 

CD9244 

0297O 

CALL 

DSP 

4890 

3E2D 

02980 

LD 

A,'-' 

4892 

CD2A03 

02990 

CALL 

32AH 

4895 

CD8D44 

03000 

CALL 

SPA 

4898 

El 

03010 

POP 

HL 

4899 

2B 

03020 

DEC 

HL 

489A 

CD8544 

03030 

CALL 

DISl 

489D 

7E 

03040 

LD 

A, <HL) 

489E 

CDC548 

03050 

CALL 

CH12 
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48A1 

C0DE48 

03060 

V2 

CALL 

CHI  7 

48A4 

C37548 

03070 

JP 

Vi 

48A7 

CDBA48 

03080 

EXCH 

CALL 

CHS 

48AA 

CDCB4S 

03090 

CALL 

CH13 

48AD 

C5 

03100 

El 

PUSH 

BC 

48AE 

46 

03110 

LD 

B, (HL> 

48AF 

EB 

03120 

EX 

DEjHL 

48B0 

7E 

03130 

LD 

A, (HL) 

48B1 

70 

03140 

LD 

<HL>,B 

48B2 

EB 

03150 

EX 

DE,HL 

4aB3 

77 

03160 

LD 

<HL) ,A 

48B4 

CI 

03170 

POP 

BC 

48B5 

CDE348 

03180 

CALL 

CH14 

48B8 

18F3 

03190 

JR 

El 

48BA 

CDC747 

03200 

CHS 

CALL 

CH7 

48BD 

E5 

03210 

CHll 

PUSH 

HL 

48BE 

CI 

03220 

POP 

BC 

48BF 

C9 

03230 

RET 

48C0 

CDC247 

0324O 

CHIO 

CALL 

CH9 

48C3 

18FS 

03250 

JR 

CHll 

48C5 

CD9244 

03260 

CH12 

CALL 

DSP 

48C8 

C38044 

03270 

JR 

CR 

48CB 

2A854S 

03280 

CH13 

LD 

HL, <N1> 

48CE 

ED5BS945 

03290 

LD 

DE, <N3) 

48D2 

C9 

03300 

RET 

48D3 

2B 

03310 

CH19 

DEC 

HL 

48D4 

CD8544 

03320 

CALL 

DISl 

48D7 

7E 

03330 

CH20 

LD 

A, (HL) 

48D8 

CD9244 

03340 

CALL 

DSP 

48DB 

23 

03350 

INC 

HL 

48DC 

C9 

03360 

RET 

48DD 

23 

03370 

CH18 

INC 

HL 

48DE 

CD! 146 

03380 

CHI  7 

CALL 

KEY 

48E1 

1802 

03390 

JR 

CH16 

48E3 

13 

03400 

CH14 

INC 

DE 

48E4 

23 

03410 

CHi5 

INC 

HL 

48E5 

OB 

03420 

CH16 

DEC 

BC 

48E6 

78 

03430 

LD 

A,B 

48E7 

Bl 

03440 

OR 

C 

48ES 

CO 

03450 

RET 

NZ 

48E9 

00 

03460 

Li 

DEFB 

0 

4300 

03470 

END 

4300H 

00000  TOTAL  ERRORS 

CH15 

4SE4 

CH16 

48E5 

CH20 

48D7 

CHll 

48BD 

CH14 

48E3 

El 

48AD 

EXCH 

4aA7 

CH17 

48DE 

V2 

48A1 

VI 

4875 

VERF 

4872 

CH18 

48DD 

T3 

486D 

T2 

4857 

Ti 

4843 

OHIO 

48C0 

TEST 

483D 

SUi 

4832 

SI 

481B 

SUM 

4813 

CH13 

48CB 

CHS 

48BA 

MOVE 

4808 

HI 

47ED 

146 


HUNT 

47EA 

CH7 

47C7 

CH9 

47C2 

CH12 

48C5 

CH19 

4SD3 

SEARCH 

47D6 

Fl 

47AE 

FIND 

47AB 

AS4 

479B 

AS3 

4799 

AS2 

47BE 

ASl 

4789 

ASC 

4783 

PUT 

4770 

PU6 

474E 

PUS 

4765 

PU4 

473E 

PU3 

472C 

PU2 

4722 

LENGTH 

47CA 

CA3 

477D 

PUl 

470F 

PUN 

46FD 

PUNCH 

46F0 

CAl 

46D9 

DIS2 

46CA 

CA2 

46E9 

RA5 

4672 

RA6 

46SB 

RA4 

464F 

RA3 

464C 

RA2 

4645 

NAME 

46D2 

RAl 

4639 

CASS 

46BC 

READ 

462F 

LI 

48E9 

KEY 

4611 

CH3 

4629 

CH2 

4620 

CHI 

449F 

SPA 

448D 

Dl 

4363 

DSP 

4492 

DISi 

4485 

PR 

44A2 

CHECK 

44D1 

CR 

4480 

DISW 

4497 

FLAB 

458C 

N3 

4589 

N2 

4587 

Nl 

4585 

Listing  10-3  Comments 

100  -  Value  from  previous  part. 
110  -  Value  from  previous  part. 
120  -  Value  from  previous  part. 
130  -  Value  from  previous  part. 
140  -  Value  from  previous  part. 
150  -  Value  from  previous  part. 
160  -  Value  from  previous  part. 
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170  -  Value  from  previous  part. 

180  -  Value  from  previous  part, 

190  -  Value  from  previous  part, 

200  -  Value  from  previous  part. 

210  -  Value  from  previous  part. 

220  -  Value  from  previous  part. 

230  -  Value  from  previous  part. 

240  -  Value  from  previous  part. 

250  -  Value  from  previous  part. 

260  -  Set  the  starting  address  to  the  end  of  the  last  part. 

270  -  Jump. 

280  -  Zero  register  A. 

290  -  Zero  the  input  flag. 

300  -  Go  display  the  prompt  and  turn  on  the  cassette. 

310  -  Go  read  the  leader  and  find  the  sync  byte. 

320  -  Go  read  a  byte  from  the  cassette  recorder  and  return  with  it 

in  register  A. 
330  -  Check  to  see  if  the  byte  read  from  the  cassette  is  the 

filename  header  byte. 
340  -  Loop  till  the  filename  header  byte  is  found. 
350  -  Load  registers  with  the  number  of  bytes  to  be  re£d  for  the 

filename. 
360  -  Load  register  pair  HL  with  the  filename  storage  location. 
370  -  Go  read  a  byte  from  the  cassette  recorder  and  return  with 

the  byte  in  register  A. 
380  -  Save  the  byte  read  from  the  cassette  in  register  A  at  the 

location  of  the  filename  storage  pointer  in  register  pair  HL. 
390  -  Bump  the  filename  storage  pointer  in  register  pair  HL. 
400  -  Loop  till  all  of  the  bytes  in  the  filename  have  been  read. 
410  -  Go  blink  the  asterisks  on  the  video  display. 
420  -  Go  read  a  byte  from  die  cassette  recorder  and  retuim  with  it 

in  register  A. 
430  -  Check  to  see  if  the  byte  read  from  the  cassette  recorder  is 

the  jump  address  header. 
440  -  Jump  if  the  byte  read  from  the  cassette  recorder  is  the  jump 

address  header, 
450  -  Check  to  see  if  the  byte  read  from  the  cassette  in  register  A 

is  the  data  block  header. 
460  -  Jump  if  the  byte  read  from  the  cassette  in  register  A  isn't  a 

data  block  header, 
470  -  Go  read  a  byte  from  the  cassette  recorder  and  return  with  it 

in  register  A. 
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480  -  Save  the  number  of  bytes  in  the  file  block  in  register  A  in 

register  B. 
490  -  Go  read  two  bytes  from  the  cassette  recorder  and  return 

with  the  data  block  starting  address  in  register  pair  HL. 
500  -  Add  the  MSB  of  the  data  block's  starting  address  in  register 

A  to  the  LSB  of  the  data  block's  starting  address  in  register 

L. 
510  -  Save  the  combined  starting  address  in  register  A  as  the 

starting  checksum  in  register  C. 
520  -  Load  register  A  with  the  input  flag. 
530  -  Check  to  see  if  the  starting  address  has  been  saved. 
540  -  Jump  if  the  program's  starting  address  has  already  been 

saved. 
550  -  Save  the  starting  address  in  register  pair  HL. 
560  -  Load  register  A  with  the  value  to  indicate  the  starting 

address  has  been  saved. 
570  -  Save  the  value  in  register  A  in  the  input  flag. 
580  -  Go  read  a  byte  from  the  cassette  recorder  and  return  with  it 

in  register  A. 
590  -  Save  the  value  in  register  A  at  the  location  of  the  memory 

pointer  in  register  pair  HL. 
600  -  Bump  the  memory  pointer  in  register  pair  HL. 
610  -  Save  the  memory  pointer  in  register  pair  HL  as  the  ending 

address. 
620  -  Add  the  current  checksum  in  register  C  with  the  value  in 

register  A. 
630  -  Save  the  updated  checksum  in  register  A  in  register  C, 
640  -  Loop  till  the  data  block  has  been  read. 
650  -  Go  read  the  checksum  from  the  cassette  recorder  and  re- 
turn with  it  in  register  A. 
660  -  Compare  the  checksum  read  from  the  tape  in  register  A 

with  the  computed  checksum  in  register  C. 
670  -  Jump  if  the  checksum  read  from  the  tape  in  register  A 

matches  the  checksum  computed  in  register  C. 
680  -  Load  register  A  with  a  C  character, 
690  -  Go  display  the  C  character  in  register  A  on  the  video 

display. 
700  -  Jump. 
710  -  Go  read  the  execution  address  from  the  cassette  recorder 

and  return  with  it  in  register  pair  HL. 
720  -  Save  the  execution  address  in  register  pair  HL, 
730  -  Go  turn  off  the  cassette  recorder. 
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740  -  Load  register  pair  HL  with  the  starting  address  for  the 
message  to  be  displayed. 

750  -  Go  display  the  message. 

760  -  Load  register  pair  HL  with  the  starting  address  for  the 
filename. 

770  -  Go  display  the  filename. 

780  -  Go  display  a  carriage  return. 

790  -  Load  register  pair  HL  with  the  starting  address. 

800  -  Go  display  the  program's  starting  address  in  register  pair 
HL. 

810  -  Load  register  pair  HL  with  the  program's  ending  address. 

820  -  Decrement  the  program's  ending  address  in  register  pair 
HL. 

830  -  Go  display  the  program's  ending  address  in  register  pair 
HL. 

840  -  Load  register  pair  HL  with  the  program's  execution  ad- 
dress. 

850  -  Go  display  the  program's  execution  address  in  register  pair 
HL 

860  -  Go  display  a  carriage  return. 

870  -  Jump. 

880  -  Load  register  pair  HL  with  the  starting  address  of  the 
cassette  prompting  message. 

890  -  Go  display  the  message. 

900  -  Go  wait  till  a  key  is  pressed. 

910  -  Load  register  A  with  the  drive  number  to  turn  on. 

920  -  Go  start  the  cassette  motor. 

930  -  Go  display  the  value  in  register  pair  HL. 

940  -  Load  register  A  with  a  comma  character. 

950  -  Go  display  a  comma. 

960  -  The  program's  name  will  be  stored  here. 

970  -  The  program's  name  message  terminator  is  stored  here. 

980  -  The  cassette  prompting  message  is  stored  here. 

990  -  This  will  display  a  carriage  return  as  part  of  the  cassette 

prompting  message. 
1000  -  The  cassette  promptingmessage  terminator  is  stored  here. 
1010  -  The  NAME  message  is  stored  here. 
1020  -  The  NAME  message  terminator  is  stored  here. 
1030  -  Load  register  pair  HL  with  the  program's  execution  ad- 
dress. 
1040  -  Load  register  A  with  the  MSB  of  the  program's  execution 
address  in  register  H. 

150 


1050  -  Combine  the  MSB  of  the  program^s  execution  address  in 

register  A  with  the  LSB  of  the  program's  execution  address 

in  register  L. 
1060  -  Jump  if  the  execution  address  in  register  pair  HL  isn't  equal 

to  zero. 
1070  -  Load  register  pair  HL  with  the  program's  starting  address. 
1080  -  Save  the  program's  starting  address  in  register  pair  HL  as 

the  program's  execution  address. 
1090  -  Load  register  pair  HL  with  the  starting  address  of  the 

NAME  message. 
1100  -  Go  display  the  NAME  message. 
1110  -  Go  get  the  keyboard  input. 
1120  -  Jump  if  the  BREAK  key  was  pressed. 
1130  -  Go  bump  the  input  buffer  pointer  in  register  pair  HL  till  it 

points  to  the  first  character  in  the  input. 
1140  -  Jump  if  a  name  was  input. 
1150  -  Load  register  pair  HL  with  the  starting  address  for  the 

NONAME  program  name. 
1160  -  Save  the  starting  address  for  the  program  name  in  register 

pair  HL  on  the  stack. 
1170  -  Go  prompt  for  the  cassette  and  turn  on  the  cassette  motor. 
1180  -  Get  the  program  name's  starting  address  from  the  stack  and 

put  it  in  register  pair  lY. 
1190  -  Go  figure  the  program's  length  and  return  with  it  in  register 

pair  HL. 
1200  -  Go  write  the  leader  and  the  sync  byte. 
1210  -  Load  register  A  with  the  filename  header  byte. 
1220  -  Go  write  the  filename  header  byte  on  the  cassette  recorder. 
1230  -  Load  register  B  with  the  length  of  the  filename  to  write  on 

the  cassette  recorder. 
1240  -  Load  register  A  with  the  character  at  the  filename  pointer  in 

register  pair  lY, 
1250  -  Go  write  the  filename  character  in  register  A  on  the  cas- 
sette recorder. 
1260  -  Bump  the  filename  pointer  in  register  pair  lY. 
1270  -  Loop  till  the  filename  has  been  completely  written  on  the 

cassette. 
1280  -  Decrement  the  MSB  of  the  program's  length  in  register  H. 
1290  -  Jump  if  this  is  the  last  data  block  to  be  written. 
1300  -  Load  register  A  with  the  data  block  file  header. 
1310  -  Go  write  the  data  block  file  header  byte  on  the  cassette 

recorder. 
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1320  -  Load  register  A  with  the  data  block's  length. 

1330  -  Go  write  the  data  block's  length  on  the  cassette  recorder. 

1340  -  Go  write  the  data  block. 

1350  -  Loop  till  all  but  die  last  data  block  has  been  written. 

1360  -  Zero  register  A. 

1370  -  Check  to  see  if  the  LSB  of  die  program's  lengdi  in  register  L 

is  zero. 
1380  -  Jump  if  the  LSB  of  the  program's  length  is  zero. 
1390  -  Load  register  A  with  die  data  block  header  byte. 
1400  -  Go  write  the  data  block  header  byte  on  die  cassette. 
1410  -  Load  register  A  with  the  data  block's  lengtii  in  register  L. 
1420  -  Go  write  the  data  block's  lengtii  on  die  cassette  recorder. 
1430  -  Go  write  the  data  block  on  the  cassette  recorder. 
1440  -  Load  register  A  with  the  execution  address  headeir  byte. 
1450  -  Go  write  the  execution  address  header  byte  on  the  cassette 

recorder. 
1460  -  Load  register  A  with  the  LSB  of  the  execution  acdress. 
1470  -  Go  write  the  execution  address's  LSB  on  the  cassette 

recorder. 
1480  -  Load  register  A  with  the  MSB  of  the  execution  address. 
1490  -  Go  write  the  MSB  of  the  execution  address  on  the  cassette 

recorder. 
1500  -  Go  turn  off  the  cassette  recorder. 
1510  -  Jump. 

1520  -  Load  register  B  with  the  data  block's  length  in  register  A. 
1530  -  Load  register  A  with  the  data  block's  starting  adilress  in 

register  E. 
1540  -  Go  write  the  LSB  of  the  data  block's  starting  address  on  the 

cassette  recorder. 
1550  -  Load  register  A  witii  the  MSB  of  the  data  block's  starting 

address  in  register  D. 
1560  -  Go  write  the  MSB  of  the  data  block's  starting  address  on  the 

cassette  recorder. 
1570  -  Add  the  LSB  of  the  data  block's  starting  address  in  register 

E  to  the  MSB  of  the  data  block's  starting  address  in  register 

A. 
1580  -  Load  register  C  with  the  starting  checksum  in  register  A. 
1590  -  Load  register  A  with  the  byte  at  the  location  of  the  memory 

pointer  in  register  pair  DE. 
1600  -  Go  write  the  byte  in  register  A  on  the  cassette  recorder. 
1610  -  Add  the  current  checksum  in  register  C  to  the  value  in 

register  A. 
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1620  -  Save  the  updated  checksum  in  register  A  in  register  C. 

1630  -  Bump  the  memory  pointer  in  register  pair  DE. 

1640  -  Loop  till  the  data  block  has  been  completely  written  on  the 
cassette  recorder. 

1650  -  Load  register  A  with  the  checksum  in  register  C. 

1660  -  Go  write  the  checksum  on  the  cassette  recorder. 

1670  -  The  NONAME  program  file  name  is  stored  here. 

1680  -  Go  check  the  input  values. 

1690  -  Load  register  pair  HL  with  the  starting  address. 

1700  -  Go  display  the  memory  pointer  in  register  pair  HL. 

1710  -  Load  register  B  with  the  number  of  characters  to  be  dis- 
played. 

1720  -  Load  register  A  with  the  value  at  the  location  of  the  memory 
pointer  in  register  pair  HL. 

1730  -  Clear  bit-7  of  the  character  to  be  displayed  in  register  A. 

1740  -  Check  to  see  if  the  character  in  register  A  is  a  control  code. 

1750  -  Jump  if  the  character  in  register  A  is  a  control  code. 

1760  -  Check  to  see  if  the  character  in  register  A  is  greater  than 
80H. 

1770  -  Jump  if  the  character  in  register  A  is  less  than  BOH. 

1780  -  Load  register  A  with  a  .  character. 

1790  -  Go  display  the  character  in  register  A. 

1800  -  Go  check  to  see  if  the  memory  pointer  in  register  pair  HL  is 
the  same  as  the  ending  address. 

1810  -  Loop  till  48  characters  have  been  displayed. 

1820  -  Go  display  a  carriage  return. 

1830  -  Go  check  to  see  if  a  key  has  been  pressed. 

1840  -  Jump  till  all  of  the  memory  locations  have  been  displayed. 

1850  -  Go  check  the  input  values. 

1860  -  See  if  the  character  can  be  found. 

1870  -  Save  the  flags  on  the  stack. 

1880  -  Go  display  the  memory  location  and  the  value  found. 

1890  -  Load  register  A  with  the  next  byte  after  the  one  found. 

1900  -  Go  display  the  byte  in  register  A. 

1910  -  Get  the  flags  from  the  stack. 

1920  -  Jump  if  this  is  the  end  of  the  search. 

1930  -  Go  check  to  see  if  a  key  is  pressed. 

1940  -  Jump  till  the  end  of  the  search. 

1950  -  Go  check  the  input  values. 

1960  -  Jump. 

1970  -  Go  check  the  input  values. 

1980  -  Load  register  pair  HL  with  the  ending  address. 
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1990  -  Load  register  pair  DE  with  the  starting  address. 

2000  -  Clear  the  Carry  flag. 

2010  -  Subtract  the  starting  address  in  register  pair  DE  from  the 

ending  address  in  register  pair  HL. 
2020  -  Bump  the  length  in  register  pair  HL. 
2030  -  Return. 
2040  -  Go  figure  the  length  and  return  with  the  length  in  register 

pair  HL. 
2050  -  Save  the  length  in  register  pair  HL  on  the  stack. 
2060  -  Get  the  length  from  the  stack  and  put  it  in  register  pair  BC. 
2070  -  Load  register  pair  HL  with  the  starting  address. 
2080  -  Load  register  A  with  the  value  to  be  found. 
2090  -  Go  see  if  the  value  in  register  A  can  be  found. 
2100  -  Jump  if  the  value  in  register  A  can't  be  found. 
2110  -  Save  the  next  value  to  be  searched  for  in  register  pair  HL. 
2120  -  Return. 

2130  -  Go  check  the  input  values. 
2140  -  Go  check  to  see  if  the  value  can  be  found. 
2150  -  Save  the  flags  on  the  stack. 

2160  -  Decrement  the  memory  pointer  in  register  pair  ]^L. 
2170  -  Go  display  the  memory  location  and  the  value  at  the  location 

of  the  memory  pointer  in  register  pair  HL. 
2180  -  Load  register  E  with  the  LSB  of  the  value  at  the  location  of 

the  memory  pointer  in  register  pair  HL. 
2190  -  Bump  the  memory  pointer  in  register  pair  HL. 
2200  -  Load  register  D  with  the  MSB  of  the  value  at  the  Icjcation  of 

the  memory  pointer  in  register  pair  HL. 
2210  -  Exchange  the  memory  pointer  in  register  pair  HL  with  the 

value  in  register  pair  DE. 
2220  -  Go  display  the  value  in  register  pair  HL. 
2230  -  Go  display  a  carriage  return. 
2240  -  Get  the  flags  from  the  stack. 
2250  -  Jump  if  this  is  the  end  of  the  search. 
2260  -  Go  check  to  see  if  a  key  has  been  pressed. 
2270  -  Jump  if  the  search  hasn't  been  completed. 
2280  -  Go  get  the  length  of  the  portion  of  memory  to  be  moved  and 

return  with  it  in  register  pair  BC. 
2290  -  Go  get  the  starting  address  of  the  section  of  memory  to  be 

moved  in  register  pair  HL  and  the  new  starting  address  in 

register  pair  DE. 
2300  -  Go  move  the  memory. 
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2310  -  Jump. 

2320  -  Go  get  the  length  of  the  section  of  memory  to  be  check- 
summed. 
2330  -  Load  register  pair  DE  with  the  length  of  the  section  of 

memory  to  be  checksummed. 
2340  -  Load  register  pair  HL  with  the  starting  address. 
2350  -  Load  register  B  with  the  starting  checksum. 
2360  -  Load  register  A  with  the  value  at  the  location  of  the  memory 

pointer  in  register  pair  HL. 
2370  -  Add  the  current  checksum  in  register  B  to  the  value  in 

register  A. 
2380  -  Load  register  B  with  the  updated  checksum  in  register  A. 
2390  -  Bump  the  memory  pointer  in  register  pair  HL. 
2400  -  Decrement  the  length  in  register  pair  DE. 
2410  -  Load  register  A  with  the  MSB  of  the  length  in  register  D. 
2420  -  Combine  the  LSB  of  the  length  in  register  E  with  the  MSB 

of  the  length  in  register  A. 
2430  -  Jump  if  this  isn't  the  end  of  the  section  of  memory  to  be 

checksummed. 
2440  -  Save  the  checksum  in  register  B  on  the  stack. 
2450  -  Load  register  pair  HL  with  the  starting  address  of  the 

message  to  be  displayed. 
2460  -  Go  display  the  message. 

2470  -  Get  the  checksum  from  the  stack  and  put  it  in  register  A. 
2480  -  Go  display  the  checksum  in  register  A. 
2490  -  Jump. 

2500  -  The  checksum  message  is  stored  here, 
2510  -  The  checksum  message  terminator  is  stored  here. 
2520  -  Go  check  the  input  values  and  get  the  length  of  the  section 

of  memory  to  be  tested. 
2530  -  Load  register  pair  HL  with  the  starting  address. 
2540  -  Load  register  E  with  the  value  at  the  location  of  the  memory 

pointer  in  register  pair  HL. 
2550  -  Zero  register  A. 
2560  -  Save  the  value  in  register  A  at  the  location  of  the  memory 

pointer  in  register  pair  HL. 
2570  -  Load  register  D  with  the  value  at  the  location  of  the  memory 

pointer  in  register  pair  HL. 
2580  -  Compare  the  value  in  register  D  with  the  expected  value  in 

register  A. 
2590  -  Save  the  original  value  in  register  E  at  the  location  of  the 
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memory  pointer  in  register  pair  HL. 
2600  -  Jump  if  the  value  in  register  D  is  the  same  as  the  value  in 

register  A. 
2610  -  Save  the  value  in  register  D  on  the  stack. 
2620  -  Go  display  the  value  of  the  memory  pointer  in  register  pair 

HL, 
2630  -  Zero  register  A. 

2640  -  Go  display  the  expected  value  in  register  A. 
2650  -  Get  the  actual  value  from  the  stack  and  put  it  in  register  A, 
2660  -  Go  display  the  value  in  register  A  and  a  carriage  return. 
2670  -  Load  register  E  with  the  value  at  the  location  of  the  memory 

pointer  in  register  pair  HL. 
2680  -  Load  register  A  with  the  value  to  be  tested. 
2690  -  Save  the  value  in  register  A  at  the  location  of  die  memory 

pointer  in  register  pair  HL. 
2700  -  Load  register  D  with  the  value  at  the  location  of  the  memory 

pointer  in  register  pair  HL. 
2710  -  Check  to  see  if  die  value  in  register  D  matches  the  expected 

value  in  register  A. 
2720  -  Save  the  original  value  in  register  E  at  the  location  of  the 

memory  pointer  in  register  pair  HL. 
2730  -  Jump  if  the  value  in  register  D  matches  the  expected  value 

in  register  A. 
2740  -  Save  the  value  in  register  D  on  the  stack. 
2750  -  Go  display  the  memory  pointer  in  register  pair  ¥IL. 
2760  -  Load  register  A  with  the  expected  value. 
2770  -  Go  display  the  expected  value  in  register  A. 
2780  -  Get  the  actual  value  from  the  stack  and  put  it  in  rei^ster  A. 
2790  -  Go  display  the  actual  value  in  register  A  and  a  carriage 

return. 
2800  -  Go  check  to  see  if  this  is  the  last  location  to  be  chiecked. 
2810  -  Jump  till  all  of  the  locations  have  been  tested. 
2820  -  Go  check  the  input  values  and  return  with  the  length  in 

register  pair  BC. 
2830  -  Load  register  pair  HL  with  the  first  starting  address  and 

register  pair  DE  with  the  second  starting  address. 
2840  -  Load  register  A  with  the  value  at  the  location  of  the  memory 

pointer  in  register  pair  HL. 
2850  -  Exchange  the  memory  pointer  in  register  pair  HL  with  the 

second  memory  pointer  in  register  pair  DE. 
2860  -  Compare  the  value  in  register  A  with  the  value  at  the 

location  of  ±e  second  memory  pointer  in  register  pair  HL. 
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2870  -  Bump  the  second  memory  pointer  in  register  pair  HL. 
2880  -  Bump  the  first  memory  pointer  in  register  pair  DE. 
2890  -  Save  the  first  memory  pointer  in  register  pair  DE. 
2900  -  Save  the  second  memory  pointer  in  register  pair  HL. 
2910  -  Jump  if  the  two  values  in  memory  match. 
2920  -  Save  the  second  memory  pointer  in  register  pair  HL  on  the 

stack. 
2930  -  Load  register  pair  HL  with  the  first  memory  pointer. 
2940  -  Decrement  the  first  memory  pointer  in  register  pair  HL. 
2950  -  Go  display  the  value  of  the  first  memory  pointer  in  register 

pair  HL. 
2960  -  Load  register  A  with  the  value  at  the  location  of  the  first 

memory  pointer  in  register  pair  HL. 
2970  -  Go  display  the  value  in  register  A. 
2980  -  Load  register  A  with  a  -  character. 
2990  -  Go  display  the  character  in  register  A. 
3000  -  Go  display  a  space. 
3010  -  Get  the  second  memory  pointer  from  the  stack  and  put  it  in 

register  pair  HL. 
3020  -  Decrement  the  second  memory  pointer  in  register  pair  HL, 
3030  -  Go  display  the  second  memory  pointer  in  register  pair  HL. 
3040  -  Load  register  A  with  the  value  at  the  location  of  the  memory 

pointer  in  register  pair  HL. 
3050  -  Go  display  the  value  in  register  A  and  a  carriage  return. 
3060  -  Go  check  to  see  if  this  is  the  last  location  to  be  checked. 
3070  -  Loop  till  all  of  the  locations  have  been  checked. 
3080  -  Go  check  the  input  values  and  return  with  the  length  in 

register  pair  BC. 
3090  -  Go  load  register  pair  HL  with  the  first  starting  address  and 

register  pair  DE  with  the  second  starting  address. 
3100  -  Save  the  length  in  register  pair  BC  on  the  stack. 
3110  -  Load  register  B  with  the  value  at  the  location  of  the  first 

memory  pointer  in  register  pair  HL. 
3120  -  Exchange  the  memory  pointer  in  register  pair  HL  with  the 

second  memory  pointer  in  register  pair  DE. 
3130  -  Load  register  A  with  the  value  at  the  location  of  the  second 

memory  pointer  in  register  pair  HL. 
3140  -  Save  the  value  in  register  B  at  the  location  of  the  second 

memory  pointer  in  register  pair  HL. 
3150  -  Exchange  the  second  memory  pointer  in  register  pair  HL 

with  the  first  memory  pointer  in  register  pair  DE. 
3160  -  Save  the  value  in  register  A  at  the  location  of  the  first 
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memory  pointer  in  register  pair  HL. 
3170  -  Get  the  length  from  the  stack  and  put  it  in  register  pair  BC. 
3180  -  Go  bump  the  memory  pointers  in  register  pair  HL  and 

register  pair  DE  and  check  to  see  if  all  locations  have  been 

exchanged. 
3190  -  Loop  till  all  of  the  locations  have  been  exchanged. 
3200  -  Go  check  the  input  values  and  return  with  the  length  in 

register  pair  HL. 
3210  -  Save  the  length  in  register  pair  HL  on  the  stack. 
3220  -  Get  the  length  from  the  stack  and  put  it  in  register  pair  BC. 
3230  -  Return. 
3240  -  Go  check  the  input  values  and  return  with  the  length  in 

register  pair  HL. 
3250  -  Jump. 

3260  -  Go  display  the  value  in  register  A. 
3270  -  Go  display  a  carriage  return. 

3280  -  Load  register  pair  HL  with  the  first  value  that  was  input. 
3290  -  Load  register  pair  DE  with  the  third  value  that  was  input. 
3300  -  Return. 

3310  -  Decrement  the  value  in  register  pair  HL. 
3320  -  Go  display  the  value  in  register  pair  HL. 
3330  -  Load  register  A  with  the  value  at  the  location  of  the  memory 

pointer  in  register  pair  HL. 
3340  -  Go  display  the  value  in  register  A. 
3350  -  Bump  the  memory  pointer  in  register  pair  HL. 
3360  -  Return. 

3370  -  Bump  the  value  in  register  pair  HL 
3380  -  Go  check  to  see  if  a  key  was  pressed. 
3390  -  Jump. 

3400  -  Bump  the  value  in  register  pair  DE. 
3410  -  Bump  the  value  in  register  pair  HL. 
3420  -  Decrement  the  value  in  register  pair  BC. 
3430  -  Load  register  A  with  the  value  in  register  B. 
3440  -  Combine  the  value  in  register  C  with  the  value  in  register 

A. 
3450  -  Return  if  register  BC  doesn't  equal  zero. 
3460  -  Link  with  the  next  part. 
3470  -  End  of  the  program. 

Listing  10-4 

4585  00100  Nl       EQU      4585H 

4587  001 10  N2       EQU      4587H 
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4589 

00120 

N3 

EQU 

4589H 

430F 

00130 

HEX 

EQU 

430FH 

45SD 

00140 

FL2 

EQU 

45SDH 

4347 

00150 

DISP 

EQU 

4347H 

4383 

00160 

80 

EQU 

43a3H 

4387 

00170 

EDIT 

EQU 

4387H 

43B2 

00180 

ZERO 

EQU 

43B2H 

43C4 

00190 

INP 

EQU 

43C4H 

43D3 

00200 

OUP 

EQU 

43D3H 

43DF 

00210 

MATH 

EQU 

43DFH 

44E4 

00220 

BRK 

EQU 

44E4H 

48A7 

00230 

EXCH 

EQU 

48A7H 

4872 

00240 

VERF 

EQU 

4872H 

483D 

00250 

TEST 

EQU 

483DH 

4813 

00260 

SUM 

EQU 

4813H 

4808 

00270 

MOVE 

EQU 

4808H 

47EA 

00280 

HUNT 

EQU 

47EAH 

47AB 

00290 

FIND 

EQU 

47ABH 

46F0 

00300 

PUNCH 

EQU 

46F0H 

462F 

00310 

READ 

EQU 

462FH 

4783 

00320 

ASC 

EQU 

4783H 

48BA 

00330 

CHS 

EQU 

48BAH 

48CB 

00340 

CH13 

EQU 

48CBH 

44A9 

00350 

LO 

EQU 

44A9H 

46CA 

00360 

DIS2 

EQU 

46CAH 

4497 

00370 

DISig 

EQU 

4497H 

4480 

00380 

CR 

EQU 

4480H 

48E9 

00390 

ORG 

48E9H 

48E9 

310043 

00400 

LI 

LD 

SP,4300H 

48EC 

210000 

00410 

LD 

HL,0 

48EF 

228545 

00420 

LD 

<Ni) ,HL 

48F2 

228745 

00430 

LD 

<N2>,HL 

48F5 

228945 

00440 

LD 

<N3) ,HL 

48F8 

AF 

004S0 

XOR 

A 

48F9 

329C40 

00460 

LD 

(409CH) ,A 

48FC 

3E2A 

00470 

LD 

Aj'Jlc' 

4SFE 

CD2A03 

00480 

CALL 

32AH 

4901 

CD6103 

00490 

CALL 

36 IH 

4904 

3SE3 

00500 

JR 

C,Li 

4906 

D7 

00510 

RST 

16 

4907 

F5 

00520 

PUSH 

AF 

4908 

D7 

00530 

RST 

16 

4909 

2B 

00540 

DEC 

HL 

490A 

CD0F43 

00550 

CALL 

HEX 

490D 

ED538545 

00560 

LD 

<Ni) ,DE 

4911 

CD0F43 

00570 

CALL 

HEX 

4914 

ED538745 

00580 

LD 

<N2) ,DE 

4918 

CD0F43 

00590 

CALL 

HEX 

491B 

ED538945 

00600 

LD 

(N3) ,DE 

491F 

222F4A 

00610 

LD 

(N5),HL 

4922 

Fl 

00620 

POP 

AF 

4923 

2i6D4A 

00630 

LD 

HL, TABLE 

4926 

0617 

00640 

LD 

B,23 

4928 

4E 

00650 

L2 

LD 

C, <HL) 

4929 

B9 

00660 

CP 

C 

492A 

2006 

00670 

JR 

NZ,L3 

492C 

23 

00680 

INC 

HL 

492D 

5E 

00690 

LD 

E, (HL) 

492E 

23 

00700 

INC 

HL 

492F 

56 

00710 

LD 

D, <HL> 

4930 

EB 

00720 

EX 

DE,HL 

4931 

E9 

00730 

JP 

<HLJ 

4932 

23 

00740 

L3 

INC 

HL 

4933 

23 

00750 

INC 

HL 

4934 

23 

00760 

INC 

HL 

4935 

lOFl 

00770 

DJN2 

L2 

4937 

iSBO 

00780 

JR 

LI 

4939 

3E01 

00790 

PRINT 

LD 

A,  I 
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493B 

328D45 

ooaoo 

LD 

<FL2),A 

493E 

18A9 

00810 

JR 

Li 

4940 

AF 

00820  CRT 

XOR 

A 

4941 

32SD45 

00830 

LD 

<FL2),A 

4944 

18A3 

00840  EXIT 

JR 

LI 

4946 

CD2537 

00850  ERR2 

CALL 

3725H 

4949 

CD2A30 

00860  ERROR 

CALL 

302AH 

494C 

18F6 

00870 

JR 

EXIT 

494E 

2A2F4A 

00880  SAVE 

LD 

HL, <N5) 

4951 

CD0F43 

00890 

CALL 

HEX 

4954 

7B 

00900 

LD 

A,E 

4955 

F5 

00910 

PUSH 

AF 

4956 

CD1B4A 

00920 

CALL 

ESF 

4959 

Fl 

00930 

POP 

AF 

495A 

CD254A 

00940 

CALL 

FILEN 

495D 

F5 

00950 

PUSH 

AF 

495E 

213F4A 

00960 

LD 

HL,SA2 

4961 

CD752B 

009T0 

CALL 

2B75H 

4964 

CDBA4S 

00980 

CALL 

CHS 

4967 

Fl 

00990 

POP 

AF 

4968 

CDCB48 

01000 

CALL 

CH13 

496B 

CD0C30 

01010 

CALL 

300CH 

496E 

20D9 

01020  SAVl 

JR 

NZ, ERROR 

4970 

21494A 

01030 

LD 

HL,SA3 

4973 

CD752B 

01040 

CALL 

2B75H 

4976 

lecc 

O1050 

JR 

EXIT 

4978 

CD1B4A 

01060  NEW 

CALL 

ESF 

497B 

3A8545 

01070 

LD 

A, (Nl) 

497E 

CD254A 

01080 

CALL 

FILEN 

4981 

F5 

01090 

PUSH 

AF 

4982 

214F4A 

on  00 

LD 

HL,SA4 

4985 

CD752B 

OHIO 

CALL 

2B7SH 

4988 

Fl 

01120 

POP 

AF 

4989 

67 

01130 

LD 

H,A 

498A 

CD5F32 

01140 

CALL 

325FH 

498D 

F5 

01150 

PUSH 

AF 

49SE 

E6B7 

01160 

AND 

0B7H 

4990 

20B7 

01170 

JR 

NZ, ERROR 

4992 

CDAFOF 

01180 

CALL 

OFAFH 

4995 

21594A 

01190 

LD 

HL,SA5 

4998 

CD752B 

01200 

CALL 

2B75H 

499B 

Fl 

01210 

POP 

AF 

499C 

18D0 

01220 

JR 

SAVl 

499E 

CD1B4A 

01230  LOAD 

CALL 

ESF 

49A1 

3Aa545 

01240 

LD 

A, <N1) 

49A4 

CD254A 

01250 

CALL 

FILEN 

49A7 

F5 

01260 

PUSH 

AF 

49Aa 

21624A 

01270 

LD 

HL,SA6 

49AB 

CD752B 

01280 

CALL 

2B75H 

49AE 

Fl 

01290 

POP 

AF 

49AF 

67 

01300 

LD 

H,A 

49B0 

2EFF 

01310 

LD 

L,OFFH 

49B2 

B7 

01320 

OR 

A 

49B3 

2001 

01330 

JR 

NZ,L02 

49B5 

6F 

01340 

LD 

L,A 

49B6 

CD3437 

01350  L02 

CALL 

3734H 

49B9 

CD4936 

01360  L03 

CALL 

3649H 

49BC 

C24649 

01370  ERR3 

JP 

NZ,ERR2 

49BF 

7A 

01380 

LD 

A,D 

49C0 

B7 

01390 

OR 

A 

49C1 

28F6 

01400 

JR 

Z,LD3 

49C3 

FAB949 

01410 

JP 

n,L03 

49C6 

94 

01420 

SUB 

H 

49C7 

A5 

01430 

AND 

L 

49C8 

20EF 

01440 

JR 

NZ,L03 

49CA 

CD0B37 

014S0 

CALL 

370BH 

49CD 

20ED 

01460 

JR 

NZ,ERR3 

160 


49CF 

62 

01470 

LD 

H,D 

49D0 

E5 

01480 

PUSH 

HL 

49D1 

DDEl 

01490 

POP 

IX 

49D3 

228545 

01500 

LD 

(Ni>,HL 

49D6 

CD0B37 

01510 

CALL 

370BH 

49D9 

20E1 

01520 

JR 

NZ,ERR3 

49DB 

62 

01530 

LD 

H,D 

49DC 

E5 

01540 

PUSH 

HL 

49DD 

FDEl 

01550 

POP 

lY 

49DF 

228945 

01560 

LD 

(N3) ,HL 

49E2 

CD0B37 

01570 

CALL 

370BH 

49ES 

20D5 

01580 

JR 

N2,ERR3 

49E7 

62 

01590 

LD 

H,D 

49E8 

E5 

01600 

PUSH 

HL 

49E9 

Dl 

01610 

POP 

DE 

49EA 

228745 

01620 

LD 

<N2),HL 

49ED 

CDA536 

01630 

CALL 

36A5H 

49F0 

20CA 

01640 

JR 

NZ,ERR3 

49F2 

CD2537 

01650 

CALL 

3725H 

49F5 

21494A 

01660 

LD 

HL , SA3 

49F8 

CD752B 

01670 

CALL 

2B75H 

49FB 

CDA944 

01680 

CALL 

LO 

49FE 

IB 

01690 

DEC 

DE 

49FF 

19 

01700 

ADD 

HL,D£ 

4A0O 

228745 

01710 

LD 

<N2> ,HL 

4A03 

2A8S45 

01720 

LD 

HL, <H1) 

4A06 

CDCA46 

01730 

CALL 

DIS2 

4A09 

2A8745 

01740 

LD 

HL, (N2) 

4A0C 

CDCA46 

01750 

CALL 

DIS2 

4A0F 

2A8945 

01760 

LD 

HL, <N3) 

4A12 

CD9744 

01^70 

CALL 

DlS\fi 

4A15 

CDS044 

01780 

CALL 

CR 

4Ai8 

C34449 

01790 

JP 

EXIT 

4A1B 

216C4A 

01800  ESF 

LD 

HL, DRIVE 

4AiE 

36F0 

01810 

LD 

(HL),0F0H 

4A20 

2B 

01820 

DEC 

HL 

4A21 

22B140 

01830 

LD 

<40B1H) ,HL 

4A24 

C9 

01840 

RET 

4A25 

B7 

01850  FILEN 

OR 

A 

4A26 

CA4449 

01860 

JP 

Z,EXIT 

4A29 

FE64 

01870 

CP 

100 

4A2B 

D24449 

01880 

JP 

NC,EXIT 

4A2E 

C9 

01890 

RET 

4A2F 

0000 

01900  N5 

DEFW 

0 

4A31 

46 

01910  SAl 

DEFM 

'FILE  NUMBi 

4A32 

49 

4A33 

4C 

4A34 

45 

4A35 

20 

4A36 

4E 

4A37 

55 

4A3B 

4D 

4A39 

42 

4A3A 

45 

4A3B 

52 

4A3C 

3A 

4A3D 

20 

4A3E 

00 

01920 

NOP 

4A3F 

57 

01930  SA2 

DEFM 

'WRITING,.' 

4A40 

52 

4A41 

49 

4A42 

54 

4A43 

49 

4A44 

4E 

4A45 

47 

4A46 

2E 

4A47 

2E 
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4A48 

00 

01940 

NOP 

4A49 

44 

01950  SA3 

DEFM 

'DONE' 

4A4A 

4F 

4A4B 

4E 

4A4C 

45 

4A4D 

on 

01960 

DEFB 

13 

4A4E 

00 

01970 

NOP 

4A4F 

45 

01980  SA4 

DEFM 

'ERAS INS, 

4AS0 

52 

4A51 

41 

4A52 

53 

4A53 

49 

4A54 

4E 

4AS5 

47 

4A56 

2E 

4A57 

2E 

4AS8 

00 

01990 

NOP 

4A59 

20 

02000  SA5 

DEFM 

'  BYTES. , 

4A5A 

42 

4A5B 

59 

4ASC 

54 

4A5D 

45 

4A5E 

53 

4A5F 

2E 

4A60 

2E 

4A61 

00 

02010 

NOP 

4A62 

52 

02020  SA6 

DEFH 

'READING. 

4A63 

45 

4A64 

4i 

4A65 

44 

4A66 

49 

4A67 

4E 

4A68 

47 

4A69 

2E 

4A6A 

2E 

4A6B 

00 

02030 

NOP 

4A6C 

00 

02040  DRIVE 

NOP 

4A6D 

44 

02050  TABLE 

DEFB 

'D' 

4A6E 

4743 

02060 

DEFUJ 

DISP 

4A70 

47 

02070 

DEFB 

,0. 

4A71 

8343 

02080 

DEFW 

60 

4A73 

45 

02090 

DEFB 

'E'* 

4A74 

8743 

02100 

DEFUJ 

EDIT 

4A7<b 

5A 

02110 

DEFB 

'I' 

4A77 

B243 

02120 

DEFU) 

ZERO 

4A79 

49 

02130 

DEFB 

,  J. 

4A7A 

C443 

02140 

DEFW 

INP 

4A7C 

4F 

02150 

DEFB 

'0^ 

4A7D 

D343 

02160 

DEFW 

OUR 

4A7F 

42 

02170 

DEFB 

'B' 

4A80 

DF43 

02180 

DEFUJ 

MATH 

4A82 

40 

02190 

DEFB 

'a' 

4A83 

E444 

0220O 

DEFW 

BRK 

4A85 

52 

02210 

DEFB 

.p. 

4A86 

2F46 

02220 

DEFW 

READ 

4A88 

50 

02230 

DEFB 

'P' 

4A89 

F046 

02240 

DEFW 

PUNCH 

4ABB 

41 

02250 

DEFB 

'A" 

4A8C 

8347 

02260 

DEFW 

ASC 

4A8E 

46 

02270 

DEFB 

'F=- 

4A8F 

AB47 

02280 

DEFW 

FIND 

4A9i 

48 

02290 

DEFB 

'H' 

4A92 

EA47 

02300 

DEFW 

HUNT 

4A94 

4D 

02310 

DEFB 

'M- 

4A95 

0848 

02320 

DEFW 

MOVE 

4A97 

51 

02330 

DEFB 

'Q' 

4A98 

1348 

02340 

DEFW 

SUM 
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4A9A  S6 

02350 

4A9B  7248 

02360 

4A9D  58 

02370 

4A9E  A74a 

02380 

4AA0  54 

02390 

4AA1  3D48 

02400 

4AA3  4C 

02410 

4AA4  3949 

02420 

4AA6  43 

02430 

4AA7  4049 

02440 

4AA9  21 

02450 

4AAA  7849 

02460 

4AAC  22 

02470 

4AAD  4E49 

02480 

4AAF  23 

02490 

4AB0  9E49 

02500 

4300 

02510 

00000  TOTAL  ERRORS 

SAl 

4A31 

DRIVE 

4A6C 

ERR3 

49BC 

L03 

49B9 

L02 

49B6 

SA6 

4A62 

LOAD 

499E 

SA5 

4A59 

SA4 

4A4F 

NEW 

4978 

SA3 

4A49 

SAVl 

496E 

SA2 

4A3F 

FILEN 

4A25 

ESF 

4A1B 

SAVE 

494E 

ERROR 

4949 

ERR2 

4946 

EXIT 

4944 

CRT 

4940 

PRINT 

4939 

L3 

4932 

L2 

4928 

TABLE 

4A6D 

N5 

4A2F 

LI 

48E9 

CR 

4480 

DISUi 

4497 

DIB2 

46CA 

LO 

44A9 

CHI  3 

48CB 

CHS 

48BA 

ASC 

4783 

READ 

462F 

PUNCH 

46F0 

FIND 

47AB 

HUNT 

47EA 

MOVE 

4808 

SUM 

4813 

TEST 

483D 

VERF 

4872 

EXCH 

48A7 

BRK 

44E4 

MATH 

43DF 

OUP 

43D3 

INP 

43C4 

ZERO 

43B2 

EDIT 

4387 

DEFB 

'V 

DEFW 

VERF 

DEFB 

'X' 

DEFW 

EXCH 

DEFB 

'T' 

DEFUI 

TEST 

DEFB 

'L' 

DEFW 

PRINT 

DEFB 

'C 

DEFW 

CRT 

DEFB 

*  !  ' 

DEFUJ 

NEW 

DEFB 

DEFW 

SAVE 

DEFB 

'#=■ 

DEFW 

LOAD 

END 

4300H 
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GO 

4383 

DISP 

4347 

FL2 

4S8D 

HEX 

430F 

N3 

4589 

N2 

4587 

Nl 

4585 

Listing  10-4  Comments 

100  -  Value  from  previous  part. 

110  -  Value  from  previous  part. 

120  -  Value  from  previous  part. 

130  -  Value  from  previous  part. 

140  -  Value  from  previous  part. 

150  -  Value  from  previous  part. 

160  -  Value  from  previous  part. 

170  -  Value  from  previous  part. 

180  -  Value  from  previous  part. 

190  -  Value  from  previous  part. 

200  -  Value  from  previous  part. 

210  -  Value  from  previous  part. 

220  -  Value  from  previous  part. 

230  -  Value  from  previous  part. 

240  -  Value  from  previous  part. 

250  -  Value  from  previous  part. 

260  -  Value  from  previous  part. 

270  -  Value  from  previous  part. 

280  -  Value  from  previous  part. 

290  -  Value  from  previous  part. 

300  -  Value  from  previous  part. 

310  -  Value  from  previous  part. 

320  -  Value  from  previous  part, 

330  -  Value  from  previous  part. 

340  -  Value  from  previous  part. 

350  -  Value  from  previous  part. 

360  -  Value  from  previous  part. 

370  -  Value  from  previous  part. 

380  -  Value  from  previous  part. 

390  -  Set  the  starting  address  to  the  end  of  the  last  part. 

400  -  Set  the  stack  pointer. 

410  -  Load  register  pair  HL  with  zero. 

420  -  Save  the  value  in  register  pair  HL  as  the  first  value  inpu 

430  -  Save  the  value  in  register  pair  HL  as  the  second  value  inpu 

440  -  Save  the  value  in  register  pair  HL  as  the  third  value  input 

450  -  Zero  register  A. 
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460  -  Set  the  current  output  device  to  the  video  display. 

470  -  Load  register  A  with  a  *  character. 

480  -  Go  display  the  character  in  register  A. 

490  -  Go  get  the  input  from  the  keyboard. 

500  -  Jump  if  the  BREAK  key  was  pressed, 

510  -  Bump  the  input  buffer  pointer  in  register  pair  HL  till  it 
points  to  the  first  character. 

520  -  Save  the  character  at  the  location  ofthe  input  buffer  pointer 
in  register  A  on  the  stack. 

530  -  Bump  the  input  buffer  pointer  in  register  pair  HL  till  it 
points  to  the  next  character. 

540  -  Decrement  the  input  buffer  pointer  in  register  pair  HL. 

550  -  Go  evaluate  the  first  input  value. 

560  -  Save  the  value  in  register  pair  DE  as  the  first  value  input. 

570  -  Go  evaluate  the  second  input  value. 

580  -  Save  the  value  in  register  pair  DE  as  the  second  value  input. 

590  -  Go  evaluate  the  third  value  input. 

600  -  Save  the  value  in  register  pair  DE  as  the  third  value  input. 

610  -  Save  the  input  buffer  pointer  in  register  pair  HL. 

620  -  Get  the  command  from  the  stack  and  put  it  in  register  A. 

630  -  Load  register  pair  HL  wi±  the  starting  address  of  the 
command  jump  table. 

640  -  Load  register  B  with  the  nimiber  of  commands  in  the  jump 
table. 

650  -  Load  register  C  with  the  character  at  the  location  of  the 
command  jump  table  pointer  in  register  pair  HL. 

660  -  Check  to  see  if  the  command  in  register  C  matches  the 
command  in  register  A. 

670  -  Jump  if  the  command  in  register  C  doesn't  match  the  com- 
mand in  register  A. 

680  -  Bump  the  command  jump  table  pointer  in  register  pair  HL. 

690  -  Load  register  E  with  the  LSB  of  the  command's  jump  ad- 
dress. 

700  -  Bump  the  commandjump  table  pointer  in  register  pair  HL. 

710  -  Load  register  D  with  the  MSB  of  the  command's  jump 
address. 

720  -  Load  register  pair  HL  with  the  jump  address  in  register  pair 
DE. 

730  -  Jump  to  the  command's  jump  address  in  register  pair  HL. 

740  -  Bump  the  commandjump  table  pointer  in  register  pair  HL. 

750  -  Bump  the  command  jump  table  pointer  in  register  pair  HL. 

760  -  Bump  the  command  jump  table  pointer  in  register  pair  HL. 
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770  -  Loop  if  all  of  the  commands  in  the  jump  table  haven't  been 

checked. 
780  -  Jump  if  the  command  input  isn't  a  legal  command. 
790  -  Load  register  A  with  the  printer  device  type  code. 
800  -  Save  the  printer  device  type  code  in  register  A. 
810  -  Jump. 

820  -  Load  register  A  with  the  video  device  type  code. 
830  -  Save  the  video  device  type  code  in  register  A. 
840  -  Jump. 

850  -  Go  turn  off  the  stringy  floppy. 
860  -  Go  display  the  stringy  floppy  error  message,  if  any. 
870  -  Jump. 

880  -  Load  register  pair  HL  with  the  input  buffer  pointer. 
890  -  Go  evaluate  the  fourth  value  input. 
900  -  Load  register  A  with  the  file  number  in  register  E. 
910  -  Save  the  file  number  in  register  A  on  the  stack. 
920  -  Set  the  current  stringy  floppy  drive  number  to  drive  0. 
930  -  Get  the  file  number  from  the  stack  and  put  it  in  register  A. 
940  -  Go  check  to  see  if  this  is  a  legitimate  file  number  in  register 

A. 
950  -  Save  the  file  number  in  register  A  on  the  stack. 
960  -  Load  register  pair  HL  with  the  starting  address  of  the 

message  to  be  displayed. 
970  -  Go  display  the  message. 
980  -  Go  figure  the  length  of  the  program  to  be  saved  and  return 

with  it  in  register  pair  BC. 
990  -  Get  the  file  number  from  the  stack  and  put  it  in  register  A. 
1000  -  Go  get  the  starting  address  for  the  program  in  register  pair 

HL  and  the  execution  address  for  the  program  in  register 

pair  DE. 
1010  -  Go  save  the  program. 
1020  -  Jump  if  a  stringy  floppy  error  occurred. 
1030  -  Load  register  pair  HL  with  the  starting  address  for  the 

message  to  be  displayed. 
1040  -  Go  display  the  message. 
1050  -  Jump. 

1060  -  Go  set  the  current  stringy  floppy  drive  number  to  drive  0. 
1070  -  Load  register  A  with  the  file  number  for  the  start  of  the 

wafer  certification. 
1080  -  Go  check  to  see  if  the  file  number  in  register  A  is  ia  legiti- 
mate file  number. 
1090  -  Save  the  file  number  in  register  A  on  the  stack. 
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1100  -  Load  register  pair  HL  with  the  starting  address  of  the 
message  to  be  displayed. 

1110  -  Go  display  the  message. 

1120  -  Get  the  file  number  from  the  stack  and  put  it  in  register  A. 

1130  -  Load  register  H  with  the  file  number  in  register  A. 

1140  -  Go  certify  the  wafer. 

1150  -  Save  the  flags  on  the  stack, 

1160  -  Check  to  see  if  an  error  occurred. 

1170  -  Jump  if  there  was  an  error. 

1180  -  Go  display  the  number  of  bytes  certified. 

1190  -  Load  register  pair  HL  with  the  starting  address  for  the 
message  to  be  displayed. 

1200  -  Go  display  the  message. 

1210  -  Get  the  flags  from  the  stack. 

1220  -  Jump. 

1230  -  Go  set  the  current  stringy  floppy  drive  number  to  drive  0. 

1240  -  Load  register  A  with  the  file  number  to  be  loaded. 

1250  -  Go  check  to  see  if  the  file  number  in  register  A  is  a  legiti- 
mate file  number. 

1260  -  Save  the  file  number  in  register  A  on  the  stack. 

1270  -  Load  register  pair  HL  with  the  starting  address  of  the 
message  to  be  displayed, 

1280  -  Go  display  the  message. 

1290  -  Get  the  file  number  from  the  stack  and  put  it  in  register  A, 

1300  -  Load  register  H  with  the  file  number  in  register  A. 

1310  -  Load  register  L  with  a  -1. 

1320  -  Check  to  see  if  the  file  number  in  register  A  is  equal  to  zero. 

1330  -  Jump  if  the  file  number  in  register  A  isn't  equal  to  zero. 

1340  -  Zero  register  L. 

1350  -  Go  turn  on  the  stringy  floppy. 

1360  -  Go  position  the  wafer  to  the  next  file. 

1370  -  Jump  if  an  error  occurred. 

1380  -  Load  register  A  with  the  value  in  register  D. 

1390  -  Set  the  flags. 

1400  -  Jump  if  this  isn't  the  start  of  a  file. 

1410  -  Jump  if  this  isn't  the  start  of  a  file. 

1420  -  Subtract  the  file  number  in  register  H  from  the  file  number 
read  from  the  stringy  floppy  in  register  A. 

1430  -  Mask  the  adjusted  file  number  in  register  A  with  the  value 
in  register  L. 

1440  -  If  this  isn't  the  correct  file  number  then  jump. 

1450  -  Go  read  the  starting  address  from  the  stringy  floppy  and 
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return  with  the  LSB  of  the  starting  address  in  register  L  and 
the  MSB  of  the  starting  address  in  register  D. 

1460  -  Jump  if  a  stringy  floppy  error  occurred. 

1470  -  Load  register  H  with  the  MSB  of  the  starting  address  in 
register  D. 

1480  -  Save  the  starting  address  in  register  pair  HL  on  the  stack. 

1490  -  Get  the  starting  address  from  the  stack  and  put  it  in  iregister 
pair  IX. 

1500  -  Save  the  starting  address  in  register  pair  HL. 

1510  -  Go  read  the  execution  address  from  the  stringy  floppy  and 
return  with  the  LSB  of  the  execution  address  in  register  L 
and  the  MSB  of  the  execution  address  in  register  D. 

1520  -  Jump  if  a  stringy  floppy  error  occurred. 

1530  -  Load  register  H  with  the  MSB  of  the  execution  address  in 
register  D. 

1540  -  Save  the  execution  address  in  register  pair  HL  on  the  stack. 

1550  -  Get  the  execution  address  from  the  stack  and  put  it  in 
register  pair  lY. 

1560  -  Save  the  execution  address  in  register  pair  HL 

1570  -  Go  read  the  length  of  the  program  from  the  stringy  floppy 
and  return  with  the  LSB  of  the  program's  length  in  register 
L  and  the  MSB  of  the  program's  length  in  register  D. 

1580  -  Jump  if  a  stringy  floppy  error  occurred. 

1590  -  Load  register  H  with  the  MSB  of  the  program's  length  in 
register  D. 

1600  -  Get  the  program's  length  from  the  stack  and  put  it  in  regis- 
ter pair  DE, 

1620  -  Save  the  program's  length  in  register  pair  HL. 

1630  -  Go  read  the  program  from  the  stringy  floppy. 

1640  -  Jump  if  a  stringy  floppy  error  occurred. 

1650  -  Go  turn  off  the  stringy  floppy. 

1660  -  Load  register  pair  HL  with  the  starting  address  of  the 
message  to  be  displayed. 

1670  -  Go  display  the  message. 

1680  -  Go  load  register  pair  HL  with  the  starting  address  and 
register  pair  DE  with  the  program's  length. 

1690  -  Decrement  the  program's  length  in  register  pair  DE. 

1700  -  Add  the  program's  length  in  register  pair  DE  to  the  pro- 
gram's starting  address  in  register  pair  HL. 

1710  -  Save  the  program's  ending  address  in  register  pair  HL. 

1720  -  Load  register  pair  HL  with  the  program's  starting  address. 
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1730  -  Go  display  the  program's  starting  address  in  register  pair 

HL 
1740  -  Load  register  pair  HL  with  the  program's  ending  address. 
1750  -  Go  display  the  program's  ending  address  in  register  pair 

HL. 
1760  -  Load  register  pair  HL  with  the  program's  execution  ad- 
dress. 
1770  -  Go  display  the  program's  execution  address  in  register  pair 

HL. 
1780  -  Go  display  a  carriage  return. 
1790  -  Jump. 
1800  -  Load  register  pair  HL  with  the  current  stringy  floppy  drive 

number  storage  location. 
1810  -  Set  the  current  stringy  floppy  drive  number  to  drive  0. 
1820  -  Decrement  the  memory  pointer  in  register  pair  HL. 
1830  -  Save  the  memory  pointer  in  register  pair  HL  as  the  current 

BASIC  memory  size  pointer. 
1840  -  Return. 

1850  -  Check  to  see  if  the  file  number  in  register  A  is  equal  to  zero. 
1860  -  Jump  if  the  file  number  in  register  A  is  equal  to  zero. 
1870  -  Check  to  see  if  the  file  number  in  register  A  is  greater  than 

99. 
1880  -  Jump  if  the  file  number  in  register  A  is  greater  than  99. 
1890  -  Return. 

1900  -  The  current  input  buffer  pointer  is  stored  here. 
1910  -  Message  storage  location. 
1920  -  Message  terminator. 
1930  -  The  WRITING  message  is  stored  here. 
1940  -  The  WRITING  message  terminator  is  stored  here. 
1950  -  The  DONE  message  is  stored  here. 
1960  -  This  will  display  a  carriage  return  as  part  of  the  DONE 

message. 
1970  -  The  DONE  message  terminator. 
1980  -  The  ERASING  message  is  stored  here. 
1990  -  The  ERASING  message  terminator  is  stored  here. 
2000  -  The  BYTES  message  is  stored  here. 
2010  -  The  BYTES  message  terminator  is  stored  here. 
2020  -  The  READING  message  is  stored  here. 
2030  -  The  READING  message  terminator  is  stored  here. 
2040  -  The  current  stringy  floppy  drive  number  is  stored  here. 
2050  -  The  D  command  character  is  stored  here. 
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2060  -  The  D  command  jump  address  is  stored  here. 
2070  -  The  G  command  character  is  stored  here. 
2080  -  The  G  command  jump  address  is  stored  here. 
2090  -  The  E  command  character  is  stored  here. 
2100  -  The  E  command  jump  address  is  stored  here. 
2110  -  The  Z  command  character  is  stored  here. 
2120  -  The  Z  command  jump  address  is  stored  here. 
2130  -  The  I  command  character  is  stored  here. 
2140  -  The  I  command  jump  address  is  stored  here. 
2150  -  The  0  command  character  is  stored  here. 
2160  -  The  0  command  jump  address  is  stored  here. 
2170  -  The  B  command  character  is  stored  here. 
2180  -  The  B  command  jump  address  is  stored  here. 
2190  -  The  @  command  character  is  stored  here. 
2200  -  The  @  command  jump  address  is  stored  here. 
2210  -  The  R  command  character  is  stored  here. 
2220  -  The  R  command  jump  address  is  stored  here. 
2230  -  The  P  command  character  is  stored  here. 
2240  -  The  P  command  jump  address  is  stored  here. 
2250  -  The  A  command  character  is  stored  here. 
2260  -  The  A  command  jump  address  is  stored  here. 
2270  -  The  F  command  character  is  stored  here, 
2280  -  The  F  command  jump  address  is  stored  here, 
2290  -  The  H  command  character  is  stored  here. 
2300  -  The  H  command  jump  address  is  stored  here, 
2310  -  The  M  command  character  is  stored  here. 
2320  -  The  M  command  jump  address  is  stored  here. 
2330  -  The  Q  command  character  is  stored  here. 
2340  -  The  Q  command  jump  address  is  stored  here. 
2350  -  The  V  command  character  is  stored  here. 
2360  -  The  V  command  jump  address  is  stored  here. 
2370  -  The  X  command  character  is  stored  here. 
2380  -  The  X  command  jump  address  is  stored  here. 
2390  -  The  T  command  character  is  stored  here. 
2400  -  The  T  command  jump  address  is  stored  here. 
2410  -  The  L  command  character  is  stored  here. 
2420  -  The  L  command  jump  address  is  stored  here. 
2430  -  The  C  command  character  is  stored  here. 
2440  -  The  C  command  jump  address  is  stored  here. 
2450  -  The  !  command  character  is  stored  here. 
2460  -  The  !  command  jump  address  is  stored  here. 
2470  -  The  "  command  character  is  stored  here. 
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2480  -  The  "  command  jump  address  is  stored  here. 
2490  -  The  #  command  character  is  stored  here. 
2500  -  The  #  command  jump  address  is  stored  here. 
2510  -  End  of  the  program. 


Listing  10-5 

4AB2 

00100 

ORG 

4AB2H 

4AB2 

0000 

00110  MEM 

0EFW 

0 

4AB4 

21444C 

00120  ST 

LD 

HL,MSi 

4AB7 

CD752B 

00130 

CALL 

2B75H 

4ABA 

CD4900 

00140  Li 

CALL 

49H 

4ABD 

FE4E 

00150 

CP 

"N' 

4ABF 

CA0043 

00160 

JP 

Z,4300H 

4AC2 

FE59 

00170 

CP 

>  Y' 

4AC4 

20F4 

0O180 

JR 

NZ,L1 

4AC6 

2iBC4C 

00190  L2 

LD 

HL,MS2 

4AC9 

CD752B 

00200 

CALL 

2B75H 

4ACC 

CD6103 

00210 

CALL 

36iH 

4ACF 

38F5 

00220 

JR 

C,L2 

4AD1 

D7 

00230 

RST 

16 

4AD2 

2aF2 

00240 

JR 

Z,L2 

4AD4 

2B 

00250 

DEC 

HL 

4AD5 

CD0F43 

00260 

CALL 

430FH 

4AD8 

21B107 

00270 

LD 

HL, 1969 

4ADB 

19 

00280 

ADD 

HL,DE 

4ADC 

22B24A 

00290 

LD 

<MEM>  jHL 

4ADF 

11B14A 

00300 

LD 

DE,4AB1H 

4AE2 

AF 

00310 

XOR 

A 

4AE3 

ED52 

00320 

SBC 

HL,DE 

4AE5 

223E4D 

00330 

LD 

<M1) ,HL 

4AES 

210043 

00340 

LD 

HL,4300H 

4AEB 

7E 

00350  Rl 

LD 

A,  <HL) 

4AEC 

hE^h 

00360 

CP 

3FH 

4AEE 

3832 

00370 

JR 

C,R2 

4AF0 

FEC2 

00380 

CP 

0C2H 

4AF2 

D2774B 

00390 

JP 

NC,R3 

4AF5 

23 

00400  R4 

INC 

HL 

4AF6 

118545 

00410 

LD 

DE,4585H 

4AF9 

DF 

00420 

RST 

i8H 

4AFA 

CC174C 

00430 

CALL 

Z,IN1 

4AFD 

110246 

00440 

LD 

DE,46D2H 

4B00 

DF 

00450 

RST 

18H 

4B01 

CCiD4C 

00460 

CALL 

2,IN2 

4B04 

117D47 

00470 

LD 

DE,477DH 

4B07 

DF 

00480 

RST 

IBH 

4  BOS 

CC2i4C 

00490 

CALL 

2,IN3 

4B0B 

113248 

00500 

LD 

DE,4832H 

4B0E 

DF 

00510 

RST 

18H 

4B0F 

CC254C 

00520 

CALL 

2,IN4 

4B12 

li2F4A 

00530 

LD 

DE,4A2FH 

4B15 

DF 

00540 

P3T 

IBH 

4B16 

CC294C 

00550 

CALL 

Z,IN5 

4Bi9 

li6D4A 

00560 

LD 

DE,4A6DH 

4B1C 

DF 

00570 

RST 

i8H 

4B1D 

CA2D4C 

00580 

JP 

2, REND 

4B20 

18C9 

00590 

JR 

Rl 

4B22 

F5 

00600  R2 

PUSH 

AF 

4B23 

E630 

00610 

AND 

30H 

4B25 

B7 

00620 

OR 

A 

4B26 

2824 

00630 

JR 

Z,ZERO 

4B28 

FEIO 

00640 

CP 

lOH 

4B2A 

2823 

00650 

JR 

Z,TEN 

4B2C 

Fl 

00660 

POP 

AF 

171 


4B2D  E60F 

00670 

AND 

OFH 

4B2F  FE02 

00680 

CP 

2 

4B31  2824 

00690 

JR 

Z,TR 

4B33  FEOA 

00700 

CF 

OAH 

4B3S  2820 

00710 

JR 

Z,TR 

4B37  B7 

00720  TENl 

OR 

A 

4B3a  281 A 

00730 

JIR 

2.TW 

4B3A  FE08 

00740 

CP 

8 

4B3C  2816 

00750 

JR 

Z,TW 

4B3E  FEOl 

00760  ZEROl 

CP 

i 

4B40  2815 

00770 

JR 

Z,TR 

4B42  FE06 

00780 

CP 

6 

4B44  2aOE 

00790 

JR 

Z,TW 

4B46  FEOE 

00800 

CP 

OEM 

4B48  280A 

00810 

JR 

Z,TW 

4B4A  iaA9 

00820 

JR 

R4 

4B4C  Fl 

00830  ZERO 

POP 

AF 

4B4D  ISEF 

00840 

JR 

ZEROl 

4B4F  Fi 

00850  TEN 

POP 

AF 

4B50  E60F 

00860 

AND 

OFH 

4B52  18E3 

00870 

JR 

TENl 

4B54  23 

00880  TU) 

INC 

HL 

4B55  189E 

00890  TUJl 

JR 

R4 

4BS7  23 

00900  TR 

INC 

HL 

4B38  E5 

00910 

PUSH 

HL 

4B59  5E 

00920 

LD 

E, <HL) 

4B5A  23 

00930 

INC 

HL 

4B5B  56 

00940 

LD 

D, (HL) 

4B5C  EB 

00950 

EK 

DE,HL 

4B5D  110043 

00960 

LD 

DE,4300H 

4B60  DP 

00970 

RST 

18H 

4B61  EB 

00980 

EX 

DE,HL 

4B62  380D 

00990 

JR 

C,TRR 

4B64  EB 

01000 

EX 

DE,HL 

4B65  11B24A 

01010 

LD 

DE,4AB2H 

4B68  DF 

01020 

RST 

ISH 

4B69  EB 

01030 

EX 

DE,HL 

4B6A  3005 

01040 

JR 

NC.TRR 

4B6C  2A3E4D 

01050 

LD 

HL, (Hi) 

4B6F  19 

01060 

ADD 

HL,DE 

4B70  EB 

01070 

EX 

DEjHL 

4B71  El 

01080  TRR 

POP 

HL 

4B72  73 

01090 

LD 

(HL),E 

4B73  23 

01100 

INC 

HL 

4B74  72 

OHIO 

LD 

(HL>,D 

4B75  18DE 

01120 

JR 

TWl 

4B77  D6C0 

01130  R3 

SUB 

OCOH 

4B79  F5 

01140 

PUSH 

AF 

4B7A  E630 

01150 

AND 

30H 

4B7C  B7 

01160 

OR 

A 

4B7D  2827 

01170 

JR 

Z,ZER3 

4B7F  FEIO 

01180 

CP 

lOH 

4B81  2816 

01190 

JR 

Z,ONE 

4B83  FE20 

01200 

CP 

20H 

4685  2809 

01210 

JR 

Z,TU10 

4B87  Fl 

01220 

POP 

AF 

4BS8  E60F 

01230 

AND 

OFH 

4B8A  FEOD 

01240 

CP 

ODH 

4BaC  2B3F 

01250 

JR 

Z,DD 

4B8E  1823 

01260 

JR 

TRE 

4B90  Fl 

01270  TWO 

POP 

AF 

4B91  E60F 

01280 

AND 

OFH 

4B93  FEOD 

01290 

CP 

ODH 

4B95  2864 

01300 

JR 

Z,ED 

4B97  ISIA 

01310 

JR 

TRE 

4B99  Fi 

01320  ONE 

POP 

AF 

4B9A  E60F 

01330 

AND 

OFH 

4B9C  FEOD 

01340 

CP 

ODH 
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4B9E 

282D 

01350 

JR 

Z,DD 

4BA0 

FE03 

01360 

CP 

3 

4BA2 

28B0 

01370 

JR 

Z,TW 

4BA4 

1809 

01380 

JR 

ONEl 

4EA6 

Fl 

01390  ZER3 

POF 

AF 

4BA7 

FEOD 

01400 

CP 

ODH 

4BA9 

28AC 

01410 

JR 

Z,TR 

4BAB 

FE03 

01420 

CP 

3 

4BAD 

28A8 

01430 

JR 

Z,TR 

4  BAR 

FEOB 

01440  ONEl 

CP 

OBH 

4BB1 

28  A 1 

01450 

JR 

Z,TW 

4BB3 

FE02 

01460  TRE 

CP 

2 

4BB5 

28A0 

01470 

JR 

Z,TR 

4BB7 

FE04 

01480 

CP 

4 

4BB9 

289C 

01490 

JR 

Z,TR 

4BBB 

FEO<b 

01500 

CP 

6 

4B&D 

2895 

01510 

JR 

Z,TW 

4BBF 

FEOA 

01520 

CP 

OAH 

4BC1 

2894 

01530 

JR 

Z,TR 

4BC3 

FEOC 

01540 

CP 

OCH 

4BC5 

2890 

01550 

JR 

Z,TR 

4BC7 

FEOH 

01560 

CP 

OEH 

4BC9 

2889 

01570 

JR 

Z,TW 

4BCB 

1888 

01580  TW2 

JR 

TWl 

4BCD 

23 

01590  DD 

INC 

HL 

4BCE 

7E 

01600 

LD 

A,  <HL) 

4BCF 

FE21 

01610 

CP 

21H 

4BD1 

3882 

01620 

JR 

CTUJl 

4BD3 

2882 

01630  TR2 

JR 

Z,TR 

4BD5 

FE22 

01640 

CP 

22H 

4BD7 

28FA 

0165P 

JR 

Z,TR2 

4BD9 

FE2A 

01660 

CP 

2AH 

4BDB 

28F6 

01670 

JR 

Z,TR2 

4BDD 

FE34 

01680 

CP 

34H 

4BDF 

2814 

01690 

JR 

2,  DDl 

4BEi 

FE35 

01700 

CP 

35H 

4BE3 

2810 

01710 

JR 

ZjDDl 

4BE5 

\-LSh 

01720 

CP 

36H 

4BE7 

2B0F 

01730 

JR 

Z,DD2 

4BE9 

FE46 

01740 

CP 

46H 

4BEB 

3aDE 

01750 

JR 

C,TW2 

4  BED 

FECB 

01760 

CP 

OCBH 

4BEF 

3804 

01770 

JR 

C,DD1 

4BFi 

2805 

01780 

JR 

Z,DD2 

4BF3 

18D6 

01790 

JR 

TUI2 

4BF5 

23 

01800  DDl 

INC 

HL 

4BF6 

18D3 

01810 

JR 

TW2 

4BF8 

23 

01820  DD2 

INC 

HL 

4BF9 

i8FA 

01830 

JR 

DDl 

4BFB 

23 

01840  ED 

INC 

HL 

4BFC 

7E 

01850 

LD 

A,  <HL) 

4BFD 

FE43 

01860 

CP 

43H 

4BFF 

2802 

01870 

JR 

Z,TR2 

4C01 

FE4B 

01880 

CP 

4BH 

4C03 

28CE 

01890 

JR 

Z,TR2 

4C0S 

FE53 

01900 

CP 

53H 

4C07 

28CA 

01910 

JR 

2,TR2 

4C09 

FESB 

01920 

CP 

5BH 

4C0B 

28C6 

01930 

JR 

2,TR2 

4C0D 

FE73 

01940 

CP 

73H 

4C0F 

28C2 

01950 

JR 

2,TR2 

4C11 

FE7B 

01960 

CP 

7BH 

4Ci3 

28BE 

01970 

JR 

Z,TR2 

4C15 

i8B4 

01980 

JR 

TW2 

4C17 

068C 

01990  INI 

LD 

B,140 

4Ci9 

23 

02000  11 

INC 

HL 

4CiA 

lOFD 

02010 

DJNZ 

XI 
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4CiC 

C9 

02020 

RET 

4C1D 

061E 

02030 

IN2 

LD 

B,30 

4C1F 

18F8 

02040 

JR 

n 

4C21 

0606 

02050 

IN3 

LD 

B.6 

4C23 

1SF4 

02060 

JR 

11 

4C25 

060B 

02070 

IN4 

LD 

B,ll 

4C27 

18F0 

02080 

JR 

11 

4C29 

063E 

02090 

INS 

LD 

B,62 

4C2B 

18EC 

02100 

JR 

XI 

4C2D 

2B 

02110 

REND 

DEC 

HL 

4C2E 

0617 

02120' 

LD 

B,23 

4C30 

23 

02130 

REl 

INC 

HL 

4C31 

23 

02140 

INC 

HL 

4C32 

E5 

02150 

PUSH 

HL 

4C33 

5E 

02160 

LD 

E, (HL) 

4C34 

23 

02170 

INC 

HL 

4C35 

S6 

02 1 80 

LD 

D, (HL) 

4C36 

2A3E4D 

02190 

LD 

HL, (Mi) 

4C3^ 

19 

02200 

ADD 

HL,DE 

4C3A 

EB 

02210 

EX 

DE,HL 

4C3B 

El 

02220 

POP 

HL 

4C3C 

73 

02230 

LD 

<HL>,E 

4C3D 

23 

02240 

INC 

HL 

4C3E 

72 

02250 

LD 

(HL>,D 

4C3F 

lOEF 

02260 

DJNZ 

REl 

4C41 

C3F142 

02270 

JP 

42F1H 

4C44 

iC 

02280 

MSI 

DEFB 

ICH 

4C4S 

IF 

02290 

DEFB 

IFH 

4C46 

53 

02300 

DEFn 

'SWAT  V2.0' 

4C47 

57 

4C4S 

41 

4C49 

54 

4C4A 

20 

4C4B 

56 

4C4C 

32 

4C4D 

2E 

4C4E 

30 

4C4F 

OD 

02310 

DEFB 

13 

4C50 

41 

02320 

DEFH 

^A  Z-80  SYSTEM  HON I 

4C51 

20 

4C52 

5A 

4C53 

2D 

4C54 

38 

4C55 

30 

4C56 

20 

4C57 

53 

4058 

59 

4C59 

53 

4C5A 

54 

4C5B 

45 

4C5C 

4D 

4C5D 

20 

4C5E 

4D 

4C5F 

4F 

4C60 

4E 

4C62 

49 

4C62 

54 

4C63 

4F 

4C64 

52 

4C65 

OD 

02330 

DEFB 

13 

4C66 

42 

02340 

DEFM 

'BY  MARK  D.  GOODWIN 

4C67 

59 

4C6a 

20 

4C69 

4D 

4C6A 

41 

4Ci^B 

52 

4C6C 

4B 

4C6D 

20 
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4C6E  44 

4C6F  2E 

4C70  20 

4C71  47 

4C72  4F 

4C73  4F 

4C74  44 

4C75  57 

4C76  49 

4C77  4E 

4C78  OD 

02350 

DEFB 

4C79  4D 

02360 

DEFH 

4C7A  4F 

4C7B  4E 

4C7C  49 

4C7D  54 

4C7E  4F 

4C7F  52 

4C80  20 

4C8X  52 

4082  45 

4083  53 

4C84  49 

4C85  44 

4C86  45 

4C87  53 

4C88  20 

4C89  41 

4C8A  54 

4C8B  3A 

4C8C  20 

4C8D  34 

4C8E  33 

4C8F  30 

4C90  30 

4C91  48 

4C92  20 

4C93  54 

4C94  4F 

4C95  20 

4C96  34 

4C97  41 

4C98  42 

4C99  31 

4C9A  48 

4C9B  OD 

02370 

DEFB 

4C9C  44 

02380 

DEFH 

4C9D  4F 

4C9E  20 

4C9F  59 

4CA0  4F 

4CA1  55 

4CA2  20 

4CA3  57 

4CA4  49 

4CA5  53 

4CA6  48 

4CA7  20 

4CA8  54 

4CA9  4F 

4CAA  20 

4CAB  52 

4CAC  45 

4CAD  AC 

4CAE  4F 

4CAF  43 

'HONITQR  RESIDES  AT: 
4300H  TO  4AB1H' 


13 

'DO  YOU  WISH  TO  RELOCATE  (Y/N)-?' 
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4CB0  41 
4CB1  54 
4CB2  4S 
4CB3  20 
4CB4  28 
4CB5  59 
4CB6  2F 
4CB7  4E 
4CBa  29 
4CB9  3F 
4CBA  OD 
4CBB  00 
4CBC  OD 
4CBD  53 
4CBE  55 
4CBF  47 
4CC0  47 
4CC1  45 
4CC2  53 
4CC3  54 
4CC4  45 
4CC5  44 
4CC6  20 
4CC7  52 
4CC8  45 
4CC9  4C 
4CCA  4F 
4CCB  43 
4CCC  41 
4CCD  54 
4CCE  49 
4CCF  4F 
4CD0  4£ 
4CD1  20 
4CD2  50 
4CD3  4F 
4CD4  49 
4CD5  4E 
4CD6  54 
4CD7  53 
4CD8  3A 
4CD9  OD 
4CDA  54 
4CDB  4F 
4CDC  50 
4CDD  20 
4CDE  4F 
4CDF  46 
4CE0  20 
4CE1  31 
4CE2  36 
4CE3  4B 
4CE4  20 
4CE5  4D 
4CE6  45 
4CE7  4D 
4CE8  4F 
4CE9  52 
4CEA  59 
4CEB  20 
4CEC  2D 
4CED  20 
4CEE  37 
4CEF  38 
4CF0  34 
4CF1  45 
4CF2  48 


02390 
02400 
02410  MS2 
02420 


DEFB 
NOP 
DEFB 
DEFM 


13 

'SUGGESTED  RELOCATION  FOINTSs ' 


02430 
02440 


DEFB 
DEFM 


13 

'TOP  OF  i6K  MEMORY  ~  784EH' 
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4CF3 
4CF4 
4CF5 
4CF6 
4CF7 
4CF8 
4€F9 
4CFA 
4CFB 
4CFC 
4CFD 
4CFE 
4CFF 
4D00 
4D01 
4D02 
4D03 
4D04 
4D0S 
4D06 
4D07 
4D08 
4D09 
4D0A 
4  DOB 
4D0C 
4D0D 
4D0E 
4D0F 
4D10 
4D11 
4D12 
4D13 
4D14 
4D15 
4D16 
4Di7 
4D18 
4D19 
4D1A 
4D1B 
4D1C 
4DiD 
4DiE 
4D1F 
4D20 
4D21 
4D22 
4D23 
4D24 
4D25 
4D26 
4D27 
4D29 
4D2A 
4D2B 
4D2C 
4D2D 
4D2E 
4D2F 
4D30 
4D31 
4D32 
4D33 
4D34 
4D35 
4D36 


CD 

54 

4F 

50 

20 

4F 

46 

20 

33 

32 

4B 

20 

4D 

45 

40 

4F 

52 

59 

20 

2D 

20 

42 

38 

34 

45 

48 

00 

54 

4F 

50 

20 

4F 

46 

20 

34 

38 

4B 

20 

4D 

45 

40 

4F 

52 

59 

20 

2D 

20 

46 

38 

34 

45 

48 

ODOD 

52 

45 

4C 

4F 

43 

41 

54 

49 

4F 

AE 

20 

41 

44 

44 


02450 
02460 


DEFB 
DEFn 


13 

'TOP  OF  32K  MEMORY  -  B84EH' 


02470 
02480 


DEFB 
OEFM 


'TOP  OF  48K  MEMORY  -  F84EH' 


02490 
02500 


DEFW 
DEFM 


OODODH 

'RELOCATION  ADDRESS: 
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4D37  52 

4038  45 

4D39  53 

4D3A  53 

4D3B  3A 

4D3C  20 

4D3D  00 

02510 

NOP 

4D3E  0000      02S20  ni 

DEFW 

0 

4AB4 

02530 

END 

ST 

00000  TOTAL  ERRORS 

REl 

4C30 

U 

4C19 

DD2 

4BFS 

DDI 

4BF5 

TR2 

4BD3 

TW2 

4BCB 

ONEl 

4BAF 

ED 

4BFB 

TRE 

4BB3 

DD 

4BCD 

TWO 

4B90 

ONE 

4B99 

ZER3 

4BA6 

TRR 

4B71 

TWl 

4B55 

ZEROl 

4B3E 

TW 

4B54 

TENl 

4B37 

TR 

4B57 

TEN 

4B4F 

ZERO 

4B4C 

REND 

4C2D 

INS 

4C29 

IN4 

4C25 

IN3 

4C21 

IN2 

4CiD 

INI 

4Ci7 

R4 

4AFS 

R3 

4B77 

R2 

4B22 

Rl 

4AEB 

Mi 

4D3E 

MS2 

4CBC 

L2 

4AC6 

Li 

4ABA 

MSi 

4C44 

BT 

4AB4 

MEM 

4AB2 

Listing  10-5  Comments 

100  -  Set  the  starting  address  for  this  part  to  the  end  of  the 

monitor  program. 
110  -  The  relocation  address  will  be  stored  here. 
120  -  Load  register  pair  HL  with  the  starting  address  of  the 

message  to  be  displayed. 
130  -  Go  display  the  message. 
140  -  Go  wait  till  a  key  is  pressed. 
150  -  Check  to  see  if  the  key  pressed  was  an  N. 
160  -  Jump  if  the  key  pressed  was  an  N. 
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170  -  Check  to  see  if  the  key  pressed  was  a  Y. 

180  -  Jump  if  the  key  pressed  wasn't  a  Y. 

190  -  Load  register  pair  HL  with  the  starting  address  of  the 

message  to  be  displayed. 
200  -  Go  display  the  message. 
210  -  Go  get  the  keyboard  input. 
220  -  Jump  if  the  BREAK  key  was  pressed. 
230  -  Bump  the  input  buffer  pointer  in  register  pair  HL  till  it 

points  to  the  first  character, 
240  -  Jump  if  there  wasn't  any  keyboard  input. 
250  -  Decrement  the  input  buffer  pointer  in  register  pair  HL. 
260  -  Go  convert  the  hex  input  to  binary  and  return  with  the  16-bit 

value  in  register  pair  DE. 
270  -  Load  register  pair  HL  with  the  length  of  the  monitor  pro- 
gram. 
280  -  Figure  the  relocation  address  by  adding  die  value  in  regis- 
ter pair  DE  to  the  length  of  the  monitor  program  in  register 

pair  HL. 
290  -  Save  the  relocation  address  in  register  pair  HL. 
300  -  Load  register  pair  DE  with  the  ending  address  of  the 

monitor  program. 
310  -  Clear  the  Carry  flag 
320  -  Subtract  the  ending  address  of  the  monitor  program  in 

register  pair  DE  from  the  relocation  address  in  register  pair 

HL 
330  -  Save  the  relocation  offset  in  register  pair  HL. 
340  -  Load  register  pair  HL  with  the  starting  address  of  the 

monitor  program. 
350  -  Load  register  A  with  the  value  at  the  location  of  the  memory 

pointer  in  register  pair  HL. 
360  -  Check  to  see  if  the  value  in  register  A  is  less  than  3FH. 
370  -  Jump  if  the  value  in  register  A  is  less  than  3FH. 
380  -  Check  to  see  if  the  value  in  register  A  is  greater  dian  or 

equal  to  C2H. 
390  -  Jump  if  the  value  in  register  A  is  greater  than  or  equal  to 

C2H. 
400  -  Bump  the  memory  pointer  in  register  pair  HL. 
410  -  Load  register  pair  DE  with  the  location  of  the  first  storage 

area  in  the  monitor  program. 
420  -  Go  compare  the  memory  pointer  in  register  pair  HL  to  the 

location  of  the  first  storage  area  in  register  pair  DE. 
430  -  Go  if  the  memory  pointer  in  register  pair  HL  matches  die 
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location  of  the  first  storage  area  in  register  pair  E»E. 
440  -  Load  register  pair  DE  with  the  location  of  the  second 

storage  area  in  the  monitor  program, 
450  -  Go  compare  the  memory  pointer  in  register  pair  Hi:,  to  the 

location  of  the  second  storage  area  in  register  pair  DE. 
460  -  Go  if  the  memory  pointer  in  register  pair  HL  matches  the 

location  of  the  second  storage  area  in  register  pair  DE. 
470  -  Load  register  pair  DE  with  the  location  of  the  third  storage 

area  in  the  monitor  program. 
480  -  Go  compare  the  memory  pointer  in  register  pair  HL  to  the 

location  of  the  third  storage  area  in  register  pair  13E. 
490  -  Go  if  the  memory  pointer  in  register  pair  HL  matches  the 

location  of  the  third  storage  area  in  register  pair  IDE. 
500  -  Load  register  pair  DE  with  the  location  of  the  fourth  storage 

area  in  the  monitor  program. 
510  -  Go  compare  the  memory  pointer  in  register  pair  HL  to  the 

location  of  the  fourth  storage  area  in  register  pair  DE. 
520  -  Go  if  the  memory  pointer  in  register  pair  HL  matches  the 

location  of  the  fourth  storage  area  in  register  pair  DE. 
530  -  Load  register  pair  DE  with  the  location  of  the  fifth  storage 

area  in  the  monitor  program. 
540  -  Go  compare  the  memory  pointer  in  register  pair  HL  to  the 

location  of  the  fifth  storage  area  in  register  pair  DE. 
550  -  Go  if  the  memory  pointer  in  register  pair  HL  matches  the 

location  of  the  fifth  storage  area  in  register  pair  DE. 
560  -  Load  register  pair  DE  with  the  location  of  the  sixth  storage 

area  in  the  monitor  program. 
570  -  Go  compare  the  memory  pointer  in  register  pair  l^L  with 

the  location  of  the  sixth  storage  area  in  register  pair  DE. 
580  -  Go  if  the  memory  pointer  in  register  pair  HL  matches  the 

location  of  the  sixth  storage  area  in  register  pair  DE. 
590  -  Loop  till  all  of  the  memory  locations  have  been  updated. 
600  -  Save  the  value  in  register  A  on  the  stack. 
610  -  Mask  the  value  in  register  A. 
620  -  Check  to  see  if  the  adjusted  value  in  register  A  is  equal  to 

zero. 
630  -  Jump  if  the  adjusted  value  in  register  A  is  equal  to  zero. 
640  -  Check  to  see  if  the  adjusted  value  in  register  A  is  equal  to 

lOH. 
650  -  Jump  if  the  adjusted  value  in  register  A  is  equal  t;o  lOH. 
660  -  Get  the  value  firom  the  stack  and  put  it  in  register  A. 
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670  -  Mask  the  value  in  register  A. 

680  -  Check  to  see  if  the  adjusted  value  in  register  A  is  equal  to 

02H. 
690  -  Jump  if  the  adjusted  value  in  register  A  is  equal  to  02H. 
700  -  Check  to  see  if  the  adjusted  value  in  register  A  is  equal  to 

OAH, 
710  -  Jump  if  the  adjusted  value  in  register  A  is  equal  to  OAH. 
720  -  Check  to  see  if  the  adjusted  value  in  register  A  is  equal  to 

zero. 
730  -  Jump  if  the  adjusted  value  in  register  A  is  equal  to  zero. 
740  -  Check  to  see  if  the  adjusted  value  in  register  A  is  equal  to 

08H. 
750  -  Jump  if  the  adjusted  value  in  register  A  is  equal  to  08H. 
760  -  Check  to  see  if  the  adjusted  value  in  register  A  is  equal  to 

OIH. 
770  -  Jump  if  the  adjusted  value  in  register  A  is  equal  to  OIH. 
780  -  Check  to  see  if  the  adjusted  value  in  register  A  is  equal  to 

06H. 
790  -  Jump  if  the  adjusted  value  in  register  A  is  equal  to  06H. 
800  -  Check  to  see  if  the  adjusted  value  in  register  A  is  equal  to 

OEH. 
810  -  Jump  if  the  adjusted  value  in  register  A  is  equal  to  OEH. 
820  -  Jump. 

830  -  Get  the  value  from  the  stack  and  put  it  in  register  A. 
840  -  Jump. 

850  -  Get  the  value  from  the  stack  and  put  it  in  register  A, 
860  -  Mask  the  value  in  register  A. 
870  -  Jump. 

880  -  Bump  the  memory  pointer  in  register  pair  HL. 
890  -  Jump. 

900  -  Bump  the  memory  pointer  in  register  pair  HL. 
910  -  Save  the  memory  pointer  in  register  pair  HL  on  the  stack. 
920  -  Load  register  E  with  the  LSB  of  the  address  at  the  location 

of  the  memory  pointer  in  register  pair  HL. 
930  -  Bump  the  memory  pointer  in  register  pair  HL. 
940  -  Load  register  D  with  the  MSB  of  the  address  at  the  location 

of  the  memory  pointer  in  register  pair  HL. 
950  -  Load  register  pair  HL  with  the  address  in  register  pair  DE. 
960  -  Load  register  pair  DE  with  the  starting  address  of  the 

monitor  program. 
970  -  Go  check  to  see  if  the  address  in  register  pair  HL  is  less 
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than  the  starting  address  of  the  monitor  program  in  register 

pair  DE. 
980  -  Load  register  pair  DE  with  the  address  in  register  pair  HL. 
990  -  Jump  if  the  address  in  register  pair  HL  was  less  t:han  the 

starting  address  of  the  monitor  program  in  register  pair  DE. 
1000  -  Load  register  pair  HL  with  the  address  in  register  pair  DE. 
1010  -  Load  register  pair  DE  with  the  ending  address  of  the 

monitor  program. 
1020  -  Go  compare  the  address  in  register  pair  HL  with  the  ending 

address  of  the  monitor  program  in  register  pair  E>E. 
1030  "  Load  register  pair  DE  with  the  address  in  register  pair  HL. 
1040  -  Jump  if  the  address  in  register  pair  HL  was  greater  than  the 

ending  address  in  register  pair  DE. 
1050  -  Load  register  pair  HL  with  the  relocation  offset. 
1060  -  Add  the  address  in  register  pair  DE  to  the  vams  of  the 

relocation  offset  in  register  pair  HL. 
1070  -  Load  register  pair  DE  with  the  updated  address. 
1080  -  Get  the  memory  pointer  from  the  stack  and  put  it  in  register 

pair  HL. 
1090  -  Save  the  LSB  of  the  address  in  register  E  at  the  location  of 

the  memory  pointer  in  register  pair  HL. 
1100  -  Bump  the  memory  pointer  in  register  pair  HL. 
1110  -  Save  the  MSB  of  the  address  in  register  D  at  the  location  on 

the  memory  pointer  in  register  pair  HL. 
1120  -  Jump. 

1130  -  Adjust  the  value  in  register  A. 
1140  -  Save  the  value  in  register  A  on  the  stack. 
1150  -  Mask  the  value  in  register  A. 

1160  -  Check  to  see  if  the  value  in  register  A  is  equal  to  zero. 
1170  -  Jump  if  the  value  in  register  A  is  equal  to  zero. 
1180  -  Check  to  see  if  the  adjusted  value  in  register  A  is  equal  to 

lOH. 
1190  -  Jump  if  the  adjusted  value  in  register  A  is  equal  co  lOH. 
1200  -  Check  to  see  if  the  adjusted  value  in  register  A  is  equal  to 

20H. 
1210  -  Jump  if  the  adjusted  value  in  register  A  is  equal  to  20H. 
1220  -  Get  the  value  from  the  stack  and  put  it  in  register  A. 
1230  -  Mask  the  value  in  register  A. 
1240  -  Check  to  see  if  the  adjusted  value  in  register  A  is  equal  to 

ODH. 
1250  -  Jump  if  the  adjusted  value  in  register  A  is  equal  to  ODH. 
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1260  -  Jump. 

1270  -  Get  the  value  from  the  stack  and  put  it  in  register  A. 

1280  -  Mask  the  value  in  register  A. 

1290  -  Check  to  see  if  the  value  in  register  A  is  equal  to  ODH. 

1300  -  Jump  if  the  adjusted  value  in  register  A  is  equal  to  ODH. 

1310  -  Jump, 

1320  -  Get  the  value  from  the  stack  and  put  it  in  register  A. 

1330  -  Mask  the  value  in  register  A. 

1340  -  Check  to  see  if  the  value  in  register  A  is  equal  to  ODH. 

1350  -  Jump  if  the  value  in  register  A  is  equal  to  ODH. 

1360  -  Check  to  see  if  the  value  in  register  A  is  equal  to  03H, 

1370  -  Jump  if  the  adjusted  value  in  register  A  is  equal  to  03H. 

1380  -  Jump. 

1390  -  Get  the  value  from  the  stack  and  put  it  in  register  A. 

1400  -  Check  to  see  if  the  value  in  register  A  is  equal  to  ODH. 

1410  -  Jump  if  the  value  in  register  A  is  equal  to  ODH. 

1420  -  Check  to  see  if  the  value  in  register  A  is  equal  to  03H. 

1430  -  Jump  if  the  value  in  register  A  is  equal  to  03H. 

1440  -  Check  to  see  if  the  adjusted  value  in  register  A  is  equal  to 

OBH. 
1450  -  Jump  if  the  adjusted  value  in  register  A  is  equal  to  OBH. 
1460  -  Check  to  see  if  the  adjusted  value  in  register  A  is  equal  to 

02H. 
1470  -  Jump  if  the  adjusted  value  in  register  A  is  equal  to  02H. 
1480  -  Check  to  see  if  the  adjusted  value  in  register  A  is  equal  to 

04H. 
1490  -  Jump  if  the  adjusted  value  in  register  A  is  equal  to  04H. 
1500  -  Check  to  see  if  the  adjusted  value  in  register  A  is  equal  to 

06H. 
1510  -  Jump  if  the  adjusted  value  in  register  A  is  equal  to  06H. 
1520  -  Check  to  see  if  the  adjusted  value  in  register  A  is  equal  to 

OAH. 
1530  -  Jump  if  the  adjusted  value  in  register  A  is  equal  to  OAH. 
1540  -  Check  to  see  if  the  adjusted  value  in  register  A  is  equal  to 

OCH. 
1550  -  Jump  if  the  adjusted  value  in  register  A  is  equal  to  OCH. 
1560  -  Check  to  see  if  the  adjusted  value  in  register  A  is  equal  to 

OEH. 
1570  -  Jump  if  the  adjusted  value  in  register  A  is  equal  to  OEH. 
1580  -  Jump. 
1590  -  Bump  the  memory  pointer  in  register  pair  HL. 
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1600  -  Load  register  A  with  the  value  at  the  location  of  the  memory 

pointer  in  register  pair  HL, 
1610  -  Check  to  see  if  the  value  in  register  A  is  less  than  21H. 
1620  -  Jump  if  the  value  in  register  A  is  less  than  21H. 
1630  -  Jump  if  the  value  in  register  A  is  equal  to  21H. 
1640  -  Check  to  see  if  the  value  in  register  A  is  equal  to  22H. 
1650  -  Jump  if  the  value  in  register  A  is  equal  to  22H. 
1660  -  Check  to  see  if  the  value  in  register  A  is  equal  to  2AH. 
1670  -  Jump  if  the  value  in  register  A  is  equal  to  2AH, 
1680  -  Check  to  see  if  the  value  in  register  A  is  equal  to  34H. 
1690  -  Jump  if  the  value  in  register  A  is  equal  to  34H. 
1700  -  Check  to  see  if  the  value  in  register  A  is  equal  to  35H. 
1710  -  Jump  if  the  value  in  register  A  is  equal  to  35H. 
1720  -  Check  to  see  if  the  value  in  register  A  is  equal  to  36H. 
1730  -  Jump  if  the  value  in  register  A  is  equal  to  36H. 
1740  -  Check  to  see  if  the  value  in  register  A  is  less  thm  46H. 
1750  -  Jump  if  the  value  in  register  A  is  less  than  46H. 
1760  -  Check  to  see  if  the  value  in  register  A  is  less  than  CBH, 
1770  -  Jump  if  the  value  in  register  A  is  less  than  CBH. 
1780  -  Jump  if  the  value  in  register  A  is  equal  to  CBH. 
1790  -  Jump. 

1800  -  Bump  the  memory  pointer  in  register  pair  HL. 
1810  -  Jump. 

1820  -  Bump  the  memory  pointer  in  register  pair  HL. 
1830  -  Jump. 

1840  -  Bump  the  memory  pointer  in  register  pair  HL. 
1850  -  Load  register  A  with  the  value  at  the  location  of  the  memory 

pointer  in  register  pair  HL. 
1860  -  Check  to  see  if  the  value  in  register  A  is  equal  to  43H. 
1870  -  Jump  if  the  value  in  register  A  is  equal  to  43H. 
1880  -  Check  to  see  if  the  value  in  register  A  is  equal  tD  4BH. 
1890  -  Jump  if  the  value  in  register  A  is  equal  to  4BH. 
1900  -  Check  to  see  if  the  value  in  register  A  is  equal  to  53H, 
1910  -  Jump  if  the  value  in  register  A  is  equal  to  53H. 
1920  -  Check  to  see  if  the  value  in  register  A  is  equal  to  5BH. 
1930  -  Jump  if  the  value  in  register  A  is  equal  to  5BH. 
1940  -  Check  to  see  if  the  value  in  register  A  is  equal  to  73H, 
1950  -  Jump  if  the  value  in  register  A  is  equal  to  73H. 
1960  -  Check  to  see  if  the  value  in  register  A  is  equal  to  7BH. 
1970  -  Jump  if  the  value  in  register  A  is  equal  to  7BH. 
1980  -  Jump. 
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1990  -  Load  register  B  with  the  number  of  bytes  to  bump  the 

memory  pointer  in  register  pair  HL. 
2000  -  Bump  the  memory  pointer  in  register  pair  HL. 
2010  -  Loop  till  the  memory  pointer  in  register  pair  HL  is  updated. 
2020  -  Return. 
2030  -  Load  register  B  with  the  number  of  bytes  to  bump  the 

memory  pointer  in  register  pair  HL. 
2040  -  Jump. 
2050  -  Load  register  B  with  the  number  of  bytes  to  bump  the 

memory  pointer  in  register  pair  HL. 
2060  -  Jump. 
2070  -  Load  register  B  with  the  number  of  bytes  to  bump  the 

memory  pointer  in  register  pair  HL. 
2080  -  Jump. 
2090  -  Load  register  B  with  the  number  of  bytes  to  bump  the 

memory  pointer  in  register  pair  HL. 
2100  -  Jump. 

2110  -  Decrement  the  memory  pointer  in  register  pair  HL. 
2120  -  Load  register  B  with  the  number  of  commands  in  the 

monitor's  jump  table. 
2130  -  Bump  the  memory  pointer  in  register  pair  HL. 
2140  -  Bump  the  memory  pointer  in  register  pair  HL. 
2150  -  Save  the  memory  pointer  in  register  pair  HL  on  the  stack. 
2160  -  Load  register  E  with  the  LSB  of  the  address  at  the  location 

of  the  memory  pointer  in  register  pair  HL. 
2170  -  Bump  the  memory  pointer  in  register  pair  HL. 
2180  -  Load  register  D  with  the  MSB  of  the  address  at  the  location 

of  the  memory  pointer  in  register  pair  HL. 
2190  -  Load  register  pair  HL  with  the  relocation  offset  value. 
2200  -  Add  the  address  in  register  pair  DE  to  the  offset  value  in 

register  pair  HL. 
2210  -  Load  register  pair  DE  with  the  updated  address  in  register 

pair  HL. 
2220  -  Get  the  memory  pointer  from  the  stack  and  put  it  in  register 

pair  HL. 
2230  -  Save  the  LSB  of  the  updated  address  in  register  E  at  the 

location  of  the  memory  pointer  in  register  pair  HL. 
2240  -  Bump  the  memory  pointer  in  register  pair  HL. 
2250  -  Save  the  MSB  of  the  updated  address  in  register  D  at  the 

location  of  the  memory  pointer  in  register  pair  HL. 
2260  -  Loop  till  the  jump  table  has  been  completely  updated. 


185 


2270  -  Jump  to  the  block  move  routine. 

2280  -  This  will  home  the  cursor  as  part  of  the  sign-on  m<?ssage. 

2290  -  This  will  clear  the  screen  as  part  of  the  sign-on  messsage. 

2300  -  Part  of  the  sign-on  message  is  stored  here. 

2310  -  This  will  display  a  carriage  return  as  part  of  the  sign-on 

message. 
2320  -  Part  of  the  sign-on  message  is  stored  here. 
2330  -  This  will  display  a  carriage  return  as  part  of  the  sign-on 

message. 
2340  -  Part  of  the  sign-on  message  is  stored  here. 
2350  -  This  will  display  a  carriage  return  as  part  of  the  sign-on 

message. 
2360  -  Part  of  the  sign-on  message  is  stored  here. 
2370  -  This  will  display  a  carriage  return  as  part  of  the  sign-on 

message. 
2380  -  Part  of  the  sign-on  message  is  stored  here. 
2390  -  This  will  display  a  carriage  return  as  part  of  the  sign-on 

message. 
2400  -  The  sign-on  message  terminator  is  stored  here. 
2410  -  This  will  display  a  carriage  return  as  part  of  the  relocation 

message. 
2420  -  Part  of  the  relocation  message  is  stored  here. 
2430  -  This  will  display  a  carriage  return  as  part  of  the  relocation 

message. 
2440  -  Part  of  the  relocation  message  is  stored  here. 
2450  -  This  will  display  a  carriage  return  as  part  of  the  relocation 

message. 
2460  -  Part  of  the  relocation  message  is  stored  here. 
2470  -  This  will  display  a  carriage  return  as  part  of  the  relocation 

message. 
2480  -  Part  of  the  relocation  message  is  stored  here. 
2490  -  This  will  display  two  carriage  returns  as  part  of  the  reloca- 
tion message. 
2500  -  Part  of  the  relocation  message  is  stored  here. 
2510  -  The  relocation  message  terminator  is  stored  here. 
2520  -  The  relocation  offset  is  stored  here. 
2530  -  End  of  the  program. 
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Appendix 
Leyel  I!  ROM  Memory  Map 

The  Level  n  ROMs  are  described  location  by  location  in  this 
section.  Locations  0043H  to  0045H,  0134H,  0137H,  08D8H, 
095DH,  0909H,  OAEEH,  0C25H,  OEllH,  0E6BH,  OFAIH,  10F8H, 
13E1H,  14B1H,  196BH,  1999H,  199CH,  199FH,  1A17H,  IDBAH, 
1E02H,  1E05H,  1E08H,  lF03Hto  1F06H,  1F59H,  2682H,  270EH, 
2726H,  2799H,  2887H,  2888H,  28C0H,  2A67H,  2D44H,  2D45H, 
2D96H,  2E16H,  4018H  to  401AH,  4090H  to  4092H,  409FH, 
412FH,  41E4H  to  41E7H  are  not  included  here  because  they  are  not 
used  or  can  be  ignored. 

OOOOH  -  OOO^H   POWER  UP  ROUTINE 

000 OH  Turn  ofif  the  real  time  clock  and  the  disk  interrupts. 

OOOIH  Zero  register  A. 

0002H  -  0004H   Go  to  the  Level  II  BASIC  inidalization  routine. 

0005H  -  0007H   Go  to  RST  0008H  code  via  4000H. 

0008H  -  OOOAH   RST  0008H 

0008H  -  OOOAH   Go  to  the  RST  0008H  vector  at  4000H. 

OOOBH  "  OOOCH    DISK  ROUTINE 

OOOBH  Get  the  addiess  from  the  stack  and  put  it  in  register 

pair  HL. 
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OOOCH  Jump  to  the  location  of  the  address  in  register  pair 

HL. 

OOODH  -   OOOFH    DISK  ROUTINE 

OOODH  -   OOOFH    Jump  to  the  disk  load  and  run  sector  routine. 

OOIOH  "   0012H    RSTOOIOH 

OOIOH  -   0012H    Go  to  the  RST  OOIOH  vector  at  4003H. 

0013H  -   0017H    KEYBOARD  ROUTINE 

0013H  Save  the  value  in  register  pair  BC  on  th€:  stack. 

0014H  "   0015H    Load  register  B  with  the  device  type  entry  code. 

OOI6H  -   0017H    Jump  to  the  Level  n  BASIC  driver  entry  routine. 

0018H  -   OOIAH  RST  0018H 

0018H  -   OOIAH    Go  to  the  RST  0018H  vector  at  4006H. 

OOIBH  -   OOIFH    VIDEO  AND  PRINTER  ROUTINE 

OOIBH  Save  the  value  in  register  pair  BC  on  the  stack. 

OOICH  -   OOIDH    Load  register  B  with  the  device  type  eni:ry  code. 

OOIEH  -   OOIFH    Jump  to  the  Level  II  BASIC  driver  entry  routine. 

0020H  -   0022H    RST  0020H 

0020H  -   0022H    Go  to  the  RST  0020H  vector  at  4009H. 

0023H  -   0027H    DISK  ROUTINE 

0023H  Save  the  value  in  register  pair  BC  on  the  stack. 

002^H  -   0025H    Load  register  B  with  the  device  type  entry  code. 

OO26H  -    0027H    Jump  to  the  Level  11  BASIC  driver  entr)^  routine. 

0028H  -   002AH   RST  0028H 

0028H  -   002AH    Go  to  the  RST  0028H  vector  at  400CH. 

002BH  "   002FH   KEYBOARD  ROUTINE 

002BH  -   002DH    Load  register  pair  DE  with  the  starting  address  of 
the  keyboard  device  control  block. 

002EH  -   002FH  Jump  to  the  Level  II  BASIC  driver  entrj'  routine. 

OO3OH  -   0032H    RST0030H 

003 OH  -   0032H    Go  to  the  RST  0030H  vector  at  400FH. 
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0033H  -   0037H    VIDEO  ROUTINE 

0033H  -    0035H    Load  register  pair  DE  with  the  starting  address  of 
the  video  display  device  control  block. 

OO36H  -   OO37H    Jump  to  the  Levelll  BASIC  driver  entry  routine. 

OO38H  "   003AH    RST0038H 

OO38H  "   003AH    Go  to  the  RST  0038H  vector  at  4012H. 
003BH  "   003FH   PRINTER  ROUTINE 

003BH  -   003DH    Load  register  pair  DE  with  the  starting  address  of 
the  printer  device  control  block. 

003EH  -   003FH  Jump  to  the  Level  II  BASIC  driver  entry  routine. 

OO^OH  -   00^2H  INPUT  ROUTINE 

OO^OH  -    0042H  Jump  to  the  keyboard  input  routine. 

00^6H  -   00^8H  DRIVER  ENTRY  ROUTINE 

0046H  -    OO^-BH  Jump  to  the  Level  II  basic  driver  entry  routine. 

00^9H  -   OO^FH  KEYBOARD  ROUTINE 

00^9H  -   OO^BH    Go  scan  the  keyboard  and  return  with  the  key 
pressed,  if  any,  in  register  A. 

004GH  Check  the  value  in  register  A  to  see  if  a  key  was 

pressed. 

004DH  Return  if  a  key  was  pressed. 

OO^EH  "  OO^FH    Loop  till  a  key  is  pressed. 

OO5OH  -  005FH    KEYBOARD  LOOKUP  TABLE 

Key(s)  Pressed  ASCII  Value 

OO5OH  ENTER                                ODH 

OO5IH  Shift  ENTER                        ODH 

0052H  CLEAR                                 IFH 

0053H  Shift  CLEAR                         IFH 

005^H  BREAK                                OIH 

0055H  Shift  BREAK                         OIH 

OO56H  Up  Arrow                             5BH 

0057H  Shift  Up  Arrow                      IBH 

189 


Key(s)  Pressed  ASCII  Value 

0058H  Down  Arrow  OAH 

0059H  Shift  Down  Arrow  lAH 

005AH  Left  Arrow  08H 

005BH  Shift  Left  Arrow  18H 

005CH  Right  Arrow  09H 

005DH  Shift  Right  Arrow  19H 

005EH  SPACE  20H 

005FH  Shift  SPACE  20H 

OO6OH  -  0065H    DELAY  ROUTINE 

OO6OH  Decrement  the  counter  in  register  pair  ElC. 

OO6IH  Load  register  A  with  the  counter's  MSB  i:a  register 

B. 

0062H  Combine  the  counter's  LSB  in  register  C  with  the 

counter's  MSB  in  register  A. 

OO63H  -   006te    Loop  till  the  counter  in  register  pair  BC  is  equal  to 
zero. 

0065H  Return. 

OO66H  -  007^H  NMI  INTERRUPT  ROUTINE  (RESET) 

OO66H  -  OO68H  Set  the  stack  pointer  to  0600H. 

OO69H  "  OO6BH  Load  register  A  with  the  disk  controller  status. 

006 OH  Bump  the  disk  controller  status  in  register  A. 

OO6DH  "   006  EH    Check  the  value  in  register  A  to  see  if  a  disk  is 
present. 

OO6FH  -   OO7IH    If  a  disk  is  present  go  to  the  Levelll  BASIC  power 
up  routine. 

0072H  -   007^H   Jump  to  the  Level  II  BASIC  READY  routine. 
0075H  -   OlO^H   INITIALIZATION  ROUTINE 

0075H  -   OO77H   Load  register  pair  DE  with  the  ROM  storage  loca- 
tion of  the  Level  II  BASIC  division  routine. 

OO78H  -   007AH   Load  register  pair  HL  with  the  RAM  storage  loca- 
tion of  the  Level  II  BASIC  division  routine. 

OO7BH  -   OO7DH  Load  register  pair  BC  with  the  length  of  the  Level  II 
BASIC  division  routine, 
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007EH  -   007FH   Move  the  Level  n  BASIC  division  routine  to  RAM. 

0080H  -   0082H    Load  register  pair  HL  with  an  RAM  memory  point- 
er. 

0083H  -   OOB^H    Save  a  3AH  at  the  location  of  the  memory  pointer  in 
register  pair  HL. 

0085H  Bump  the  memory  pointer  in  register  pair  HL. 

0086H  Zero  the  location  of  the  memory  pointer  in  register 

pair  HL, 

0087H  Bump  the  memory  pointer  in  register  pair  HL. 

0088H  "   008.9H    Save  a  2CH  at  the  location  of  the  memory  pointer  in 
register  pair  HL. 

008AH  Bump  the  memory  pointer  in  register  pair  HL. 

008BH  -   008DH   Save  the  value  in  register  pair  HL  as  the  starting 
address  of  the  keyboard  input  buffer  area. 

008EH  "   OO9OH    Load  register  pair  DE  with  the  starting  address  of 
the  Level  E  BASIC  L3  ERROR  routine. 

OO9IH  -   OO92H    Load  register  B  with  the  number  of  times  to  save  die 
jump  to  the  Level  II  BASIC  L3  ERROR  routine, 

OO93H  -   0095H    Load  register  pair  HL  with  the  starting  address  of 
the  Disk  Basic  links. 

OO90H  -   OO97H    Save  a  C3H  at  the  location  of  the  memory  pointer  in 
register  pair  HL. 

OO98H  Bump  the  memory  pointer  in  register  pair  HL. 

0099H  Save  the  LSB  of  the  Level  II  BASIC  L3  ERROR  rou- 

tine's starting  address  in  register  E  at  the  location  of 
the  memory  pointer  in  re^ster  pair  HL, 

OO9AH  Bump  the  memory  pointer  in  register  pair  HL. 

OO9BH  Save  the  MSB  of  the  Level  II  BASIC  L3  ERROR 

routine's  starting  address  in  register  D  at  the  loca- 
tion of  the  memory  pointer  in  register  pair  HL. 

OO9OE  Bump  the  memory  pointer  in  register  pair  HL. 

OO9DH  -   OO9EH    Loop  till  all  of  the  Disk  Basic  links  have  been  set  to 
jump  to  the  Level  II  BASIC  L3  ERROR  routine. 

OO9FH  -   OOAOH    Load  register  B  with  the  number  of  DOS  links  to  set 
to  RETs. 

OOAIH  -   00A2H    Save  a  C9H  at  the  location  of  the  memory  pointer  in 
register  pair  HL 
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00A3H  Bump  the  memory  pointer  in  register  pair  HL. 

OOA^H  Bump  the  memory  pointer  in  register  pair  HL. 

00A5H  Bump  the  memory  pointer  in  register  pair  HL. 

00A6H  -  00A7H    Loop  till  all  ofthe  DOS  hnks  have  been  set  to  RETs. 

00A8H  -   OOAAH    Load  register  pair  HL  with  the  starting  address  of 
user  RAM. 

OOABH  Zero  the  location  of  the  memory  pointer  in  register 

pair  HL. 

OOAGH  -    OOAEH    Set  the  current  stack  pointer  to  41F8H. 

OOAFH  "   OOBIH    Go  initialize  the  Level  II  BASIC  variables  and  point- 
ers. 

00B2H  "    OOBte    Go  clear  the  screen. 

00B5H  "   00B7H    Load  register  pair  HL  with  the  starting  address  of 
the  memory  size?  message. 

00B8H  -   OOBAH    Go  display  the  memory  size?  message, 

OOBBH  -   OOBDH    Go  get  the  input  from  the  keyboard. 

OOBEH  -   OOBFH    Go  ask  again  if  the  BREAK  key  was  pressed. 

OOCOH  Bump  the  input  buffer  pointer  in  register  pair  HL  till 

it  points  to  the  first  character  of  the  input:, 

OOCIH  Check  to  see  if  the  character  at  the  location  of  the 

input  buffer  pointer  in  register  A  is  an  end  of  the 
input  character  (OOH). 

00C2H  -   00C3H    Jump  if  there  was  a  response  to  die  memory  size? 
question, 

00C4H  -    00C6H   Load  register  pair  HL  with  the  starting  address  for 
the  memory  size  check. 

OOC?H  Bump  the  memory  pointer  in  register  pai;:  HL. 

00C8H  Load  register  A  with  the  MSB  of  the  current  mem- 

ory pointer  in  register  H. 

00C9H  Combine  the  LSB  of  the  current  memory  pointer  in 

register  L  with  the  MSB  of  the  current  memory 
pointer  in  register  A. 

OOCAH  -    OOCBH  Jump  if  the  current  memory  pointer  in  register  pair 
HL  is  equal  to  zero. 

OOCCH  Load  register  A  with  the  value  at  the  location  of  the 

current  memory  pointer  in  register  pair  HL. 
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OOCDH  Load  register  B  with  the  value  in  register  A. 

OOCEH  Complement  the  value  in  register  A. 

OOCFH  Save  the  value  in  register  A  at  the  location  of  the 

current  memory  pointer  in  register  pair  HL. 

OODOH  Check  to  see  if  the  value  at  the  location  of  the 

memory  pointer  in  register  pair  HL  is  the  same  as 
the  value  in  register  A. 

OODIH  Save  the  value  in  register  B  at  the  location  of  the 

memory  pointer  in  register  pair  HL 

00D2H  -  00D3H  Loop  till  the  end  of  memory  is  found. 

OODJ^H  -  00D5H  Jump. 

00D6H  -»  00D8H  Go  evaluate  the  response  to  the  memory  size? 
question  and  return  with  the  memory  size?  in  regis- 
ter pair  De. 

00D9H  Check  to  see  if  register  A  is  equal  to  zero. 

OODAH  -  OODCH  Go  to  the  Level  H  BASIC  error  routine  and  display  a 
SN  ERROR  message  if  register  A  is  equal  to  zero. 

OODDH  Load  register  pair  HL  with  the  memory  size?  in 

register  pair  DE. 

OODIH  Decrement  the  memory  size?  in  register  pair  HL. 

OODFH  "-   OOEOH  Load  register  A  with  a  memory  test  value. 

OOEIH  Load  register  B  with  the  value  at  the  location  of  the 

memory  size?  pointer  in  register  pair  HL. 

00E2H  Save  the  value  in  register  A  at  the  location  of  the 

memory  size?  pointer  in  register  pair  HL. 

00E3H  Check  to  see  if  the  value  at  the  location  of  the 

memory  size?  pointer  in  register  pair  HL  is  the  same 
as  the  value  in  register  A. 

OOE^H  Save  the  value  in  register  B  at  the  location  of  the 

memory  size?  pointer  in  register  pair  HL, 

00E5H  -  00E6H  Jump  if  the  memory  location  doesn't  exist. 

00E7H  Decrement  the  memory  size  pointer  in  register  pair 

HL, 

00E8H  -  OOEAH  Load  register  pair  DE  with  the  minimum  memory 
size?  response. 

OOEBH  Go  check  to  see  if  the  memory  size?  pointer  in 
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register  pair  HL  is  less  than  the  minimum  memory 
size?  response  in  register  pair  DE. 

OOECH  -  OOEEK  Go  to  the  Level  II  BASIC  error  routine  and  display 
an  OM  ERROR  if  the  memory  size?  pointer  in  reg- 
ister pair  HL  is  less  than  the  minimum  memory  size? 
response  in  register  pair  DE. 

OOEFH  -   OOFIH  Load  register  pair  DE  with  a  negative  fift^^. 

00F2H  "  OOF^K  Save  the  memory  size?  pointer  in  register  pair 
HL. 

00F5H  Add  the  value  in  register  pair  DE  to  the  memory 

size?  pointer  in  register  pair  HL. 

00F6H  -  00F8H  Save  the  start  of  string  space  pointer  in  register  pair 
HL. 

00F9H  -   OOFBH    Go  reset  the  Level  II  BASIC  variables  and  pointers. 

OOFCH  -  OOFEH  Load  register  pair  HL  with  the  starting  address  of 
the  RADIO  SHACK  LEVEL  11  BASIC  message. 

OOFFH  -  OIOIH  Go  display  the  RADIO  SHACK  LEVEL  II  BASIC 
message. 

0102H  -  OlO^H  Go  to  the  Level  II  BASIC  READY  routine. 

0105H  -   OllOH  MESSAGE  STORAGE 

0105H  -   OllOH   Memory  size?  message  is  stored  here. 

OlllH  -   012CH   MESSAGE  STORAGE 

OlllH  -  012CH  RADIO  SHACK  LEVEL  II  BASIC  message  is  stored 
here. 

012DH  «»   0131H  L3  ERROR  ROUTINE 

012DH  -   012EH   Load  register  E  with  the  L3  ERROR  code, 
012FH  -   OI3IH  Go  to  the  Level  II  BASIC  error  routine. 

0132H  •»  013^H  LEVEL  II  BASIC 

POINT  COMMAND  ENTRY  POINT 

0132H  Go  bump  the  current  BASIC  program  pointer  till  it 

points  to  the  next  character. 

0133H  Zero  register  A. 

0135H  "   0137H  LEVEL  II  BASIC  SET 
ux^^n  -X        COMMAND  ENTRY  POINT 

0135H  -   OI36H  Load  register  A  with  80H. 
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0138H  -   0139H    LEVEL  II  BASIC  RESET 
COMMAND  ENTRY  POINT 

0138H  -   0139H   Load  register  A  with  OIH. 
013AH  -   019CH    GRAPfflCS  ROUTINE 

013AH  Save  the  graphics  mode  in  register  A  on  the  stack. 

013BH  -  013CH  Go  check  the  syntax.  The  character  at  the  location  of 
the  current  BASIC  program  pointer  in  register  pair 
HL  must  be  a  (  character. 

013DH  -  013FH  Go  evaluate  the  expression  at  the  location  of  the 
current  BASIC  program  pointer  in  register  pair  HL 
and  return  with  the  8-bit  value  in  register  A. 

Ol^OH  -  Ol^lH  Check  to  see  if  the  X  value  in  register  A  is  greater 
than  127. 

Om-ZK  "  Ol^^H  Go  to  the  Level  II  BASIC  error  routine  and  display  a 
FC  ERROR  message  if  the  X  value  in  register  A  is 
greater  than  127. 

0145H  Save  the  X  value  in  register  A  on  the  stack. 

01^6H  "  01^7H  Check  the  syntax.  The  character  at  the  location  of 
the  current  BASIC  program  pointer  in  register 
pair  HL  must  be  a  comma. 

0148H  -  014AH  Go  evaluate  the  expression  at  the  location  of  the 
current  BASIC  program  pointer  in  register  pair  HL 
and  return  with  the  8-bit  value  in  register  A. 

Ol^BH  -   Ol^CH    Check  to  see  if  the  Y  value  in  register  A  is  greater 

than  47. 

OltoH  -  Ol^FH  Go  to  the  Level  II  BASIC  error  routine  and  display  a 
FC  ERROR  message  if  the  Y  value  in  register  A  is 
greater  than  47. 

OI5OH  -  OI5IH  Load  register  D  with  starting  quotient. 

OI52H  Bump  the  quotient  in  register  D. 

0153H  -  015to  Subtract  3  from  register  A. 

OI55H  -  OI56H  Loop  till  register  D  equals  the  Y  value  divided  by  3. 

OI57H  -  OI58H  Adjust  the  remainder  in  register  A. 

OI59H  Save  the  remainder  in  register  C. 

015AH  Get  the  X  value  from  the  stack  and  put  it  in  register 

A. 

015BH  Multiply  the  X  value  in  register  A  by  two. 
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015CH 


Load  register  E  with  the  X  value  times  twct  in  regis- 
ter A. 


01i5DH  -  Ol5EIi  Load  register  B  with  the  number  of  times  to  shift 
register  pair  DE. 

015FH  Load  register  A  with  the  adjusted  Y  value  in  register 

D. 

016  OH  Divide  the  adjusted  Y  value  in  register  A  by  two. 

OI6IH  Save  the  new  Y  value  in  register  A  in  repster  D. 

0162H  Load  register  A  with  the  adjusted  X  value  in  register 

E. 

OI63H  Divide  the  adjusted  X  value  in  register  k  by  two. 

Ol6^H  ^ad  register  E  wi±  the  new  X  value  in  register  A. 

0165H  -  OI66H  Loop  till  the  memory  offset  in  register  pair  DE  has 
been  figured. 

OI67H  Load  register  A  with  the  value  in  register  C. 

OI68H  Multiply  the  value  in  register  A  by  two  and  add  the 

value  of  the  Carry  flag  to  register  A. 

016  9H  Bump  the  value  in  register  A. 

OI6AH  Save  the  bit  position  in  register  A  in  register  B. 

OI6BH  2ero  register  A  and  reset  the  Carry  flag. 

OI6GH  Set  the  Carry  flag. 

OI6DH  Add  the  value  of  the  Carry  flag  to  register  A. 

OI6EH  -  OI6FH  Loop  till  the  graphic  mask  has  been  completed  in 
register  A. 

OI7OH  Save  the  graphic  mask  in  register  A  in  register  C. 

OI7IH  Load  register  A  with  the  MSB  of  the  video  memory 

offset  in  register  D. 

OI72H  -  0173H  Mask  the  MSB  of  the  video  memory  offset  in  regis- 
ter A  so  that  it  will  point  to  the  correct  location  in 
video  memory. 


017^H 
0175H 


Save  the  MSB  of  the  video  memory  poinner  in  reg- 
ister A  in  register  D. 

Load  register  A  with  the  character  at  the  location  of 
the  video  memory  pointer  in  register  pax  DE. 
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0176H 

0177H  - 

0179H 

017AH  - 

017BH 

017CH 

017DH 

017EH 

017FH 

018 OH  - 

0181H 

0182H 

0183H  - 

0185H 

0186H 

0187H 

0188H 

0189H 

018AH 

018BH 


018CH  -  018DH 


OlBEH 
018FH 


Check  to  see  if  the  character  in  register  A  is  a 
graphic  character. 

Jump  if  the  character  in  register  A  is  a  graphic 
character. 

Load  register  A  with  a  blank  graphic  character. 

Save  the  graphic  character  in  register  A  in  register 
B. 

Get  the  graphic  mode  from  the  stack  and  put  it  in  reg- 
ister A. 

Set  the  flags  according  to  the  graphic  mode  in  regis- 
ter A. 

Get  the  graphic  character  from  register  B  and  put  it 
in  register  A. 

Jump  if  the  graphic  mode  is  POINT. 

Save  the  graphic  character  in  register  A  at  the  loca- 
tion of  the  video  memory  pointer  in  register  pair  DE. 

Jump  if  the  graphic  mode  is  SET. 

Load  register  A  with  the  graphic  mask  in  register  C. 

Reverse  the  graphic  mask  in  register  A. 

Load  register  C  with  the  adjusted  graphic  mask  in 
register  A. 

Load  register  A  with  the  character  at  the  location  of 
the  video  memory  pointer  in  register  pair  DE. 

RESET  the  graphic  bit  by  combining  the  graphic 
mask  in  register  C  with  the  graphic  character  in 
register  A. 

Save  the  adjusted  graphic  character  in  register  A  at 
the  location  of  the  video  memory  pointer  in  register 
pair  DE. 

Check  the  syntax.  The  character  at  the  location  of 
the  current  BASIC  program  pointer  in  register  pair 
HL  must  be  a  )  character. 

Return. 

SET  the  graphic  bit  by  combining  the  graphic  mask 
in  register  C  with  the  graphic  character  in  register 
A. 
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0190H  -  0191H  Jump. 

0192H  POINT  the  graphic  bit  by  combining  the  graphic 

mask  in  register  C  with  the  graphic  character  m 
register  A, 

0193H  -   019^H   Subtract  one  from  the  value  in  register  A. 

0195H  Adjust  the  value  in  register  A  so  that  A  ^vill  equal 

zero  if  the  bit  was  off  in  register  A. 

OI96H  Save  the  current  BASIC  program  pointer  in  register 

pair  HL  on  the  stack. 

0197H  -   0199H    Save  the  value  in  register  A  as  the  curreni:  result  in 
REGl. 

OI9AH  Get  the  current  BASIC  program  pointer  from  the 

stack  and  put  it  in  register  pair  HL. 

019BH  -  019CH   Jump. 

OI9DH  -   01C8H    LEVEL  II  BASIC  INKEY$  ROUTINE 

OI9DH  Go  bump  the  current  BASIC  program  pointer  in 

register  pair  HL  till  it  points  to  the  next  c;haracter. 

OI9EH  Save  the  current  BASIC  program  pointer  i  n  register 

pair  HL  on  the  stack. 

OI9FH  -   OIAIH    Load  register  A  with  the  last  key  pressed. 

01A2H  Check  to  see  if  a  key  has  been  pressed. 

01A3H  -   OlA^H   Jump  if  a  key  has  been  pressed. 

01A5H  -   01A7H    Go  scan  the  keyboard. 

01A8H  Check  to  see  if  a  key  was  pressed. 

01A9H  -   OlAAH  Jump  if  a  key  wasn't  pressed. 

OlABH  Save  the  key  pressed  in  register  A  on  the  stack. 

OlACH  Zero  register  A. 

OlADH  -   OlAFH   Save  the  value  in  register  A  as  the  last  key  pressed. 

OIBOH  Bump  the  value  in  register  A. 

OIBIH  "   01B3H   Go  make  an  entry  in  string  space. 

OIB^H  Get  the  last  key  pressed  from  the  stack  ar.d  put  it  in 

register  A. 

OIB 5H  -   01B7H   Load  register  pair  HL  with  the  string's  starting  ad- 
dress. 
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01B8H  Save  the  last  key  pressed  in  register  A  at  the  loca- 

tion of  the  string  pointer  in  register  pair  HL. 

01B9H  -   OIBBH    Go  save  the  string^sVARPTR  as  the  current  result. 

OIBCH  -   OIBEH    Load  register  pair  HL  with  the  starting  address  of 
the  READY  message. 

OIBFH  -    OICIH    Save  the  address  in  register  pair  HL  as  the  current 
result  in  REGl. 

01C2H  -  01G3H    Load  register  A  with  a  string  number  type  flag. 

OIC^H  -   01C6H    Save  the  value  in  register  A  as  the  current  number 
type. 

01C7H  Get  the  current  BASIC  program  pointer  from  the 

stack  and  put  it  in  register  pair  HL. 

01C8H  Return. 

01C9H  -   01D2H    LEVEL  II  BASIC  CLS  ROUTINE 

01C9H  -   OICAH    Load  register  A  with  the  ASCII  character  to  home 
the  cursor. 

OICBH  -   OICDH    Go  send  the  character  in  register  A  to  the  video 
display. 

OICEH  "   OICFH    Load  register  A  with  the  ASCII  character  to  clear  to 
the  end  of  the  screen. 

OlDOH  "   01D2H    Go  send  the  character  in  register  A  to  the  video 
display. 

01D3H  "   01D8H    LEVEL  II  BASIC  RANDOM  ROUTINE 

01D3H  -   OlD^H    Load  register  A  with  the  current  value  of  the  refresh 
register. 

01D5H  "   01D7H    Save  the  value  in  register  A  as  part  of  the  random 
number  seed. 

01D8H  Return. 

01D9H  -   01F7H    CASSETTE  ROUTINE 

01D9H  -   OlDBH    Load  register  pair  HL  with  the  command  to  send  to 
the  cassette. 

OlDCH  -    OlDEH   Go  send  the  command  to  the  cassette  controller. 

OlDFH  -   OlEOH    Load  register  B  with  the  delay  count. 

OIEIH  "   01E2H    Loop  for  delay. 
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01E3H  "  01E5H  Load  register  pair  HL  with  the  command  to  send  to 
the  cassette. 

01E6H  -   01E8H    Go  send  the  command  to  the  cassette  controller. 

01E9H  -   OlEAH    Load  register  B  with  the  delay  count. 

OlEBH  -   OlECH    Loop  for  delay. 

OlEDH  -  OlEFH  Load  register  pair  HL  with  the  command  to  send  to 
the  cassette. 

OlFOH  -  01F2H  Go  send  the  command  to  the  cassette  controller. 

01P3H  -  OlFto  Load  register  B  with  the  delay  count. 

01F5H  -  01F6H  Loop  for  delay. 

01F7H  Return. 

01F8H  -   OlFDH    CASSETTE  ROUTINE  (TURN  OFF  CASSETTE) 
01F8H  Save  the  value  in  register  pair  HL  on  the  stack. 

01F9H  "   OlFBH    Load  register  pair  HL  with  the  command  to  send  to 

the  cassette. 

OlFCH  -   OlFDH   Jump. 

OlFEH  -•   0211H    CASSETTE  ROUTINE 

(EVALUATE  DRIVE  NUMBER) 

OlFEH  Get  the  character  at  the  location  of  the.  current 

BASIC  program  pointer  and  put  it  in  regii3ter  A. 

OlFFH  -  0200H  Check  to  see  if  the  character  in  register  A  is  a  # 
character. 

0201H  -   0202H   Zero  register  A. 

0203H  -  020^H  Jump  if  the  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  pair  HL  isn't  a  # 
character. 

0205H  -  0207H  Go  evaluate  the  drive  number  at  the  location  of  the 
current  BASIC  program  pointer  in  register  pair  HL 
and  return  with  the  drive  number  in  register  E. 

0208H  -  O209H  Go  check  the  syntax.  The  character  at  the  location  of 
the  current  BASIC  program  pointer  in  register  pair 
HL  must  be  a  comma. 

02  0 AH  Load  register  A  with  the  drive  number  in  re  gister  E. 

Combine  the  MSB  of  the  drive  number  in  register  D 
020BH  with  the  LSB  of  the  drive  number  in  register  A. 
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020CH  -  020DH    Make  the  drive  number  in  register  A  positive. 

020SH  -  0210H  Go  to  the  Level  II  BASIC  error  routine  and  display  a 
FC  ERROR  message  if  the  drive  number  in  register 
A  is  invalid. 

0211H  Decrement  the  drive  number  in  register  A. 

0212H  -   021DH    CASSETTE  ROUTINE  (TURN  ON  CASSETTE) 

0212H  -   0214H    Set  the  current  drive  as  specified  by  register  A. 

0215H  Save  the  current  BASIC  program  pointer  in  register 

pair  HL  on  the  stack. 

0216H  -  0218H  Load  register  pair  HL  with  the  command  to  send  to 
the  cassette. 

0219H  "   021BH    Go  send  the  command  to  the  cassette  controller. 

021CH  Get  the  current  BASIC  program  pointer  from  the 

stack  and  put  it  in  register  pair  HL. 

021DH  Return. 

021EH  -   022BH    CASSETTE  ROUTINE 

021EH  -  0220H  Load  register  pair  HL  with  the  command  to  send  to 
the  cassette. 

0221H  -   0223H    Load  register  A  with  the  32/64  character  per  line 

flag. 

022^H  Combine  the  value  in  register  H  with  the  32/64 

character  per  line  flag  in  register  A. 

0225H  Combine  the  value  to  send  to  the  cassette  in  register 

L  with  the  adjusted  value  in  register  A. 

O226H  "   022  7H    Send  the  value  in  register  A  to  the  cassette  port. 

0228H  -  022AH  Save  the  value  in  register  A  as  the  32/64  character 
per  line  flag. 

022BH  Return. 

022CH  -   023^H    CASSETTE  ROUTINE  (BLINK  **) 

022CH  -  022EH  Get  the  character  being  displayed  in  the  upper  right 
hand  comer  of  the  video  display  and  put  it  in  register 
A. 

022FH  "  023  OH  If  the  character  in  register  A  is  a  *  then  make  it  a 
space,  else  if  the  character  in  register  A  is  a  space 
make  it  a  *. 

O23IH  -   0233H    Display  the  character  in  register  A  in  the  upper  right 
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hand  comer  of  the  video  display. 

023^H  Return. 

0235H  -  OZkOn  CASSETTE  ROUTINE  (READ  A  BYTE) 

0235H  Save  the  value  in  register  pair  BC  on  the  stack. 

O236H  Save  the  value  in  register  pair  HL  on  the  stack. 

023  7H  -   O238H  Load  register  B  with  the  number  of  bits  to  read. 

O239H  -   023BH  Go  read  a  bit  from  the  cassette  recorder. 

023  CH  -   023DH  Loop  till  all  eight  bits  have  been  read. 

023EH  Get  the  value  from  the  stack  and  put  it  in  register 
pair  HL 

023  FH  Get  the  value  from  the  stack  and  put  it  in  register 
pair  BC. 

02^0H  Return. 

02^1H  -   O26OH  CASSETTE  ROUTINE  (READ  A  BIT) 

02^1H  Save  the  value  in  register  pair  BC  on  the  stack. 

02^2H  Save  the  value  in  register  A  on  the  staci. 

02^3H  -   02^^H  Read  a  bit  from  the  cassette  port. 

02^5H  Check  to  see  if  this  is  a  start  bit. 

0246H  -   02^7H  Loop  till  start  bit  is  found. 

02^8H  -   0249H  Load  register  B  with  the  delay  count. 

02^AH  "   02^BH  Loop  for  delay. 

02^CH  -   024EH  Go  clear  the  cassette  controller. 

02^FH  -   O25OH  Load  register  B  with  the  delay  count. 

O25IH  -   0252H  Loop  for  delay. 

0253H  -   025^H  Load  register  A  with  the  value  of  the  cassette  port. 

0255H  Load  register  B  with  the  value  read  from  the  cas- 
sette port  in  register  A. 

O256H  Get  the  value  from  the  stack  and  put  it  in  register  A. 

0257H  «   O258H  Shift  the  bit  read  in  register  B  into  the  C:arry  flag. 

O259H  Shift  the  value  in  the  Carry  flag  into  register  A. 
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025AH  Save  the  value  in  register  A  on  the  stack. 

025BH   -  025DH   Go  dear  the  cassette  controller. 

025BH  Get  the  value  from  the  stack  and  put  it  in  register  A. 

025FH  Get  the  value  from  the  stack  and  put  it  in  register 

pair  BC. 

0260H  Return. 

0261H  -  0263H    CASSETTE  ROUTINE 

0261H  -  0263H    Go  write  a  byte. 

026kK  -  027DH    CASSETTE  ROUTINE  (WRITE  A  BYTE) 

0264H  Save  the  value  in  register  pair  HL  on  the  stack. 

0265H  Save  the  value  in  register  pair  BC  on  the  stack. 

O266H  Save  the  value  in  register  pair  DE  on  the  stack. 

O267E  Save  the  value  in  register  A  on  the  stack. 

O268H  -   O269H    Load  register  C  with  the  number  of  bits  to  be  writ- 
ten. 

02oAH  Load  register  D  with  the  byte  to  be  written  in  regis- 

ter A. 

O26BH  -   026DH    Go  write  the  start  bit. 

O26EH  Load  register  A  with  the  byte  to  be  written  in  regis- 

ter D. 

O26FH  Shift  the  bit  to  be  written  into  the  Carry  flag. 

O27OH  Save  the  adjusted  byte  to  be  written  in  register  A  in 

register  D. 

O27IH  ~  O272H    Jump  if  the  bit  to  be  written  is  equal  to  zero. 

0273H  -  0275H    Go  make  a  cassette  pulse. 

O276H  Decrement  the  counter  in  register  C. 

0277H  -  O278H    Loop  till  all  eight  bits  have  been  written. 

O279H  Get  the  value  from  the  stack  and  put  it  in  register  A. 

O27AH  Get  the  value  from  the  stack  and  put  it  in  register 

pair  DE. 

O27BH  Get  the  value  from  the  stack  and  put  it  in  register 

pair  BC. 
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027CH  Get  the  value  from  the  stack  and  put  it  in  register 

pair  HL. 

027DH  Return. 

027EH  "   0283H  CASSETTE  ROUTINE 

027EH  -   027FH  Load  register  B  with  the  delay  count. 

0280H  -   028IH  Loop  for  the  delay. 

0282H  -   0283H    Jump. 

028^H  -   0292H    CASSETTE  ROUTINE  (TURN 

ON  CASSETTE  AND  WRITE  LEADER;- 

028^H  «   0286H    Go  evaluate  the  drive  number  and  turn  oa  the  cas- 
sette motor. 

0287H  -   0288H    Load  register  B  with  the  number  of  bytes  to  be 
written. 

0289H  Zero  register  A. 

028AH  -  028CH  Go  write  the  byte  in  register  A. 

028DH  -  028EH  Loop  till  leader  has  been  written. 

028FH  "  02  9  OH  Load  register  A  with  the  sync  byte  value. 

O29IH  -   O292H    Go  vmte  the  sync  byte. 

0293H  -   O29EH    CASSETTE  ROUTINE  (TURN 

ON  CASSETTE  AND  READ  LEADER) 

0293H  -   0295H    Go  evaluate  the  drive  number  and  turn  on  the  cas- 
sette motor. 

O296H  Save  the  current  BASIC  program  pointer  in  register 

pair  HL  on  the  stack. 

O297H  Zero  register  A. 

O298H  -   O29AH    Go  read  a  byte  from  the  cassette  and  return  with  it  in 
register  A. 

O29BH  -  O29CH   Check  to  see  if  the  byte  read  from  the  cassette  in 
register  A  is  a  sync  byte. 

029DH  -   O29EH   Loop  till  sync  byte  found. 

029PH  "  02A8H  CASSETTE  ROUTINE  (DISPLAY  **  ON  VIDEO) 

O29FH  "  02A0H   Load  register  A  with  a  *  character. 

02A1H  -  02A3H  Display  the  *  character  in  register  A  on  the  video 
display. 
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02A^H  -  02A6H   Display  the  *  character  in  register  A  on  the  video 

display. 

02A7H  Get  the  current  BASIC  program  pointer  from  the 

stack  and  put  it  in  register  pair  HL. 

02A8H  Return. 

02A9H  -   O329H    LEVEL  II  SYSTEM 

ROUTINE-ENTRY  POINT  -  02B2H 

02A9H  -   02ABH    Go  read  the  execution  address  from  the  cassette  and 
return  with  it  in  register  pair  HL. 

02ACH  -  02AEH  Save  the  execution  address  in  register  pair  HL. 

02AFH  "  02B1H  Go  turn  off  the  cassette  motor. 

02B2H  -  02Bto  Go  call  the  DOS  link  at  41E2H. 

02B5H  -  02B7H  Set  the  stack  pointer  to  4288H. 

02B8H  -  02BAH    Go  display  a  carriage  return  on  the  video  display  if 
necessary. 

02BBH  -  '02BCH    Load  register  A  with  an  *  character. 

02BDH  -   02BFH    Go  display  the  *  character  in  register  A  on  the  video 
display. 

02C0H  "   02C2H    Go  get  the  input  from  the  keyboard. 

02C3H  -   02C5H    Go  to  the  Level  II  BASIC  READY  routine  if  the 
BREAK  key  was  pressed. 

02C6H  Go  bump  the  input  buffer  pointer  in  register  pair  HL 

till  it  points  to  the  first  character  input. 

02C7H  -   02C9H    Go  to  the  Level  II  BASIC  error  routine  and  display  a 
SN  ERROR  message  if  there  wasn't  any  input. 

02CAH  -   02CBH    Check  to  see  if  the  character  at  the  location  of  the 
input  buffer  pointer  in  register  A  is  a  /  character. 

02CCH  -   02CDH  Jump  if  the  character  at  the  location  of  the  input 
buffer  pointer  in  register  A  is  a  /  character. 

02CEH  --  02D0H   Go  turn  on  the  cassette  motor. 

02D1H  -   02D3H   Go  read  a  byte  from  the  cassette  and  return  with  it  in 
register  A. 

02D4H  -   02D5H   Check  to  see  if  the  byte  read  from  the  cassette  in 
register  A  is  a  header  byte. 

02D6H  -   02D7H   Loop  till  the  header  byte  is  found. 
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02D8H  -  02D9H  Load  register  B  with  the  length  of  the  filename  to 
read  from  the  cassette. 

02DAH  Load  register  A  with  the  character  at  the  location  of 

the  current  input  buf  er  pointer  in  register  pair  HL. 

02DBH  Check  to  see  if  the  character  at  the  location  of  the 

current  input  buffer  pointer  in  register  A  is  £ji  end  of 
input  character. 

02DCH  -  02DDH  Jump  if  the  character  at  the  location  of  the  current 
input  buffer  pointer  in  register  A  is  an  end  of  input 
character. 

02DEH  -  02E0H  Go  read  a  byte  from  the  cassette  and  return  with  it  in 
register  A. 

02E1H  Check  to  see  if  the  character  at  the  location  of  the 

current  input  buffer  pointer  in  register  pair  HL  is  the 
same  as  the  character  read  from  the  cassette  in 
register  A. 

02E2H  -  02E3H  Jump  if  the  character  at  the  location  of  the  current 
input  buffer  pointer  in  register  pair  HL  isn't  the  same 
as  the  character  read  from  the  cassette  in  repster  A. 

02E^H  Bump  the  input  buffer  pointer  in  register  pair  HL. 

02E5H  -  02E6H  Loop  till  the  whole  of  the  filename  has  been  read 
from  the  cassette  and  checked  against  the  user  re- 
sponse. 

02E7H  -   02E9H   Go  blink  the  *  on  the  video  display. 

02EAH  -  02ECH  Go  read  a  byte  from  the  cassette  recorder  and  return 
with  it  in  register  A. 

02SDH  -  02EEH  Check  to  see  if  the  byte  read  from  the  cassette  in 
register  A  is  an  execution  address  header  byte. 

02EFH  -  02F0H  Jump  if  the  byte  read  from  the  cassette  in  register  A 
is  an  execution  address  header  byte. 

02F1H  -  02F2H  Check  to  see  if  the  byte  read  from  the  cassette  in 
register  A  is  a  file  block  header  byte. 

02F3H  -  02F^H  Loop  till  either  an  execution  address  header  byte  or 
a  file  block  header  byte  is  read  from  the  cassette. 

02F5H  -  02F7H  Go  read  a  byte  from  the  cassette  and  return  with  the 
number  of  bytes  to  be  loaded  in  register  B. 

02F8H  Load  register  B  with  the  number  of  bytes  to  be 

loaded  in  register  A. 

02F9H  -   02FBH    Go  read  the  file  block's  starting  address  from  the 
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cassette  and  return  with  it  in  register  pair  HL. 

02FCH  Add  the  LSB  of  the  file  block's  starting  address  in 

register  L  to  the  MSB  of  the  file  block's  starting 
address  in  register  A. 

02FDH  Load  register  C  with  the  file  block's  starting 

checksum  in  register  A. 

02FEH  -  O3OOH  Go  read  a  byte  from  the  cassette  and  return  with  it  in 
register  A. 

03  OIH  Save  the  byte  read  from  the  cassette  in  register  A  at 

the  location  of  the  memory  pointer  in  register  pair 
HL. 

O302H  Bump  the  memory  pointer  in  register  pair  HL. 

03  03H  Add  the  value  of  the  current  checksum  in  register  C 

to  the  value  in  register  A. 

030 to  Load  register  C  with  the  updated  checksum  in  reg- 

ister A. 

O305H  "   O306H    Loop  till  the  whole  file  block  has  been  read. 

O307H  -  O3O9H  Go  read  the  checksum  from  the  cassette  and  return 
with  it  in  register  A. 

03  OAK  Check  to  see  if  the  computed  checksum  in  register  C 

is  the  same  as  the  checksum  read  from  the  cassette 
in  register  A. 

O3OBH  -  O3OCH  Jump  if  the  computed  checksum  in  register  C  is  the 
same  as  the  checksum  read  from  the  cassette  in 
register  A. 

O3ODH  -   03  OEM  Load  register  A  with  a  C  character. 

O3OFH  -  03IIH  Display  the  C  character  in  register  A  on  the  video 
display. 

0312H  -   0313H  Jump. 

031to  -  O3I6H  Go  read  a  byte  from  the  cassette  and  return  with  it  in 
register  A. 

O317H  Load  register  L  with  the  byte  read  from  the  cassette 

in  register  A. 

O3I8H  -  O3IAH  Go  read  a  byte  from  the  cassette  and  return  with  it  in 
register  A. 

03IBH  Load  register  H  with  the  byte  read  from  the  cassette 

in  register  A. 

03ICH  Return. 

207 


031DH  I-oad  register  pair  DE  with  the  input  buffer  pointer  in 

register  pair  HL. 

03IEH  -  0320H  Load  register  pair  HL  with  the  current  execution 
address. 

O32IH  Exchange  the  execution  address  in  register  pair  HL 

with  the  input  buffer  pointer  in  register  pair  DE. 

O322H  Go  bunnp  the  current  input  buffer  pointer  in  register 

pair  HL  till  it  points  to  the  next  character. 

O323H  -  O325H  Go  evaluate  the  expression  at  the  location  of  the 
input  buffer  pointer  in  register  pair  HL  and  return 
with  the  integer  result  in  register  pair  DE;. 

O326H  -   O327H  Jump  if  there  wasn't  any  input. 

O328H  Exchange  the  input  buffer  pointer  in  register  pair  HL 

with  the  execution  address  in  register  pair  DE. 

O329H  Jump  to  the  execution  address  in  register  i>air  HL. 

032AH  -   03^7H  OUTPUT  ROUTINE 

O32AH  Save  the  value  in  register  pair  BC  on  the  stack, 

O32BH  Load  register  C  with  the  character  to  be  output  in 

register  A. 

O32CH  -«  032EH   Go  call  the  DOS  link  at  41C1H. 

O32FH  -  O33IH  Load  register  A  with  the  current  output  device 
number. 

O332H  Set  the  flags  according  to  the  current  output  device 

number  in  register  A, 

0333H  Load  register  A  with  the  character  to  be  output  in 

register  C. 

033^H  Get  the  value  from  the  stack  and  put  it  ir.  register 

pair  BC. 

0335H  -  033  7H  Jump  if  the  character  in  register  A  is  to  be  sent  to  the 
cassette. 

O338H  -  033  9H  Jump  if  the  character  in  register  A  is  to  be  sent  to  the 
printer. 

033AH  Save  the  value  in  register  pair  DE  on  the^  stack. 

033BH  "  033DH  Go  send  the  character  in  register  A  to  liie  video 
display. 

033EH  Save  the  character  in  register  A  on  the  stack. 

208 


033FH  -  03^1H   Go  update  the  current  cursor  position. 

03^2H  -   03^^H   Save  the  current  cursor  line  position  in  register  A. 

03^5H  Get  the  character  from  the  stack  and  put  it  in  register 

A. 

03^6H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  DE. 

03^7H  Return. 

03^8H  -   0357H    VIDEO  ROUTINE 

03^8H  -   03^AH    Load  register  A  with  the  32/64  character  per  line 
flag. 

034BH  -   03^CH    Set  the  flags  according  to  the  status  of  the  32/64 
character  per  line  flag  in  register  A. 

03toH  -   03^FH    Load  register  A  with  the  LSB  of  the  current  cursor 
position. 

O35OH  "   O35IH   Jump  if  this  is  the  64  character  per  line  mode. 

O352H  Divide  the  LSB  of  the  current  cursor  position  in 

register  A  by  two. 

0353H  -   035^H   Mask  the  cursor  line  position  in  register  A  for  a  32 
character  per  line. 

O355H  -   O356H    Mask  the  cursor  line  position  in  register  A  for  64 
characters  per  line. 

0357H  Return. 

0358H  -   O36OH    KEYBOARD  ROUTINE 

0358H  -   035AH   Go  call  the  DOS  link  at  41C4H. 

O35BH  Save  the  value  in  register  pair  DE  on  the  stack. 

035CH  "   035EH    Go  scan  the  keyboard. 

O35FH  Get  the  value  from  the  stack  and  put  it  in  register 

pair  DE. 

036  OH  Return. 

O36IH  "  0383H    INPUT  ROUTINE 

O36IH  Zero  register  A. 

O362H  -  036kK   Save  the  value  in  register  A  as  the  last  key  pressed. 

036^K  -   O367H   Save  the  value  in  register  A  as  the  current  cursor 
line  position. 
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0368H  -   036AH   Go  call  the  DOS  link  at  41AFH. 

O36BH  Save  register  pair  BC  on  the  stack. 

O36CH  -   O36EH   Load  register  pair  HL  with  the  starting  address  of 
the  input  buffer. 

O36FH  -   O37OH    Load  register  B  with  the  length  of  the  input  buffer. 

O37IH  -   0373H   Go  get  the  input 

037^H  Save  the  flags  on  the  stack. 

0375H  Load  register  C  with  the  length  of  the  input  in  reg- 

ister B. 

O376H  -   0377H   Zero  register  B. 

O378H  Add  the  length  of  the  input  in  register  pair  BC  to  the 

starting  address  of  the  input  buffer  in  register  pair 
HL. 

O379H  -   O37AH    Save  an  end  of  the  input  character  at  the  location  of 
the  end  of  input  pointer  in  register  pair  HL. 

O37BH  -   O37DH   Load  register  pair  HL  with  the  starting  address  of 
the  input  buffer. 

O37EH  Get  the  flags  from  the  stack. 

037-PH  Get  the  value  from  the  stack  and  put  it  in  register 

pair  BC. 

03$0H  Decrement  the  input  buffer  pointer  in  re^^ister  pair 

HL 

O38IH  Return  if  the  BREAK  key  was  pressed. 

0382H  Zero  register  A. 

0383H  Return. 

038^H  -   O38AH   KEYBOARD  ROUTINE 

038^H  -   0386H   Go  scan  the  keyboard. 

038  7H  Check  to  see  if  a  key  was  pressed. 

O388H  Return  if  a  key  was  pressed. 

O389H  -   O38AH   Loop  till  a  key  is  pressed. 

O38BH  -   O39BH   PRINTER  ROUTINE 

O38BH  Zero  register  A. 
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038  CH  -*   O38EH  Save  the  value  in  register  A  as  the  current  output 
device  code. 

O38FH  -   O39IH  Load  register  A  with  the  current  printer  carriage 

position. 

03  92H  Check  to  see  if  the  carriage  position  in  register  A  is 

equal  to  zero. 

0393H  Return  if  the  carriage  position  in  register  A  is  equal 

to  zero. 

039to  -   O395H  Load  register  A  with  a  carriage  return  character. 

O396H  Save  the  value  in  register  pair  DE  on  the  stack. 

O397H  -    O399H  Go  send  the  carriage  return  character  in  register  A 
to  the  printer. 

O39AH  Get  the  value  from  the  stack  and  put  it  in  register 

pair  DE. 

039BH  Return. 

O39CH  -  03C1H  PRINTER  ROUTINE 

O39CH  Save  the  value  in  register  pair  AF  on  the  stack. 

O39DH  Save  the  value  in  register  pair  DE  on  the  stack. 

O39BH  Save  the  value  in  register  pair  BC  on  the  stack. 

O39FH  Load  register  C  with  the  character  to  be  sent  to  the 

printer  in  register  A. 

03A0H  -   03A1H  Zero  register  E. 

03A2H  -   03A3H  Check  to  see  if  the  character  to  be  sent  to  the  printer 
in  register  A  is  equal  to  GCH. 

03A^H  -   03A5H  Jump  if  the  character  to  be  sent  to  the  printer  in 
register  A  is  equal  to  OCH. 

03A6H  "  03A7H  Check  to  see  if  the  character  to  be  sent  to  the  printer 
in  register  A  is  a  line  feed  character. 

03A8H  -   03A9H  Jump  if  the  character  to  be  sent  to  the  printer  in 
register  A  isn't  a  line  feed  character. 

03AAH  -   03ABH  Load  register  A  with  a  carriage  return  character. 

03ACH  Load  register  C  with  the  character  to  be  sent  to 

printer  in  register  A. 

03ADH  -   03AEH  Check  to  see  if  the  character  to  be  sent  to  the  printer 
in  register  A  is  a  carriage  return  character. 
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03APH  -   03B0H   Jump  if  the  character  to  be  sent  to  the  printer  in 

register  A  is  a  carriage  return  character. 

03B1H  -   03B3H   Load  register  A  with  the  current  carriage  position. 

03B^H  Bump  the  current  carriage  position  in  register  A. 

03B5H  Load  register  E  with  the  current  carriage  position  in 

register  A. 

03B6H  Load  register  A  with  the  current  carriage  position  in 

register  E. 

03B7H  "   03B9H   Save  the  current  carriage  position  in  register  A. 

03BAH  Load  register  A  with  the  character  to  be  sent  to  the 

printer  in  register  C. 

03BBH  "   03BDH    Go  send  the  character  in  register  A  to  the  printer. 

03B1H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  BC. 

03BFH  Get  the  value  from  the  stack  and  put  it  in  register 

pair  DE. 

30  OH  Get  the  value  from  the  stack  and  put  it  in  register 

pair  AF. 

03C1H  Return. 

03C2H  -   03E2H   DRIVER  ENTRY  ROUTINE 

03C2H  Save  register  pair  HL  on  the  stack. 

03C3H  -   03Cte   Save  the  value  in  register  pair  IX  on  the  stack. 

03C5H  Save  the  starting  address  of  the  device  control  block 

in  register  pair  DE  on  the  stack. 

03C6H  -   03C7H   Get  the  starting  address  of  the  device  control  block 
from  the  stack  and  put  it  in  register  pair  IX. 

03C8H  Save  the  value  in  register  pair  DE  on  th(i  stack. 

03C9H  -   03CBH  Load  register  pair  HL  with  the  return  address. 

03CCH  Save  the  return  address  in  register  pair  HL  on  the 

stack. 

03CDH  Save  the  character  to  output  in  register  A  in  register 

C. 

03CEH  Load  register  A  with  the  device  type  code  at  the 

location  of  the  device  control  block  pointer  in  regis- 
ter pair  DE. 
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03CFH  Mask  the  device  type  code  in  register  A  with  the 

driver  entry  code  in  register  B. 

03D0H  Check  to  see  if  the  updated  device  type  code  in 

register  A  is  the  same  as  the  driver  entry  code  in 
register  B. 

03D1H  -  03D3H  Jump  to  the  DOS  Hnk  at  4033H  if  the  updated  device 
type  code  in  register  A  isn't  the  same  as  the  driver 
entry  code  in  register  B. 

03Dto  -   03D5H    Reset  the  flags. 

03D6H  -  03D8H  Load  register  L  with  the  LSB  of  the  driver  entry 
address  at  the  location  of  the  device  control  block 
pointer  in  register  pair  IX  plus  one. 

03D9H  -  03DBH  Load  register  H  with  the  MSB  of  the  driver  entry 
address  at  the  location  of  the  device  control  block 
pointer  in  register  pair  IX  plus  one. 

O3DC  H  Jump  to  the  driver  entry  address  in  register  pair  HL. 

03DDH  Get  the  value  from  the  stack  and  put  it  in  register 

pair  DE. 

03DSH  -  03DFH  Get  the  value  from  the  stack  and  put  it  in  register 
pair  IX. 

O3EOH  Get  the  value  from  the  stack  and  put  it  in  register 

pair  HL. 

03EIH  Get  the  value  from  the  stack  and  put  it  in  register 

pair  BC. 

03E2H  Return. 

03E3H  -   0^57H    KEYBOARD  DRIVER 

03B3H  -  03E5H  Load  register  pair  HL  with  the  keyboard  work  area*s 
starting  address. 

03E6H  -  03E8H  Load  register  pair  BC  with  the  keyboard  memory's 
starting  address. 

03S9H  -   03EAH   Zero  register  D. 

O3EBH  Load  register  A  with  the  value  at  the  location  of  the 

keyboard  memory  pointer  in  register  pair  BC. 

O3ECH  Load  register  E  with  the  keyboard  memory  value  in 

register  A. 

03EDH  Check  for  inequality  by  XORing  the  value  at  the 

location  of  the  keyboard  work  area  pointer  in  regis- 
ter pair  HL  with  the  keyboard  memory  value  in 
register  A. 
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03EEH  Save  the  keyboard  memory  value  in  register  E  at  the 

location  of  the  keyboard  work  area  pointer  :in  regis- 
ter pair  HL. 

3EFH  Mask  the  adjusted  value  in  register  A  with  the  value 

at  the  location  of  the  keyboard  work  area  pointer  in 
register  pair  HL. 

03F0H  "   03F1H  Jump  if  a  new  key  has  been  pressed. 

03F2H  Bump  the  keyboard  row  counter  in  registe^r  D. 

03F3H  Bump  the  keyboard  work  area  pointer  in  register 

pair  HL 

03F^H  -  03F5H  Adjust  the  keyboard  memory  pointer  in  register  pair 
BC. 

03F6H  -  03F8H  Jump  if  the  whole  of  keyboard  memory  has.n't  been 
checked. 

03F9H  Return. 

03  FAH  Save  the  column  number  in  register  A  in  register  E. 

03FBH  Load  register  A  with  the  row  counter  in  register  D. 

03FCH  Multiply  the  row  counter  in  register  A  by  two. 

03FDH  Multiply  the  row  counter  in  register  A  by  two. 

03FEH  Multiply  the  row  counter  in  register  A  by  two, 

03FFH  Load  register  D  with  the  row  counter  in  re^:ister  A. 

040  OH  -   0401H  Load  register  C  with  the  starting  column  counter. 

OkOZE  Load  register  A  with  the  column  counter  in  register 

C. 

0J^03H  Check  to  see  if  the  column  counter  in  register  A  is 

the  same  as  the  active  column  number  in  register  E, 

0404H  -►  0405H  Jump  if  the  column  counter  in  register  A  is  i:he  same 
as  tne  active  column  number  in  register  E, 

0406H  Bump  the  value  in  register  D. 

Ql^O'^K  -  0408H  Adjust  the  column  counter  in  register  C. 

QlfOpH  -   040AH  Loop  till  the  value  in  register  D  is  adjusted  for  it's 
column. 

040BH  -   O^ODH  Load  register  A  with  the  value  ofthe  SHIFT  memory 
location. 
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O^OEH  Load  register  B  with  the  SHIFT  value  in  register  A. 

040FH  Load  register  A  with  the  value  in  register  D. 

0^1  OH  -  O^llH  Adjust  the  ASCII  value  in  register  A. 

0^12H  -  04l3H  Check  to  see  if  the  value  in  register  A  is  alphabetic. 

O^l^H  -  0^15H  Jump  if  the  value  in  register  A  is  nonalphabetic. 

0^16H  -  0^17H  Put  the  SfflFT  value  in  register  Bin  the  carry  flag. 

0^18H  -  0^19H  Jump  if  the  SfflFT  key  wasn't  pressed. 

O^IAH  -  04lBH  Adjust  the  value  in  register  A  for  lower  case. 

O^ICH  Load  register  D  with  the  adjusted  character  in  reg- 

ister A. 

O^IDH  -   O^IFH   Load  register  A  with  the  value  at  keyboard  memory 
row  six. 

0^'20K  -  0421H  Check  to  see  if  the  down  arrow  key  was  pressed. 

0^22H  -  0^23H  Jump  if  down  arrow  wasn't  pressed. 

O^ZkK  Load  register  A  with  the  character  in  register  D. 

0425H  -  0^26H  Adjust  the  value  of  the  character  in  register  A. 

0427H  -  0^28H  Jump. 

042  9H  -  042AH  Adjust  the  value  of  the  character  in  register  A. 

042BH  -   042CH  Jump  if  the  character  in  register  A  is  for  keyboard 
row  six. 

042DH  -   042EH    Readjust  the  value  of  character  in  register  A. 

042PH  -   0^3  OH   Check  to  see  if  the  character  in  register  A  is  0  - , 
character. 

O43IH  -   0^'3ZK  Jump  if  the  character  in  register  A  is  a  0-,  character. 

0433H  -   0434H    Adjust  the  character  in  register  A. 

04'35H  -   O436H    Put  the  SfflFT  value  in  register  B  into  the  Carry 
flag. 

0^3  7H  -   O438H   Jump  if  the  SfflFT  key  wasn't  pressed. 

043  9H  -   0^3 AH   Adjust  the  character  in  register  A. 
043BH  -   043CH  Jump. 
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0^3DH  Adjust  the  value  in  register  A. 

043EH  "  0^3FH  Put  the  SHIFT  value  in  register  B  into  the  Carry 
flag. 

Ql^kOE  -   O^^IH  Jump  if  the  SfflFT  key  wasn't  pressed. 

0^2H  Bump  the  value  in  register  A. 

0^'^'3E  ~  0^^5H  Load  register  pair  HL  with  the  starting  address  of 
the  keyboard  lookup  table. 

0^^6H  Load  register  C  with  the  offset  in  register  A. 

04^7H  -  04^8H  Zero  register  B. 

O/f/l-pH  Add  the  offset  in  register  pair  BC  to  the:  starting 

address  of  the  keyboard  lookup  table  in  register  pair 
HL. 

O^J^-AH  Load  register  A  with  the  ASCII  value  at  the  location 

of  die  keyboard  lookup  table  pointer  in  register  pair 
HL. 

0^'^'BK  Load  register  D  with  the  ASCII  value  fo;:  the  key 

pressed  in  register  A. 

044CH  "   04^EH  Load  register  pair  BC  with  the  delay  couat. 

044FH  -   O45IH  Go  delay. 

OkSZE  Load  register  A  with  the  ASCII  value  for  the  key 

pressed  in  register  D. 

0^53H  -   045te  Check  to  see  if  the  BREAK  key  was  pressed. 

0^55H  Return  if  the  BREAK  key  wasn't  pressed. 

0k56K  Go  if  the  BREAK  key  was  pressed. 

Oi^57H  Return. 

0^58H  -   O58CH  VIDEO  DRIVER 

Qk^SE  -  0^5AH  Load  register  L  with  the  LSB  of  the  current  cursor 
position  at  the  location  of  the  video  devic:e  control 
block  pointer  in  register  pair  IX  plus  three. 

O^-SBH  -  045DH  Load  register  H  with  the  MSB  of  the  current  cursor 
position  at  the  location  of  the  video  device  control 
block  pointer  in  register  pair  IX  plus  foui*. 

0^5EK  -   0^5FH  Jump  if  get  last  character. 

0^4-6 OH  -   0462H  Load  register  A  with  the  cursor  on/off  flag  at  die 
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location  of  the  video  device  control  block  pointer  in 
register  pair  IX  plus  five. 

0^63H  Check  to  see  if  the  cursor  is  on  or  off. 

Qk6kE  "   0^65H  Jump  if  the  cursor  is  off. 

0^66H  Display  the  character  in  register  A  at  the  location  of 

the  current  cursor  position  in  register  pair  HL. 

046 7H  Load  register  A  with  the  character  to  be  displayed  in 

register  C. 

0468H  -  0^6  9H  Check  to  see  if  the  character  to  be  displayed  in 
register  A  is  a  control  code. 

046AH  -  046CH  Jump  if  the  character  to  be  displayed  in  register  A  is 
a  control  code. 

046DH  -  046EH  Check  to  see  if  the  character  to  be  displayed  in 
register  A  is  a  graphic  character  or  space  compres- 
sion code. 

0^6  PH  "  0^7  OH  Jump  if  the  character  to  be  displayed  in  register  A  is 
a  graphic  character  or  space  compression  code. 

O47IH  -  O472H  Check  to  see  if  the  character  to  be  displayed  in 
register  A  is  an  alphabetic  character. 

0473H  -  047^H  Jump  ifthe  character  to  be  displayed  in  register  A  is 
a  nonalphabetic  character. 

0475H  -  O476H  Adjust  the  alphabetic  character  in  register  A  so  that 
it  will  be  in  the  range  of  from  0  to  25. 

0477H  -  O478H  Check  to  see  if  the  character  to  be  displayed  in 
register  A  is  a  lower  case  character, 

O479H  -  047AH  Jump  if  the  character  to  be  displayed  in  register  A 
isn't  lower  case. 

047BH  -  0^7  CH  Convert  the  lower  case  character  in  register  A  to 
upper  case. 

047DH  -  047FH  Go  display  the  character  in  register  A. 

0^8  OH  Load  register  A  with  the  MSB  of  the  current  cursor 

position  in  register  H. 

0481H  -  0482H  Mask  the  value  in  register  A  so  that  it  will  be  in  the 
range  of  video  memory. 

0483H  -  0484H  Make  sure  that  the  value  in  register  A  will  point  to 
video  memory. 

048  5H  Load  register  H  with  die  updated  value  in  register  A. 
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0^86H  Load  register  D  with  the  value  at  the  location  of  the 

current  cursor  position  in  register  pair  J^L. 

048  7H  «-  048  9H  Load  register  A  with  the  cursor  on/off  flag  at  the 
location  of  the  video  device  control  block  pointer  in 
register  pair  IX  plus  five. 

048AH  Check  to  see  if  the  cursor  is  on  or  off. 

048BH  -  048  CH    Jump  if  the  cursor  is  off. 

048DH  -  048FH  Save  the  character  being  displayed  in  reipster  D  as 
the  cursor  on/off  flag  at  the  location  oi  the  video 
device  control  block  pointer  in  register  pair  IX  plus 
five. 

O49OH  "  O49IH  Display  the  cursor  character  at  the  current  location 
of  the  cursor  in  register  pair  HL, 

0492H  -  0494H  Save  the  LSB  of  the  current  cursor  position  in  reg- 
ister L  at  the  location  of  the  video  device  control 
block  in  register  pair  IX  plus  three. 

0495H  -  0497H  Save  the  MSB  of  the  current  cursor  position  in  reg- 
ister H  at  the  location  of  the  video  device  control 
block  in  register  pair  IX  plus  four. 

O498H  Load  register  A  with  the  character  that  was  dis- 

played in  register  C. 

0499H  Return. 

049AH  "   049CH    Load  register  A  with  the  cursor  on/off  1:lag. 

O49DH  Check  to  see  if  the  cursor  is  on  or  off. 

049EH  Return  if  the  cursor  is  on. 

O49FH  Load  register  A  with  the  character  at  the  location  of 

the  current  cursor  position  in  register  pair  HL. 

04A0H  Return, 

04A1H  Load  register  A  with  the  LSB  of  the  current  position 

in  register  L. 

04A2H  -  04A3H  Mask  the  value  in  register  A  so  that  it  mil  point  to 
the  beginning  of  the  line. 

04a4H  Load  register  L  with  the  updated  value  in  register  A. 

04A5H  Return. 

04a6H  ~  04A7H  Check  to  see  if  the  character  to  be  displayed  in 
register  A  is  a  space  compression  character. 
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0^A8H  *•  04A9H  Jump  if  the  character  to  be  displayed  in  register  A 
isn't  a  space  compression  character, 

O^AAH  -  O^ABH  Adjust  the  value  in  register  A  so  that  it  will  hold  the 
number  of  spaces  to  be  displayed. 

O^ACH  -  O^ADH  Jump  if  there  aren't  any  spaces  to  be  displayed, 

O^AEH  Load  register  B  with  the  number  of  spaces  to  be 

displayed  in  register  A. 

04AFH  -   O^BOH  Load  register  A  with  a  space  character. 

O^BIH  -   0^B3H  Go  display  the  character  in  register  A. 

04b4H  -   04B5H  Loop  till  all  of  the  spaces  have  been  displayed. 

0^B6H  -  0^B7H  Jump. 

O^-BSH  Load  register  A  with  the  character  being  displayed 

at  the  location  of  the  current  cursor  position  in  reg- 
ister pair  HL. 

0^B9H  -  O^BBH  Save  the  value  in  register  A  as  the  cursor  on/off  flag 
at  the  location  of  Sie  video  device  control  block 
pointer  in  register  pair  IX  plus  five. 

O^BCH  Return. 

O^BDH  Zero  register  A. 

O^BEH  -   O^BFH  Jump. 

O^COH  -  0^C2H  Load  register  pair  HL  with  the  starting  address  of 
video  memory. 

0^C3H  -  0^C5H  Load  register  A  with  the  32/64  character  per  line 
flag. 

0^C6H  -  0^C7H  Adjust  the  value  in  register  A  for  64  characters  per 
line. 

04-08  H  -  O^CAH  Save  the  value  in  register  A  as  the  32/64  character 
per  line  flag. 

O^CBH  -   O^CCH  Send  the  value  in  register  A  out  the  cassette  port. 

O^CDH  Return. 

O^CEH  Decrement  the  current  cursor  position  in  register 

pair  HL. 

O^CFH  -  O^DIH  Load  register  A  with  the  32/64  character  per  line 
flag. 

0to2H  ,-   04D3H  Check  to  see  if  it's  32  or  64  characters  per  line. 
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O^D'^H  -  04D5H  Jump  if  it's  64  characters  per  line. 

Oto6H  Decrement  the  current  cursor  position  in  register 

pair  HL. 

Oto7H  -   04d8H   Display  a  space  character  at  the  location  oi*  current 
cursor  position  in  register  pair  HL. 

Oto9H  Return. 

04DAH  "   OtoCH    Load  register  A  with  the  32/64  character  per  line 
flag. 

OtoDH  -   OtoEH   Check  to  see  if  it's  32  or  64  characters  per  line. 

OtoFH  -   O^EIH   Go  if  it's  32  characters  per  line. 

0^E2H  Load  register  A  with  the  LSB  of  the  current  cursor 

position  in  register  L. 

0J^E3H  -   O^E^H   Mask  the  value  in  register  A. 

04E5H  Decrement  the  current  cursor  position  in  register 

pair  HL. 

04e6H  Return  if  still  on  the  same  line. 

0^S7H  -   0te9H   Load  register  pair  DE  with  the  length  of  a  line  on  the 
video  display. 

QJ^-EAH  Add  the  length  of  a  line  on  the  video  display  in 

register  pair  DE  to  the  current  cursor  position  in 
register  pair  HL. 

04EBH  Return. 

O^ECH  Bump  the  current  cursor  position  in  register  pair 

HL. 

O^EDH  Load  register  A  with  the  LSB  of  the  current  cursor 

position  in  register  L. 

OJ^EEH  -  ^EFH      Check  to  see  if  the  cursor  is  still  on  the  same  line. 

O^FOH  Return  if  the  cursor  is  still  on  the  same  line. 

O'^FIH  -   0^F3H    Load  re^ster  pair  DE  with  a  negative  lengtli  of  a  line 
on  the  video  display. 

Q/fpifH  Add  the  negative  length  of  a  line  on  the  video  display 

in  register  pair  DE  to  the  current  cursor  position  in 
register  pair  HL. 

0^F5H  Return. 
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0^F6H  "  04F8H  Load  register  A  with  the  32/64  character  per  line 
flag. 

0^F9H  -  O^FAH  Adjust  the  value  in  register  A  for  32  characters  per 
line. 

O^FBH  -  O^FDH  Save  the  value  in  register  A  as  the  32/64  character 
per  line  flag. 

O^FEH  -   O^FFH    Send  the  value  in  register  A  out  the  cassette  port. 

O5OOH  Bump  the  current  cursor  position  in  register  pair 

HL. 

O5OIH  Load  re^ster  A  with  the  LSB  of  the  current  cursor 

position  in  register  L. 

O502H  -   O503H    Make  the  value  in  register  A  an  even  value. 

050^H  Load  register  L  with  the  updated  value  in  register  A. 

O505H  Return. 

O506H  -   O5O8H    Load  register  pair  DE  with  the  return  address. 

O509H  Save  the  return  address  in  register  pair  DE  on  the 

stack. 

O5OAH  -  05OBH  Check  to  see  if  the  character  in  register  A  is  a 
backspace  and  erase  character. 

O5OCH  -  O5ODH  Jump  if  the  character  to  be  displayed  in  register  A  is 
a  backspace  cursor  and  erase  character. 

O5OEH  -  O5OFH  Check  to  see  if  the  character  in  register  A  is  less 
than  a  line  feed  character. 

O5IOH  Return  if  the  character  to  be  displayed  in  register  A 

is  less  than  a  line  feed  character. 

05IIH  "  O512H  Check  to  see  if  the  character  to  be  displayed  in 
register  A  is  less  than  or  equal  to  a  turn  on  the  cursor 
character. 

O513H  -  051^H  Jump  if  the  character  to  be  displayed  in  register  A  is 
less  than  a  turn  on  the  cursor  character  so  that  a 
carriage  return  will  be  displayed. 

O515H  -  O516H  Jump  if  the  character  to  be  displayed  in  register  A  is 
a  turn  on  the  cursor  character. 

O517H  -  O5I8H  Check  to  see  if  the  character  in  register  A  is  a  turn  off 
the  cursor  character. 

O5I9H  -  05IAH  Jump  if  the  character  to  be  displayed  in  register  A  is 
a  turn  off  the  cursor  character. 
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051BH  -  051CH  Check  to  see  if  the  character  to  be  displayed  m 
register  A  is  a  turn  on  the  32  character  per  line  mode 
character. 

05IDH  -  05IEH  Jump  if  the  character  to  be  displayed  in  regiister  A  is 
a  turn  on  the  32  character  per  line  mode  character. 

05IFH  -  052 OH  Check  to  see  if  the  character  to  be  displayed  in 
register  A  is  a  left  arrow  character. 

O52IH  -  O522H  Jump  if  the  character  to  be  displayed  in  register  A  is 
a  left  arrow  character. 

O523H  -  0524H  Check  to  see  if  the  character  to  be  displayed  in 
register  A  is  a  right  arrow  character. 

O525H  -  O526H  Jump  if  the  character  to  be  displayed  in  register  A  is 
a  right  arrow  character. 

O527H  -  O528H  Check  to  see  if  the  character  to  be  displayed  in 
register  A  is  a  down  arrow  character. 

052  9H  -    052 AH  Jump  if  the  character  to  be  displayed  in  register  A  is 

a  down  arrow  character. 

O52BH  -  O52CH  Check  to  see  if  the  character  to  be  displayed  in 
register  A  is  an  up  arrow  character. 

O52DH  -  O52EH  Jump  if  the  character  to  be  displayed  in  register  A  is 
an  up  arrow  character. 

O52FH  "  053  OH  Check  to  see  if  the  character  to  be  displayed  in 
register  A  is  a  home  the  cursor  character. 

O53IH  -  O532H  Jump  if  the  character  to  be  displayed  in  regster  A  is 
a  home  the  cursor  character, 

0533H  -  053^H  Check  to  see  if  the  character  to  be  displayed  in 
register  A  is  a  backspace  to  the  beginning  cf  the  line 
character. 

053  5H  -   053  7H  Jump  if  the  character  to  be  displayed  in  register  A  is 

a  backspace  to  the  beginning  of  the  line  character. 

O538H  -  O539H  Check  to  see  if  the  character  to  be  displayed  in 
register  A  is  an  erase  to  the  end  of  the  line  character. 

053AH  «•  053BH  Jump  if  the  character  to  be  displayed  in  register  A  is 
an  erase  to  the  end  of  the  line  character. 

O53GH  -  053DH  Check  to  see  if  the  character  to  be  displayed  in 
register  A  is  an  erase  to  the  end  of  the  screen 
character. 

053EH  •"  O53FH  Jump  if  the  character  to  be  displayed  in  register  A  is 
an  erase  to  the  end  of  the  screen  character. 
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05^0H  Return  if  the  character  to  be  displayed  isn't  any  of 

the  above  control  codes. 

05^1H  Display  the  character  in  register  A  at  the  location  of 

the  current  cursor  position  in  register  pair  HL. 

05^2H  Bump  the  current  cursor  position  in  register  pair 

HL. 

O543H  -   05^5H    Load  register  A  with  the  32/64  character  per  line 
flag. 

05^6H  -   05^7H    Check  to  see  if  it's  32  or  64  characters  per  line. 

05^8H  -   05^9H   Jump  if  it's  64  characters  per  line. 

05^AH  Bump  the  current  cursor  position  in  register  pair 

HL. 

05^BH  Load  register  A  with  the  MSB  of  the  current  cursor 

position  in  register  H. 

05^CH  -   OStoH    Check  to  see  ifthe  end  ofvideo  memory  plus  one  has 
been  reached. 

05^SH  Return  if  the  end  of  video  memory  plus  one  hasn't 

been  reached. 

05^FH  -   O55IH    Load  re^ster  pair  DE  with  a  negative  length  of  a  line 
on  the  video  display. 

O552H  Add  the  negative  length  of  a  line  on  the  video  display 

in  register  pair  DE  to  the  current  cursor  position  in 
register  pair  HL. 

0553H  Save  the  current  cursor  position  in  register  pair  HL 

on  the  stack. 

055^H  -   O556H   Load  register  pair  DE  with  the  starting  address  of 
video  memory. 

0557H  -   O559H    Load  register  pair  HL  with  the  starting  address  of 
the  second  line  of  the  video  memory. 

O55AH  Save  the  value  in  register  pair  BC  on  the  stack. 

O55BH  -   O55DH   Load  register  pair  BC  with  the  length  of  video  mem- 
ory to  be  moved. 

O553H  -"   O55FH   Move  the  last  fifteen  lines  of  video  memory  to  the 
first  fifteen  lines  of  video  memory. 

056  OH  Get  the  value  from  the  stack  and  put  it  in  register 

pair  BC. 

O56IH  Load  register  pair  HL  with  the  starting  address  of 

the  sixteenth  line  of  video  memory. 
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0562H  -  0563H  Jump. 

056^H  Load  register  A  with  the  LSB  of  the  current  cursor 

position  in  register  L. 

O565H  -   O566H    Adjust  the  value  in  register  A  so  that  it's  the  start  of 
the  current  line. 

O567H  Load  register  L  with  the  updated  value  in  register  A. 

O568H  Save  the  current  cursor  position  in  register  pair  HL 

on  the  stack. 

O569H  -   O56BH    Load  register  pair  DE  with  the  length  of  a  line  on  the 
video  display. 

O56CH  Add  the  length  of  a  line  on  the  video  display  in 

register  pair  DE  to  the  current  cursor  position  in 
register  pair  HL. 

O56DH  Load  register  A  with  the  MSB  of  the  curre:nt  cursor 

position  in  register  H. 

O56EH  -   O56FH   Check  to  see  ifthe  end  ofvideo  memory  plus  one  has 
been  reached. 

O57OH  -   O57IH  Jump  if  the  end  of  video  memory  plus  one  has  been 
reached. 

O572H  Get  the  cursor  position  from  the  stack  and  put  it  in 

register  pair  DE. 

O573H  Save  the  new  cursor  position  in  register  pair  HL  on 

the  stack. 

057i^H  Load  register  D  with  the  MSB  of  the  current  cursor 

position  in  register  H. 

0575H  Load  register  A  with  the  LSB  of  the  current  cursor 

position  in  register  L. 

O576H  "   0577H   Mask  the  value  in  register  A. 

O578H  Save  the  updated  value  in  register  A  in  re:gister  E. 

O579H  Bump  the  adjusted  cursor  position  in  register  pair 

DE. 

057AH  -   057BH  Jump. 

O57CH  Save  the  cursor  position  in  register  pair  HL  on  the 

stack. 

C57DH   "   O57FH  Load  register  pair  DE  with  the  end  ofvideo  memory 
plus  one. 
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058  OH  -  0581H  Display  a  space  at  the  video  memory  pointer  in 
register  pair  HL. 

058  2H  Bump  the  video  memory  pointer  in  register  pair  HL. 

O583H  Load  register  A  with  the  MSB  of  the  video  memory 

pointer  m  register  H. 

0584H  Check  to  see  if  the  MSB  of  the  video  memory  pointer 

in  register  A  is  the  same  as  the  MSB  of  the  ending 
memory  pointer  in  register  D. 

058 5H  -  O586H  Jump  if  the  MSB  of  the  video  memory  pointer  in 
register  A  isn't  the  same  as  the  MSB  of  the  ending 
memory  pointer  in  register  D. 

0587H  Load  register  A  with  the  LSB  of  the  video  memory 

pointer  in  register  L. 

O588H  Check  to  see  if  the  LSB  of  the  video  memory  pointer 

in  register  A  is  the  same  as  the  LSB  of  the  ending 
memory  pointer  in  register  E. 

O589H  -  O58AH  Jump  if  the  LSB  of  the  video  memory  pointer  in 
jegister  A  isn't  the  same  as  the  LSB  of  the  ending 
memory  pointer  in  register  E. 

O58BH  Get  the  current  cursor  position  from  the  stack  and 

put  it  in  register  pair  HL. 

058CH  Return. 

058DH  -   05D8H   PRINTER  DRIVER 

O58DH  Load  register  A  with  the  character  to  be  sent  to  the 

printer  in  register  C. 

O58IH  Check  to  see  if  the  character  to  be  sent  to  the  printer 

is  equal  to  zero. 

O58FH  -  O59OH  Jump  if  the  character  to  be  sent  to  the  printer  in 
register  A  is  equal  to  zero. 

O59IH  "  O592H  Check  to  see  if  the  character  to  be  sent  to  the  printer 
in  register  A  is  a  skip  to  the  top  of  the  form  charac- 
ter. 

0593H  -  059to  Jump  if  the  character  to  be  sent  to  the  printer  in 
register  A  is  a  skip  to  the  top  of  the  form  character. 

0595H  "  O596H  Check  to  see  if  the  character  to  be  sent  to  the  printer 
in  register  A  is  a  conditional  skip  to  the  top  of  the 
form  character. 

O597H  -   O598H  Jump  if  the  character  to  be  sent  to  the  printer  in 
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register  A  isn't  a  conditional  skip  to  the  tcp  of  the 
form  character. 

0599H  Zero  register  A. 

059AH  -  O59GH  Check  to  see  if  the  number  of  lines  per  page  at  the 
location  of  the  printer  device  control  block  pointer  in 
register  pair  IX  plus  three  is  the  same  as  the  value  in 
register  A. 

O59DH  -  O59EH  Jump  if  the  number  of  lines  per  page  at  the  location  of 
the  printer  device  control  block  pointer  in  register 
pair  IX  plus  three  is  the  same  as  the  value  in  register 
A. 

O59FH  •-  05AIH  Load  register  A  with  the  number  of  lines  per  page  at 
the  location  of  the  printer  device  control  block  in 
register  pair  IX  plus  three. 

05A2H  -  05A^H  Subtract  the  lines  printed  so  far  at  the  location  of  the 
printer  device  control  block  pointer  in  register  pair 
IX  plus  four  from  the  number  of  lines  per  page  in 
register  A, 

05A5H  Load  register  B  with  the  number  of  lines  to  skip. 

05A6H  -  05A8H  Go  check  the  printer  status. 

05A9H  -  05AAK  Loop  until  the  printer  is  ready. 

05ABH  -  05ACH  Load  register  A  with  a  line  feed  character. 

05ADH  -  05AFH  Send  the  value  in  register  A  to  the  printer. 

05B0H  -  05B1H  Loop  until  all  of  the  lines  have  been  skipped. 

05B2H  -  05B3H  Jump. 

05B^H  Save  the  character  to  be  sent  to  the  printer  in  regis- 

ter A  on  the  stack. 

05B5H  -  05B7H  Go  check  the  printer  status. 

05B8H  -  05B9H  Loop  until  the  printer  is  ready. 

05BAH  Get  the  character  to  be  sent  to  the  printer  from  the 

stack  and  put  it  in  register  A. 

05BBH  -  05BDH  Send  the  character  in  register  A  to  the  printer. 

05BEH  -   05BFH  Check  to  see  ifthe  character  sent  to  the  printer  was  a 
carriage  return. 

050  OH  Return  if  the  character  sent  to  the  printer  in  register 

A  isn't  a  carriage  return. 
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05C1H  -  05C3H  Bump  the  number  of  lines  printed  so  far  at  the  loca- 
tion of  the  printer  device  control  block  pointer  in 
register  pair  IX  plus  four, 

05C^H  -  05C6H  Load  register  A  with  the  number  of  lines  printed  so 
far  at  the  location  of  the  printer  device  control  block 
pointer  in  register  pair  IX  plus  four. 

05c 7H  -  05c 9H  Check  to  see  if  the  number  of  lines  printed  so  far  in 
register  A  is  the  same  as  the  number  of  lines  per 
page  at  the  location  of  the  printer  device  control 
block  pointer  in  register  pair  IX  plus  three. 

05CAH  Load  register  A  with  the  character  sent  to  the 

printer  in  register  C. 

05CBH  Return  if  die  number  of  lines  printed  so  far  isn't  the 

same  as  the  number  of  lines  per  page. 

05CCH  "  05CFH  Zero  the  number  of  lines  printed  so  far  at  die  location 
of  the  printer  device  control  block  pointer  in  register 
pair  IX  plus  four. 

05D0H  Return. 

05D1H  -  05D3H  Get  the  value  from  the  printer  and  put  it  in  register 
A. 

05D^H  -  05D5H  Mask  the  value  in  register  A. 

05D6H  -  05D7H  Check  to  see  if  the  printer  is  ready. 

05D8H  Return. 

05D9H  -  0673H  INPUT  ROUTINE 

05D9H  Save  the  start  of  the  input  buffer  area  pointer  in 

register  pair  HL  on  the  stack. 

05DAH  -   05DBH    Load  register  A  with  a  turn  on  the  cursor  character. 

05DCH  -   05DEH    Go  turn  on  die  cursor. 

05DFH  Load  register  C  with  the  size  of  the  input  buffer  in 

register  B. 

O5SOH  -   05E2H   Go  wait  till  a  key  is  pressed. 

05E3H  "  05E^H  Check  to  see  ifthe  key  that  was  pressed  in  register  A 
is  greater  than  a  space. 

05E5H  -  05H6H  Jump  if  the  key  that  was  pressed  in  register  A  is 
greater  than  or  equal  to  a  space. 

05E7H  -  05B8H  Check  to  see  ifthe  key  that  was  pressed  in  register  A 
is  a  carriage  return. 
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05E9H  -   05EBH   Jump  if  the  key  that  was  pressed  in  register  A  is  a 
carriage  return. 

05ECH  -  05EDH    Check  to  see  if  the  key  that  was  pressed  in  register  A 
is  the  CLEAR  key. 

05EEH  -   05EFH    Jump  if  the  key  that  was  pressed  in  register  A  is  the 
CLEAR  key. 

05F0H  -  05E1H    Check  to  see  ifthe  key  that  was  pressed  in  register  A 
is  the  BREAK  key. 

05F2H  -   05F3H    Jump  if  the  key  that  was  pressed  in  register  A  is  the 
BREAK  key. 

05F4H  -   05F6H    Load  register  pair  DE  with  the  return  address. 

05F7H  Save  the  return  address  in  register  pair  E»E  on  the 

stack. 

05F8H  -   05F9H    Check  to  see  if  the  key  that  was  pressed  in  register  A 
is  a  backspace  the  cursor  and  erase  character. 

05FAH  "   05FBH    Jump  if  the  key  was  pressed  in  register  A  is  a 
backspace  the  cursor  and  erase  character. 

05FCH  -   05FDH    Check  to  see  if  the  key  that  was  pressed  in  register  A 
is  a  backspace  character. 

05FEH  "   05FFH    Jump  if  the  key  that  was  pressed  in  regis'cer  A  is  a 
backspace  character. 

060  OH  -   0601H    Check  to  see  if  the  key  that  was  pressed  in  register  A 
is  a  tab  character. 

0602H  -   O603H    Jump  ifthe  key  that  was  pressed  in  register  A  is  a  tab 
character. 

060^H  -   O605H    Check  to  see  ifthe  key  that  was  pressed  in  register  A 
is  a  turn  on  the  32  character  per  line  mode  character. 

O6O6H  -   O607H    Jump  if  the  key  that  was  pressed  in  register  A  is  a 
turn  on  the  32  character  per  line  mode  character. 

O6O8H  -   O6O9H    Check  to  see  ifthe  key  that  was  pressed  in  register  A 
is  a  line  feed  character. 

06  OAH  Return  if  the  key  that  was  pressed  in  register  A  isn't 

a  line  feed  character. 

O6OBH  Get  the  return  address  from  the  stack  and  put  it  in 

register  pair  DE. 

O6OCH  Save  the  key  that  was  pressed  in  register  A  at  the 

location  of  the  input  buffer  pointer  in  reg;ister  pair 
HL. 
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060DH  Load  register  A  with  the  length  of  the  buffer  re- 

maining in  register  B. 

06  OEH  Check  to  see  if  there  is  anymore  of  the  input  buffer 

remaining. 

O6OFH  "  O6IOH  Jump  if  the  end  of  the  input  buffer  has  been  reached. 

O6IIH  Load  register  A  with  the  value  at  the  location  of  the 

input  buffer  pointer  in  register  pair  HL, 

0612H  Bump  the  input  buffer  pointer  in  register  pair  HL. 

O6I3H  -  O615H    Go  display  the  character  in  register  A. 

O616H  Decrement  the  number  of  bytes  remaining  in  the 

input  buffer  area  in  register  B. 

0617H  -«  O6I8H  Jump. 

O6I9H  -   O6IBH   Go  clear  the  screen. 

O6ICH  Load  register  B  with  the  length  of  the  input  buffer  in 

register  C, 

O6IDH  Get  the  starting  address  for  the  input  buffer  area 

from  the  stack  and  put  it  in  register  pair  HL. 

06 1  EH  Save  the  starting  address  for  the  input  buffer  area  in 

register  pair  HL  on  the  stack. 

O6IFH  -  O62IH   Jump. 

0622H  -   06Z^'K   Go  back  up  the  input  buffer  pointer  in  register  pair 
HL  if  necessary. 

O625H  Decrement  the  input  buffer  pointer  in  register  pair 

HL. 

062  6H  Load  register  A  with  the  character  at  the  location  of 

the  input  buffer  pointer  in  register  pair  HL. 

O627H  Bump  the  input  buffer  pointer  in  register  pair  HL. 

O628H  -   O629H    Check  to  see  if  the  character  in  register  A  is  a  line 
feed  character. 

062AH  Return  if  the  character  in  register  A  is  a  line  feed 

character. 

062BH  Load  register  A  with  the  number  of  bytes  remaining 

in  the  input  buffer  area  in  register  B, 

062CH  Check  to  see  if  the  number  of  characters  remaining 

in  the  input  buffer  area  in  register  A  is  the  same  as 
the  length  of  the  input  buffer  area  in  register  C. 
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062DH  "   062EH  Jump  if  there  are  characters  in  the  buffer. 

062FH  Return  if  the  buffer  is  empty, 

063  OH  ^^^  register  A  with  the  number  of  bytes  remaining 

in  the  input  buffer  area  in  register  B. 

O63IH  Check  to  see  if  the  number  of  characters  remaining 

in  the  input  buffer  area  in  register  A  is  the  same  as 
the  length  of  the  input  buffer  area  in  register  C. 

O632H  Return  if  the  input  buffer  area  is  empty. 

0633H  Decrement  the  input  buffer  area  pointer  in  register 

pair  HL. 

063^H  Load  register  A  with  the  character  at  the  location  of 

the  input  buffer  area  pointer  in  register  pair  HL. 

0635H  "  0636H  Check  to  see  if  the  character  in  register  A  is  a  line 
feed  character. 

063  7H  Bump  the  input  buffer  area  pointer  in  register  pair 

HL. 

O638H  Return  if  the  character  in  register  A  is  a  line  feed 

character. 

O639H  Decrement  the  input  buffer  area  pointer  in  register 

pair  HL. 

O63AH   -   O63BH  Load  register  A  with  a  backspace  the  cursor  and 
erase  character. 

O63CH  -   063EH  Go  backspace  the  cursor. 

063FH  Bump  the  number  of  characters  remaining  in  the 

input  buffer  area  in  register  B. 

0640  Return. 

0641H  -   0642H  Load  register  A  with  the  turn  on  the  32  character  per 
line  mode  character. 

0643H  -   0645H   Go  turn  on  the  32  character  per  line  mode. 

0646H  "   0648H  Go  get  the  cursor  line  position  and  return  with  it  in 
register  A. 

0649H  -   064AH   Mask  the  cursor  line  position  in  register  A. 

064BH  Complement  the  value  in  register  A. 

064CH  Bump  the  value  in  register  A. 

06toH  -   064EH  Adjust  the  value  in  register  A  so  that  it  will  hold  the 
number  of  spaces  to  add. 
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06^FH  Load  register  E  with  the  number  of  spaces  to  be 

added  in  register  A. 

O65OH  Load  register  A  with  the  number  of  bytes  remaining 

in  the  input  buffer  area  in  register  B. 

O65IH  Check  to  see  if  there  are  no  more  bytes  to  be  added. 

O652H  Return  if  the  input  buffer  is  full. 

0653H  -   065^H    Load  register  A  with  a  space  character. 

0655H  Save  the  space  character  in  register  A  at  the  location 

of  the  input  buffer  area  pointer  in  register  pair  HL. 

O656H  Bump  the  input  buffer  area  pointer  in  register  pair 

HL. 

0657H  Save  the  value  in  register  pair  DE  on  the  stack. 

O658H  "   O65AH    Go  display  the  space  character  in  register  A, 

O65BH  Get  the  value  from  the  stack  and  put  it  in  register 

pair  DE. 

O65CH  Decrement  the  number  of  bytes  remaining  in  the 

input  buffer  area  in  register  B. 

O65DH  Decrement  the  number  of  spaces  to  be  added  in 

register  E. 

06  5E1H  Return  if  the  number  of  spaces  has  been  added  to  the 

input  buffer. 

065FH  -   O66OH    Loop  till  all  the  spaces  have  been  added  to  the  input 
buffer. 

O66IH  Set  the  Carry  flag. 

0662H  Save  the  value  in  register  pair  AF  on  the  stack. 

0663H   "   066^H    Load  register  A  with  a  carriage  return  character. 

O665H  Save  the  carriage  return  character  in  register  A  at 

the  location  of  the  input  buffer  area  pointer  in  regis- 
ter pair  HL. 

O666H  -  O668H     Go  display  the  carriage  return  character  in  register 
A. 

O669H  -   O66AH     Load  register  A  with  a  turn  off  the  cursor  character. 

O66BH  -  O66DH     Go  display  the  turn  off  the  cursor  character  in  regis- 
ter A. 

O66EH  Load  register  A  with  the  length  of  the  input  in  reg- 

ister C. 
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066FH  Subtract  the  number  of  bytes  remaining  in  the  input 

buffer  area  in  register  B  from  the  length  o\  the  input 
buffer  area  in  register  A. 

O67OH  Load  register  B  with  the  number  of  characters  in  the 

input  bi2fer  area  in  register  A. 

O67IH  Get  the  value  from  the  stack  and  put  it  m  register 

pair  AF, 

O672H  Get  the  starting  address  of  the  input  buffer  area  from 

the  stack  and  put  it  in  register  pair  HL. 

0673H  Return. 

067^H  -»  O6DIH    INITIALIZATION  ROUTINE 

067^H  "   O675H    Send  the  zero  in  register  A  out  the  cassette  port. 

O676H  -   O678H    Load  register  pair  HL  with  the  starting  address  of 
the  ROM  area  to  be  moved  to  RAM. 

O679H  «-   O67BH    Load  register  pair  DE  with  the  starting  address  to 
move  the  data  to  in  RAM. 

O67CH  -   O67EH    Load  register  pair  BC  with  the  length  of  the  ROM 
area  to  be  moved. 

O67FH  -  068  OH  Move  the  ROM  area  to  RAM. 

068 IH  Decrement  the  value  in  register  A. 

068  2H  Decrement  the  value  in  register  A. 

0683H  -   068^H  Loop  till  register  A  is  zero. 

0685H  -   O686H    Load  registers  with  the  number  of  bytes  of  memory 
to  be  zeroed. 

O687H  Save  the  zero  in  register  A  at  the  location  of  the 

memory  pointer  in  register  pair  DE. 

O688H  Bump  the  memory  pointer  in  register  pair  DE. 

O689H  -    O68AH    Loop  till  all  of  the  memory  locations  have  been 
zeroed. 

O68BH  -   O68DH    Load  register  A  with  the  location  of  keyboard  mem- 
ory for  the  BREAK  key. 

O68EH  "   O68FH    Check  to  see  if  the  BREAK  key  is  bein;g  pressed, 

O69OH  -   O692H    Jump  if  the  BREAK  key  is  not  being  pressed. 

O693H  -   O695H    Set  the  stack  pointer  to  407DH. 
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O696H  -  O698H    Load  register  A  with  the  status  of  the  disk  control- 
ler, 

O699H  Bump  the  value  in  register  A. 

O69AH  -"  O69BH  Check  to  see  if  the  disk  controller  is  present. 

O69CH  -  O69EH  Jump  if  the  disk  controller  isn't  present. 

O69FH  -  O6AOH  Load  register  A  with  the  drive  to  turn  on. 

O6AIH  -  06A3H  Turn  on  drive  0. 

06A^H  '^   06a6H    Load  register  pair  HL  with  the  address  of  the  disk 
command/status  register. 

06A7H  -   06A9H    Load  register  pair  DE  with  the  address  of  the  disk 
data  register. 

O6AAH  -   O6ABH    Load  the  disk  command  register  with  the  command 
to  position  the  head  to  track  0. 

O6ACH  -   O6AEH    Load  register  pair  BC  with  the  delay  count. 

O6AFH  "    O6BIH    Go  delay. 

06B2H  -   06B3H   Check  to  see  if  the  disk  is  busy. 

06B^H  "   06B5H    Loop  till  the  disk  is  no  longer  busy. 
06B6H  Zero  register  A. 

06B7H  -   O6B9H   Save  the  value  in  register  A  in  the  disk  sector  regis- 
ter. 

O6BAH  -   06BCH    Load  register  pair  BC  with  the  address  in  memory  to 
place  the  sector  read. 

06BDH  -   06BEH   Load  register  A  with  the  command  to  read  the  sec- 
tor. 

O6BFH  Put  the  command  in  register  A  in  the  disk  command 

register. 

O6COH  -  06CIH    Check  to  see  if  there  is  data  available. 

06C2H  -   06C3H   Loop  till  there  is  data  available. 

06C^H  Load  register  A  with  the  byte  read  from  the  disk. 

06C5H  Save  the  value  in  register  A  at  the  location  of  the 

memory  pointer  in  register  pair  BC, 

06C6H  Bump  the  LSB  of  the  memory  pointer  in  register  C. 

06C7H  -   O6C8H    Loop  till  the  whole  of  the  sector  has  been  read. 
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06C9H  -   06CBH   Jump  to  the  TRSDOS  loader  routine  just  loaded. 

06CCH  -   06CEH    Load  register  pair  BC  with  the  starting  address  of 
the  Level  II  BASIC  READY  routine. 

06CFH  -   06D1H  Jump. 

06D2H  -   O707H   ROM  STORAGE  LOCATION  FOR 
DATA  TO  BE  MOVED  TO  RAM 
BY  THE  INITIALIZATION  PROCESS. 

O7O8H  -   O7OAH    Load  register  pair  HL  with  the  starting  address  of  a 
single  precision  value  stored  in  ROM. 

O7OBH  -   O7OFH    SINGLE  PRECISION 

ADDITION,  REGl  =  (HL)  ^  REGl 

O7OBH  "   O7ODH    Load  the  single  precision  value  pointed  to  by  regis- 
ter pair  HL  into  register  pairs  BC  and  DE. 

O7OEH  -    O7OFH   Jump. 

O7IOH  -    0712H  SINGLE  PRECISION 

SUBTRACTION,  REGl  =  (HL)  -  REC;i 

O7IOH  -   O712H    Go  load  the  single  precision  value  pointed  to  by 
register  pair  HL  into  register  pairs  BC  and  DE. 

O713H  -   O715H    SINGLE  PRECISION 

SUBTRACTION,  REGl  =  BCDE  -  miGl 

O713H  "    O715H    Go  reverse  the  sign  of  the  single  precision  value  in 
register  pairs  BC  and  DE. 

O7I6H  -   0752H    SINGLE  PRECISION 

ADDITION.  REGl  =  BCDE  +  REGl 

O716H  Load  register  A  with  the  exponent  of  th.e  single 

precision  value  in  register  B. 

O717H  Check  to  see  if  the  single  precision  value  in  register 

pairs  BC  and  DE  is  equal  to  zero. 

O7I8H  Return  if  the  single  precision  value  in  register  pairs 

BC  and  DE  is  equal  to  zero. 

O7I9H  "   07IBH    Load  register  A  with  the  exponent  of  thie  single 
precision  value  in  REGL 

07ICH  Check  to  see  if  the  single  precision  value  in  REGl  is 

equal  to  zero. 

07IDH  -   07IFH   Jump  if  the  single  precision  value  in  REGl  is  equal  to 
zero. 

072  OH  Subtract  the  value  of  the  exponent  for  tlie  single 
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precision  value  in  register  B  from  the  value  of  the 
exponent  for  the  single  precision  value  in  REGl  in 
register  A. 

O72IH  -  O722H  Jump  if  the  single  precision  value  in  re^ster  pairs 
BC  and  DE  is  smaller  than  the  single  precision  value 
in  REGl. 

O723H  Adjust  the  difference  in  the  exponents  in  register  A 

so  that  it  is  positive. 

072 to  Bump  the  difference  in  the  exponents  in  register  A 

so  that  it  will  be  the  correct  positive  number. 

O725H  Load  register  pair  HL  with  the  16-bit  value  in  regis- 

ter pair  DE. 

O726H  -   0728  H  Go  put  the  single  precision  value  in  REGl  on  the 

stack. 

O729H  Load  register  pair  DE  with  the  16-bit  value  in  reg- 

ister pair  HL. 

O72AH  -  O72CH  Go  put  the  single  precision  value  in  register  pairs 
BC  and  DE  into  REGl. 

O72DH  Get  the  16-bit  value  from  the  stack  and  put  it  in 

register  pair  BC. 

O72EH  Get  the  16-bit  value  from  the  stack  and  put  it  in 

register  pair  DE. 

O72FH  "  O73OH  Check  to  see  if  the  difference  in  the  exponents  in 
register  A  is  greater  than  18H. 

O73IH  Return  if  the  difference  in  the  exponents  is  too  great. 

O732H  Save  the  difference  in  the  exponents  in  register  A  on 

the  stack. 

0733H  -  O735H  Set  the  sign  bits  for  the  single  precision  values  and 
return  with  the  equality  of  the  sign  bits  in  register  A. 

O736H  Load  register  H  with  the  equality  of  the  sign  bits  in 

register  A. 

073  7H  Get  the  difference  of  the  exponents  from  the  stack 

and  put  it  in  register  A. 

O738H  -  O73AH  Go  shift  the  single  precision  value  in  register  pairs 
BC  and  DE  till  it  lines  up  with  the  single  precision 
value  in  REGl. 

O73BH  Check  to  see  if  the  sign  bits  are  equal. 

073CH  -  073EH  Load  register  pair  HL  with  the  starting  address  of 
REGl. 
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073FH  -  07^1H  Jump  if  the  signs  aren't  equal 

07k2K  -   07^^H  Go  add  the  single  precision  value  in  BCDli  to  the 
single  precision  value  in  REGl. 

07^5H  -   07J^7H  Jump  if  the  exponent  remains  unchanged. 
07^8H 


O749H 

07^AH  -  07^CH 


07toH  - 
07^FH  «- 
0752     ~ 

075^H  - 

075^H 

0755H 

0756H 

0757H 

0758H 

0759H 
075AH 
075BH 

075CH 

075DH 
075BH 
075FH 


07^EH 

0751H 

0753H 
077CH 


Bump  the  memory  pointer  in  register  pair  HL,  so 
that  It  points  to  the  exponent  in  KEGl. 

Bump  the  exponent  in  REGl  at  the  location  of  the 
memory  pointer  in  register  pair  HL 

Go  to  the  Level  II  BASIC  error  routine  and  output  an 
OV  ERROR  message  if  the  exponent  in  RE*  j1  is  too 
large. 

Load  register  L  with  the  number  of  bits  to  shift  the 
single  precision  result  in  register  pairs  BC  and  DE. 

Go  shift  the  single  precision  result  in  register  pairs 
BC  and  DE. 

Jump, 

SINGLE  PRECISION  MATH  ROUTINE 

Zero  register  A. 

Subtract  the  8-bit  value  in  register  B  from  rhe  value 
in  register  A. 

Load  register  B  with  the  result  in  register  A. 

Load  register  A  with  the  value  at  the  memory 
pointer  in  register  pair  HL. 

Subtract  the  value  in  register  E  from  the  value  in 
register  A. 

Load  register  E  with  the  result  in  register  A. 

Bump  the  memory  pointer  in  register  pair  HL. 

Load  register  A  with  the  value  at  the  location  of  the 
memory  pointer  in  register  pair  HL. 

Subtract  the  value  in  register  D  from  the-  value  in 
register  A. 

Load  register  D  with  the  result  in  regist(;r  A. 

Bump  the  memory  pointer  in  register  pair  HL. 

Load  register  A  with  the  value  at  the  location  of  the 
memory  pointer  in  register  pair  HL. 


236 


0760H 

0761H 

0762H  -  076'£fH 

0765H 

O766H 

O767H 
O768H 
O769H 

O76AH 

O76BH  -  O76CH 

O76DH 

O76EH 

O76FH 
O77OH 
077IH 


Subtract  the  value  in  register  C  from  the  value  in 
register  A. 

Load  register  C  with  the  result  in  register  A. 

If  the  Carry  flag  is  set,  go  convert  the  single  preci- 
sion value  to  a  positive  number. 

Load  register  L  with  the  exponent  of  the  original 
value  in  register  pairs  BC  and  DE. 

Load  register  H  with  the  LSB  of  the  single  precision 
value  in  register  E. 

Zero  register  A. 

Load  register  B  with  the  new  exponent  in  register  A. 

Load  register  A  with  the  MSB  of  the  single  precision 
value  in  register  C. 

Check  to  see  if  the  value  in  register  A  is  equal  to 
zero. 

Jump  if  the  MSB  of  the  single  precision  value  is 
nonzero. 

Shift  the  NMSB  into  the  MSB  by  loading  register  C 
with  the  value  in  register  D. 

Shift  the  LSB  into  the  NMSB  by  loading  register  D 
with  the  value  in  register  H. 

Load  register  H  with  the  value  in  register  L. 

Load  register  L  with  the  value  in  register  A. 

Load  register  A  with  the  new  exponent  counter  in 
register  B. 


O772H  -  0773H    Subtract  the  number  of  bits  just  shifted  from  the  new 
exponent  counter  in  register  A. 

Check  to  see  if  three  bytes  have  been  shifted. 

Loop  till  shift  is  completed. 

Zero  register  A. 

Save  the  value  in  register  A  as  the  exponent  of  the 
single  precision  result  in  REGl. 

Return  with  a  single  precision  value  of  zero  in 
REGl 

SINGLE  PRECISION  MATH  ROUTINE 


077^H  - 

0775H 

0776H  - 

0777H 

0778H 

0779H  - 

077BH 

077CH 

077DH  - 

07A7H 
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077DH  Decrement  the  new  exponent  counter  in  register  B. 

077EH  Shift  the  16-bit  value  in  register  pair  HL  ief :  one  bit. 

077FH  Load  register  A  with  the  NMSB  in  register  D. 

078 OH  Shift  the  NMSB  in  register  A  left  one  bit  end  shift  a 

bit  from  register  pair  HL  if  necessary. 

0781H  Save  the  adjusted  NMSB  in  register  A  into  register 

D. 

0782H  Load  register  A  with  the  MSB  in  register  C. 

0783H  Shift  the  MSB  in  register  A  left  one  bit  and  shift  a  bit 

from  register  D  if  necessary. 

078to  Load  register  C  with  the  adjusted  value  in  register 

A. 

0785H  -   O787H    Loop  till  the  most  significant  bit  of  the  single  preci- 
sion value  is  equal  to  one. 

O788H  Load  register  A  with  the  new  exponent  counter  in 

register  B. 

078  9H  Load  register  E  with  the  LSB  of  the  single  precision 

value  in  register  H, 

O78AH  Load  register  B  with  the  value  in  register  L. 

O78BH  Check  to  see  if  there  were  any  bits  shifted. 

O78CH  -   O78DH    Jump  if  there  weren't  any  bits  shifted. 

O78EH  "   O79OH    Load  register  pair  HL  with  die  address  of  the  expo- 
nent in  REGl. 

O79IH  Add  the  value  of  the  original  exponent  at  the  location 

of  ±e  memory  pointer  in  register  pair  HL  to  the 
number  of  bits  shifted  in  register  A. 

O792H  Save  the  new  exponent  in  register  A  at  th.e  location 

of  the  memory  pointer  in  register  pair  H  L. 

O793H  -  079^H    Jump  if  exponent  is  too  small. 
O795H  Return  if  exponent  is  equal  to  zero. 

O796H  Load  register  A  with  the  LSB  of  the  single  precision 

value  in  register  B. 

0797H  -  0799H   Load  register  pair  HL  vdth  the  address  of  the  expo- 
nent in  REGl. 

079AH  Check  to  see  if  the  most  significant  bit  of  Ue  value  in 

register  A  is  set. 

238 


079BH  -   079DH    Go  check  for  overflow  if  the  most  significant  bit  in 
the  value  in  register  A  is  set. 

O79EK  Load  register  B  with  the  exponent  at  the  location  of 

the  memory  pointer  in  register  pair  HL. 

O79FH  Bump  the  memory  pointer  in  register  pair  HL. 

O7AOH  Load  register  A  with  the  value  of  the  sign  at  the 

location  of  the  memory  pointer  in  register  pair  HL. 

07A1H   -   07A2H   Mask  the  sign  bit  in  register  A. 

07A3H  Set  the  sign  bit  in  register  A. 

0  7A^H  Load  register  C  with  the  adjusted  MSB  of  the  single 

precision  value  in  register  A. 

07A5H  -  07A7H  Jump. 

07A8H  -   07B6H    SINGLE  PRECISION  MATH  ROUTINE 

07A8H  Bump  the  LSB  of  the  single  precision  value  in  reg- 

ister E. 

07A9H  Return  if  the  adjusted  LSB  of  the  single  precision 

value  in  register  E  is  nonzero. 

07AAH  Bump  the  NMSB  of  the  single  precision  value  in 

register  D. 

07ABH  Return  if  the  adjusted  NMSB  of  the  single  precision 

value  in  register  D  is  nonzero. 

07ACH  Bump  the  MSB  of  the  single  precision  value  in  reg- 

ister C. 

O7ADH  Return  if  the  adjusted  MSB  of  the  single  precision 

value  in  register  C  is  nonzero. 

07AEH  -   07AFH    Adjust  the  MSB  of  the  single  precision  value  in 
register  C. 

O7BOH  Bump  the  exponent  of  the  single  precision  value  at 

the  location  of  the  memory  pointer  in  register  pair 
HL. 

07BIH  Return  if  the  adjusted  exponent  of  the  single  preci- 

sion value  at  the  location  of  the  memory  pointer  in 
register  pair  HL  is  nonzero. 

07B2H  -  07B3H    Load  register  E  with  an  OV  ERROR  code. 

07B4H  -  O7B6H   Go  to  the  Level  n  BASIC  error  routine  and  display 
an  OV  ERROR  message  if  the  value  has  overflowed. 
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07B7H  -  07C2H   SINGLE  PRECISION  MATH  ROUTME 

07B7H  Load  register  A  with  the  LSB  of  the  single  precision 

value  at  the  location  of  the  memory  pointer  in  regis- 
ter pair  HL 

O7B8H  Add  the  LSB  of  the  single  precision  value  in  register 

E  to  the  LSB  of  the  single  precision  value  in  register 
A. 

07B9H  Load  register  E  with  the  result  in  register  A. 

07BAH  Bump  the  memory  pointer  in  register  paii"  HL. 

07BBH  Load  register  A  with  the  NMSB  of  the  sinsile  preci- 

sion value  in  REGl  at  the  location  of  the  memory 
pointer  in  register  pair  HL. 

07BCH  Add  the  NMSB  of  the  single  precision  value  in  reg- 

ister D  to  the  NMSB  of  the  single  precision  value  in 
register  A. 

07BDH  Load  register  D  with  the  result  in  register  A. 

O7BEH  Bump  the  memory  pointer  in  register  pai::  HL. 

0  7BFH  Load  register  A  with  the  MSB  of  the  single  precision 

value  in  REGl  at  the  location  of  the  memory  pointer 
in  register  pair  HL. 

O7COH  Add  the  MSB  of  the  single  precision  value  in  register 

C  to  the  MSB  of  the  single  precision  value  in  register 
A. 

07GIH  Load  register  C  with  the  result  in  register  A. 

07C2H  Return. 

07C3H  -   07D6H   SINGLE  PRECISION  MATH  ROUTINE 

07C3H  -   07C5H   Load  register  pair  HL  with  the  address  of  the  sign 
flag  storage  location. 

O7C6H  Load  register  A  with  the  value  of  the  sign  flag  at  the 

location  of  the  memory  pointer  in  register  ;pair  HL. 

07C7H  Complement  the  sign  flag  in  register  A. 

O7C8H  Save  the  adjusted  sign  flag  in  register  A  at  the  loca- 

tion of  the  memory  pointer  in  register  pair  HL. 

07C9H  Zero  register  A. 

07CAH  Load  register  L  with  the  value  in  register  A. 

07CBH  Figure  the  negative  value  for  register  B  by  sub- 
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07CCH 
07CDH 
07CEH 

07CFH 

07D0H 
07D1H 

07D2H 

07D3H 
07Dto 

07D5H 

07D6H 
07D7H 
07D7H 
07D9H 


07F7H 
07D8H 
07DAH 


tracting  the  current  value  in  register  B  from  the 
value  in  register  A. 

Save  the  adjusted  value  in  register  A  in  register  B. 

Load  register  A  with  zero. 

Figure  the  negative  LSB  of  the  single  precision 
value  in  register  E  by  subtracting  the  current  LSB  of 
the  single  precision  value  in  register  E  from  the 
value  in  register  A. 

Load  register  E  with  the  adjusted  LSB  of  the  single 
precision  value  in  register  A. 

Load  register  A  with  zero. 

Figure  the  negative  NMSB  of  the  single  precision 
value  in  register  D  by  subtracting  the  current  NMSB 
of  the  single  precision  value  in  register  D  from  the 
value  in  register  A. 

Load  register  D  with  the  adjusted  NMSB  of  the 
single  precision  value  in  register  A. 

Load  register  A  with  zero. 

Figure  the  negative  MSB  of  the  single  precision 
value  in  register  C  by  subtracting  the  current  MSB 
of  the  single  precision  value  in  register  C  from  the 
value  in  register  A. 

Load  register  C  with  the  adjusted  MSB  of  the  single 
precision  value  in  register  A. 

Return. 

SINGLE  PRECISION  MATH  ROUTINE 

Load  register  B  with  zero. 

Check  to  see  if  the  shift  counter  in  register  A  still 
indicates  at  least  8  bits  have  to  be  shifted. 


07DBH  -   07DCH  Jump  if  less  than  8  bits  are  left  to  be  shifted. 

07DDH  Load  register  B  with  the  LSB  of  the  single  precision 

value  in  register  E. 


07DEH 
07DFH 
07E0H    -   07E1H  Load  register  C  with  zero, 


Load  register  E  with  the  NMSB  of  the  single  preci- 
sion value  in  register  D. 

Load  register  D  with  the  MSB  of  tiie  single  precision 
value  in  register  C. 
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07E2H  "   07E3H    Loop  till  there  is  less  than  8  bits  left  to  be  shifted. 

07Eto  -   07E5H    Adjust  the  shift  counter  in  register  A  to  its  correct 
value. 

07E6H  Load  register  L  with  the  shift  counter  in  register  A. 

07E7H  Zero  register  A. 

07E8H  Decrement  the  shift  counter  in  register  L, 

07S9H  Return  if  there  are  no  more  bits  to  be  shifted. 

07EAH  Load  register  A  with  the  MSB  of  the  single  precision 

value  in  register  C. 

07SBH  Shift  the  MSB  of  the  single  precision  value  in  regis- 

ter A  one  place  to  the  right. 

07ECH  Load  register  C  with  the  adjusted  MSB  of  tie  single 

precision  value  in  register  A. 

07EDH  Load  register  A  with  the  NMSB  of  the  sin|;le  preci- 

sion value  in  register  D. 

07EEH  Shift  the  NMSB  of  the  single  precision  value  in 

register  A  one  place  to  the  right  and  pick  up  the  value 
of  the  Carry  flag. 

07EFH  Load  register  D  with  the  adjusted  NMSB  of  the 

single  precision  value  in  register  A. 

0  7F  OH  Load  register  A  with  the  LSB  of  the  single  jprecision 

value  in  register  E. 

07F1H  Shift  the  LSB  of  the  single  precision  value  in  register 

A  one  place  to  the  right  and  pick  up  the  val  ue  of  the 
Carry  flag. 

07F2H  Load  register  E  with  the  adjusted  LSB  of  the  single 

precision  value  in  register  A. 

07F3H  Load  register  A  with  the  value  in  registe::  B. 

0  7F^H  Shift  the  value  in  register  A  one  place  to  the  right  and 

pick  up  the  value  of  the  Carry  flag. 

07F5H  Load  register  B  with  the  adjusted  value  in  register 

A. 

07F6H  -  07F7H    Loop  till  all  of  the  bits  have  been  shifted. 

07F8H  -  07FBH    SINGLE  PRECISION 

CONSTANT  STORAGE  LOCATION 


242 


07F8H  -  07FBH  A  single  precision  constant  equal  to  1.0  is  stored 
here. 

07FCH  -  0808H     SINGLE  PRECISION 

CONSTANTS  STORAGE  LOCATION 

07FCH  The  number  of  single  precision  constants  which  fol- 

lows is  stored  here. 

07FDH  -  080  OH  A  single  precision  constant  equal  to  .598978  is 
stored  here. 

0801H  -  0804H  A  single  precision  constant  equal  to  .961471  is 
stored  here. 

0805H  -  0808H  A  single  precision  constant  equal  to  2.88539  is 
stored  here. 

0809H  -   0846H    LEVEL  II  BASIC  LOG  ROUTINE 

O8O9H  -  080BH  Go  check  the  sign  of  the  single  precision  value  in 
REGl. 

O8OCH  Check  to  see  if  the  single  precision  value  in  REGl  is 

negative  or  positive. 

080DH  -  080FH  Go  the  Level  II  BASIC  error  routine  and  display  a 
EC  ERROR  message  if  the  current  single  precision 
value  in  REGl  is  negative, 

081  OH  "  0812H  Load  register  pair  HL  with  the  address  of  the  expo- 
nent in  REGl. 

0813H  Load  register  A  with  the  exponent  of  the  single 

precision  value  in  REGl  at  the  location  of  the  mem- 
ory pointer  in  register  pair  HL. 

08l^H  -  O8I6H  Load  register  EC  with  the  exponent  and  the  MSB  of 
a  single  precision  constant. 

0817H  -  O8I9H  Load  register  DE  with  the  NMSB  and  the  LSB  of  a 
single  precision  constant.  Register  pairs  BC  and  DE 
are  now  equal  to  the  single  precision  constant  of 
.707107. 

081  AH  Subtract  the  exponent  in  register  B  from  the  expo- 

nent of  the  x-value  in  register  A. 

081BH  Save  the  difference  between  the  two  exponents  in 

register  A  on  the  stack. 

081CH  Save  the  exponent  in  register  B  as  the  exponent  of 

the  x-value  in  REGl  at  the  location  of  the  memory 
pointer  in  register  pair  HL, 
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081DH  Save  the  NMSB  and  the  LSB  of  the  single  precision 

value  in  register  pair  DE  on  the  stack. 

081EH  Save  the  exponent  and  the  MSB  of  the  singe  value  in 

register  pair  BC  on  the  stack. 

081FH  "  O83IH  Go  add  the  x-value  to  the  single  precision  constant  in 
register  pairs  BC  and  DE  and  return  with  the  result 
inREGl. 

0822H  Get  the  exponent  and  the  MSB  of  the  single  preci- 

sion value  from  the  stack  and  put  it  in  register  pair 
BC. 

0823H  Get  the  NMSB  and  the  LSB  of  the  single  precision 

value  from  the  stack  and  put  it  in  register  pair  DE. 

082  to  Multiply  the  single  precision  value  in  register  pairs 

BC  and  DE  by  two  by  bumping  the  exponent  in 
register  B. 

0825H  -  0827H  Go  divide  the  single  precision  value  in  register  pairs 
BC  and  DE  by  the  x-value  in  REGl  and  n;tum  with 
the  result  in  REGl. 


082AH  Load  register  pair  HL  with  the  starting  ac.dress  of  a 
single  precision  constant. 

Go  subtract  the  x-value  in  REGl  from  *:he  single 
precision  constant  of  1. 0  at  the  location  of  the  mem- 
ory pointer  in  register  pair  HL  and  return  with  the 
result  in  REGl. 

083  OH  I-oad  register  pair  HL  with  the  starting  acldress  of  a 
storage  location  for  single  precision  constants  to  be 
used  for  a  series  of  computations. 

-   0833H    Go  do  a  series  of  computations  and  retura  with  the 
result  in  REGl. 


0828H 

082BH  -  082DH 

082EH  " 


O83IH 

083to 

0837H  "  0839H 


O836H   Load  register  BC  with  the  exponent  and  tlie  MSB  of 
a  single  precision  constant. 

Load  register  pair  DE  with  the  NMSB  and  the  LSB 
of  a  single  precision.  Register  pairs  BC  a^id  DE  are 
now  equal  to  a  single  precision  of  —0.5. 


083AH  -  083CH  Go  add  the  x-value  in  REGl  to  the  single  precision 
constant  in  register  pairs  BC  and  DE  and  return  with 
the  result  in  REGl. 


083DH 
083EH 
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Get  the  difference  between  the  two  original  expo- 
nents from  the  stack  and  put  it  in  register  A. 

OSj^-OH  Go  convert  the  value  in  register  A  to  a  single  preci- 
sion number  and  add  it  to  the  x-value  in  REGl. 


Return  with  the  result  in  REGl. 

0841H  -  08^3H  Load  register  pair  BC  with  the  exponent  and  the 
MSB  of  a  single  precision  constant. 

08^4h  -  0846H  Load  register  pair  DE  with  the  NMSB  and  the  LSB 
of  a  single  precision  constant.  Register  pairs  BC  and 
DE  are  now  equal  to  a  single  precision  value  of 
0.693147. 

08^7H  -   O89IH    SINGLE  PRECISION 

MULTIPLICATION,  REGl  =  BCDE  *  REGl 

0847H  -  08^9H  Go  check  to  see  if  the  single  precision  value  in  REGl 
is  equal  to  zero. 

08^AH  Return  if  the  single  precision  value  in  REGl  is  equal 

to  zero. 

08^BH  -  08^CH    Load  register  L  with  a  bit  mask. 

08toH  -  08^FH  Go  check  for  possible  overflow  and  the  single  preci- 
sion value  in  register  pairs  BC  and  DE  equal  to  zero. 

O85OH  Load  register  A  with  the  single  precision  value's 

MSB  in  register  C. 

O85IH  "  0853H  Save  the  MSB  of  the  single  precision  value  in  regis- 
ter A  at  memory  location  414FH, 

085to  Load  register  pair  HL  with  the  NMSB  and  the  LSB  of 

the  single  precision  value  in  register  pair  DE. 

0855H  -  0857H  Save  the  NMSB  and  the  LSB  of  the  single  precision 
value  in  register  pair  HL  at  memory  locations  4150H 
and  4151H. 

0858H  -  085AH    Load  register  pair  BC  with  zero. 

085BH  Load  register  D  with  the  value  in  register  B. 

085CH  Load  register  E  with  the  value  in  register  B. 

085DH  "  085FH  Load  register  pair  HL  with  the  return  address. 

086  OH  Save  the  return  address  in  register  pair  HL  on  the 

stack. 

O86IH  -   O863H    Load  register  pair  HL  with  the  return  address. 

0864H  Save  the  return  address  in  register  pair  HL  on  the 

stack. 

0865H  Save  the  return  address  in  register  pair  HL  on  the 

stack. 
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0866H  -   0868H  Load  register  pair  HL  with  the  starting  address  of 
the  single  precision  value  in  REGl. 

O869H  Load  register  A  with  the  LSB  of  the  single  precision 

value  in  REGl  at  the  location  of  the  memoiT  pointer 
in  register  pair  HL. 

085AH  Bump  the  memory  pointer  in  register  pair  HL. 

085BH  Check  to  see  if  the  LSB  of  the  single  precijjion  value 

in  REGl  in  register  A  is  equal  to  zero. 

086CH  "  086DH  Jump  if  the  LSB  of  ttie  single  precision  value  in 
REGl  is  equal  to  zero, 

086  EH  Save  the  memory  pointer  in  register  HL  on  the 

stack. 

086FH  «-  O87OH  Load  register  L  with  the  bit  shift  counte::. 

08  7IH  Shift  the  LSB  of  the  single  precision  value  in  REGl 

in  register  A  one  place  to  the  right. 

08  72H  Load  register  H  with  the  adjusted  LSB  in  register  A. 

0873H  Load  register  A  with  the  MSB  of  the  single  precision 

value  in  register  C. 

087ifH  -  0875H  Jump  if  bit  0  in  the  LSB  just  shifted  wasn't  set, 

O876H  Save  the  value  in  register  pair  HL  on  tha  stack. 

0877H  "  0879H  Load  register  pair  HL  with  the  NMSB  and  the  LSB  of 
the  original  value  in  register  pairs  BC  and  DE. 

087AH  Add  the  NMSB  and  the  LSB  of  the  total  figured  so  far 

in  register  pair  DE  to  the  NMSB  and  the  LSB  of  the 
original  value  in  register  pair  HL. 

087BH  Load  register  pair  DE  with  the  adjusted  total  in 

register  pair  HL. 

O87CH  Get  the  value  from  the  stack  and  put  it  in  register 

pair  HL, 

087DH  -   087FH  Load  register  A  with  the  MSB  of  the  original  value  in 
register  pairs  BC  and  DE. 

088  OH  Add  the  MSB  of  the  original  value  in  register  A  to  the 

MSB  of  the  total  figured  so  far  m  regist(;r  C. 

0881H  Shift  the  adjusted  MSB  of  the  total  in  register  A  one 

place  to  the  right. 

0882H  Load  register  C  with  the  adjusted  MSB  of  the  total  in 

register  A. 
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0883H 

0884H 

0885H 

0886H 

0887H 

0888H 

0889H 
088AH 
088BH 

088CH 
088DH 


Load  register  A  with  the  NMSB  of  the  total  in  reg- 
ister D. 

Shift  the  NMSB  of  the  total  in  register  A  one  place  to 
the  right 

Load  register  D  with  the  adjusted  NMSB  of  the  total 
in  register  A. 

Load  register  A  with  the  LSB  of  the  total  in  register 
E. 

Shift  the  LSB  of  the  total  in  register  A  one  place  to 
the  right. 

Load  register  E  with  the  adjusted  LSB  of  the  total  in 
register  A. 

Load  register  A  with  the  value  in  register  B. 

Shift  the  value  in  register  A  one  place  to  the  right 

Load  register  B  with  the  adjusted  value  in  register 
A. 

Decrement  the  bit  counter  in  register  L. 

Load  register  A  with  the  LSB  of  the  current  value  in 
register  H. 


088EH  -  088FH   Loop  till  8  bits  have  been  shifted. 

08  9  OH  Get  the  memory  pointer  from  the  stack  and  put  it  in 

register  pair  HL. 

0891H  Return. 

0892H  -  0896H  SINGLE  PRECISION  MATH  ROUTINE 

08  92H  Load  register  B  with  the  LSB  of  the  single  precision 

value  in  register  E, 

0893H  Load  register  E  with  the  NMSB  of  the  single  preci- 

sion value  in  register  D. 

08  9^H  Load  register  D  with  the  MSB  of  the  single  precision 

value  in  register  C. 

0895H  Load  register  C  with  the  value  in  register  A. 

O896H  Return. 

0897H  "   08A1H   SINGLE  PRECISION  MATH  ROUTINE 

O897H  "   O899H  Go  move  the  single  precision  value  in  REGl  onto 
the  stack. 
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089AH  -  089CH  Load  register  pair  HL  with  the  starting  address  of  a 
single  precision  constant  equal  to  10. 

O89DH  "  O89FH  Go  move  the  single  precision  value  pointed  to  by 
register  pair  HL  into  REGl. 

08A0H  Get  the  exponent  and  the  MSB  of  the  single  preci- 

sion value  on  the  stack  and  put  it  in  register  pair  BC. 

08A1H  Get  the  NMSB  and  the  LSB  of  the  single  precision 

value  from  the  stack  and  put  it  in  register  pair  DE. 

08A2H  "  O9O3H    SINGLE  PRECISION 

DIVISION,  REGl  =  BCDE  /  REGl 

08i^2H  "  08A4H  Go  check  to  see  if  the  single  precision  value  in  REGl 
is  equal  to  zero. 

08A5H  -  08A7H  Go  to  the  Levelll  BASIC  error  routine  and  display 
an  /O  ERROR  message  if  the  single  precision  value 
in  REGl  is  equal  to  zero. 

08A8H  -   08A9H    Load  register  L  with  a  bit  mask. 

08AAH  -   08ACH    Go  adjust  the  exponent  in  REGl  for  division. 

08ADH  Bump  the  value  of  the  exponent  for  the  single  preci- 

sion value  in  REGl  at  the  location  of  the  memory 
pointer  in  register  pair  HL. 

O8AEH  Bump  the  value  of  the  exponent  for  the  single  preci- 

sion value  in  REGl  at  the  location  of  the  memory 
pointer  in  register  pair  HL. 

08AFH  Decrement  the  value  of  the  memory  point(ir  in  reg- 

ister pair  HL. 

08B  OH  Load  register  A  with  the  MSB  of  the  single  ]3recision 

value  in  REGl  at  the  location  of  the  memory  pointer 
in  register  pair  HL. 

08B1H  -  08B3H  Save  the  MSB  of  the  single  precision  value  in  REGl 
in  register  A  at  memory  location  4089H. 

08B^H  Decrement  the  value  of  the  memory  pointer  in  reg- 

ister pair  HL. 

08B5H  Load  register  A  with  the  NMSB  of  the  single  preci- 

sion value  in  REGl  at  the  location  of  the  memory 
pointer  in  register  pair  HL. 

08B6H  "  08B8H  Save  the  NMSB  of  the  single  precision  value  in 
REGl  in  register  A  at  memory  location  4085H. 

08B9H  Decrement  the  value  of  the  memory  pointer  in  reg- 

ister pair  HL. 
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08BAH  Load  register  A  with  the  LSB  of  the  single  precision 

value  in  REGl  at  the  location  of  the  memory  pointer 
in  register  pair  HL. 

08BBH  -   08BDH   Save  the  LSB  of  the  single  precision  value  in  REGl 
in  register  A  at  memory  location  408 IH. 

OBBEH  Load  register  B  with  the  MSB  of  the  single  precision 

value  in  register  C. 

08BFH  Load  register  pair  HL  with  the  NMSB  and  the  LSB  of 

the  single  precision  value  in  register  pair  DE. 

08C0H  Zero  register  A. 

08C1H  Zero  the  MSB  of  the  total  by  loading  register  C  with 

the  value  in  register  A. 

08C2H  Zero  the  NMSB  of  the  total  by  loading  register  D 

with  the  value  in  register  A. 

08C3H  Zero  the  LSB  of  the  total  by  loading  register  E  with 

the  value  in  register  A. 

08C^H  "   08C6H    Zero  memory  location  408CH. 

08  C7H  Save  the  NMSB  and  LSB  of  the  dividend  in  register 

pair  HL  on  the  stack. 

08C8H  Save  the  MSB  of  the  dividend  in  register  B  on  the 

stack. 

08C9H  Load  register  A  with  the  LSB  of  the  dividend  in 

register  L. 

08CAH  -  08CCH  Go  to  the  Level  II  BASIC  division  routine. 

OSCDtH  -  08CEH  Adjust  the  flags. 

08CFH  Invert  the  Carry  flag. 

08D0H  -  08D1H  Jump  if  not  done. 

08D2H  -   08Dte    Save  the  value  in  register  A  at  memory  location 
408CH. 

08D5H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  AF. 

08D6H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  AF. 

08D7H  Set  the  Carry  flag. 

08D9H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  BC. 
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08DAH  Get  the  value  from  the  stack  and  put  it  in  register 

pair  HL. 

08DBH  Load  register  A  with  the  MSB  of  the  total  in  register 

C, 

08DCIH  Bump  the  MSB  of  the  total  in  register  A. 

08DDH  Decrement  the  MSB  of  the  total  in  register  A. 

08DEH  Shift  the  MSB  of  the  total  in  register  A  one  place  to 

the  ri^t. 

08DFH  -  08E1H  Jump  if  done. 

08E2H  Reset  the  Carry  flag. 

08E3H  Load  register  A  with  the  LSB  of  the  total  in  register 

E. 

08E^H  Multiply  the  LSB  of  the  total  in  register  A  by  two. 

08E5H  Load  register  E  with  the  adjusted  LSB  of  the  total  in 

register  A. 

08E6H  Load  register  A  with  the  NMSB  of  the  total  in  reg- 

ister D, 

08E7H  Multiply  the  NMSB  of  the  total  in  register  A  by  two. 

08E8H  Load  register  D  with  die  adjusted  NMSB  oi  the  total 

in  register  A. 

08E9H  Load  register  A  with  the  MSB  of  the  total  in  register 

C. 

08  EAH  Multiply  the  MSB  of  the  total  in  register  A  by  two. 

08EBH  Load  register  C  with  the  adjusted  MSB  of  ttie  total  in 

register  A. 

08ECH  Multiply  the  NMSB  and  the  LSB  of  the  dividend  in 

register  pair  HL  by  two. 

08EDH  Load  register  A  with  the  MSB  of  the  dividend  in 

register  B. 

08EEH  Multiply  the  MSB  of  the  dividend  in  register  A  by 

two. 

08EFH  Load  register  B  with  the  adjusted  MSB  of  the  div- 

idend in  register  A. 

08F0H  ~  08F2H  Load  register  A  with  the  value  at  memorj^  location 
408CH. 
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08F3H  Multiply  the  value  in  register  A  by  two. 

08Fto  -   08F6H   Save  the  adjusted  value  in  register  A  at  memory 
location  408CH. 

08F7H  Load  register  A  with  the  MSB  of  the  total  in  register 

C. 

08F8H  Combine  the  NMSB  of  the  total  in  register  D  with 

the  value  in  register  A. 

08F9H  Combine  the  LSB  of  the  total  in  register  E  with  the 

value  in  register  A. 

08FAH  -    08FBH  Jump  if  the  total  isn't  equal  to  zero. 

08FCH  Save  the  NMSB  and  the  LSB  of  the  dividend  in 

register  pair  HL  on  the  stack. 

08FDH  -   08FFH   Load  register  pair  HL  with  the  address  of  the  expo- 
nent in  REGl. 

O9OOH  Decrement  the  exponent  in  REGl  at  the  location  of 

the  memory  pointer  in  register  pair  HL. 

O9OIH  Get  the  NMSB  and  the  LSB  of  the  dividend  from  the 

stack  and  put  it  in  register  pair  HL. 

O9O2H  -•   O903H  Jump  if  the  exponent  in  REGl  isn't  equal  to  zero. 
090^H  -   O9O6H    DISPLAY  OV  ERROR  MESSAGE 

0904H  -    O9O6H    Go  to  the  Level  II  BASIC  error  routine  and  display 
an  OV  ERROR  message. 

O9O7H  -    O9I3H    DOUBLE  PRECISION  MATH  ROUTINE 

O9O7H  -    O9O8H    Load  register  A  with  a  bit  mask. 

O9OAH  Load  register  A  with  a  bit  mask. 

O9OBH  -    O9ODH    Load  registerpairHL  with  the  address  ofthe  MSB  in 
REG2. 

O9OEH  Load  register  C  with  the  MSB  of  the  value  in  REG2 

at  the  location  of  the  memory  pointer  in  register  pair 
HL. 

O9OFH  Bump  the  value  of  the  memory  pointer  in  register 

pair  HL. 

091  OH  Combine  the  value  of  the  exponent  in  REG2  at  the 

location  of  the  memory  pointer  in  register  pair  HL 
with  the  bit  mask  in  register  A. 
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0911H  Load  register  B  with  the  adjusted  exponent  in  reg- 

ister A. 

0912H  -   O913H    Load  register  L  with  a  bit  mask. 

091/fH  -   093  OH    SINGLE  PRECISION  MATH  ROUTII^E 

0914H  Load  register  A  with  the  exponent  in  register  B. 

O915H  Check  to  see  if  the  exponent  in  register  A  is  equal  to 

zero. 

O9I6H  "    O9I7H    Jump  if  the  exponent  in  register  A  is  equal  to  zero. 

O9I8H  Load  register  A  with  the  bit  mask  in  rei^ister  L. 

O919H  -   O9IBH    Load  register  pair  HL  with  the  address  oi  the  expo- 
nent in  REGl. 

09ICH  Combine  the  value  of  the  exponent  at  the  location  of 

the  memory  pointer  in  register  pair  HL  v^ith  the  bit 
mask  in  register  A. 

09IDH  Add  the  value  of  the  exponent  in  register  B  to  the 

value  of  the  exponent  in  register  A. 

09IEH  Load  register  B  with  the  combined  exjjonents  in 

register  A. 

09IFH  Shift  the  value  of  the  combined  exponents  in  register 

A  one  place  to  the  right. 

092  OH  Check  to  see  if  the  Carry  flag  was  set  by  combining 

the  two  exponents. 

O92IH  Load  register  A  with  the  combined  exponents  value 

in  register  B. 

O922H  -   092te    Jump  if  overflow  has  occurred. 

O925H  -   O926H    Adjust  the  value  of  the  combined  exponents  to  it's 
proper  value. 

092  7H  Save  the  value  of  the  combined  exponent  in  register 

A  as  the  exponent  in  REGl  at  the  locai:ion  of  the 
memory  pointer  in  register  pair  HL. 

O928H  -   O92AH    Jump  if  the  combined  exponent  in  register  A  is  equal 
to  zero. 

092BH  -   O92DH    Go  turn  on  the  sign  bit  of  the  MSB  in  REGl  and 
register  B  and  save  the  sign  bits. 

O92EH  Save  the  value  in  register  A  at  the  location  of  the 

memory  pointer  in  register  pair  HL. 
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092FH  Decrement  the  memory  pointer  in  register  pair  HL 

so  that  it  points  to  the  exponent  in  ^Gl. 

093  OH  Return. 

O93IH  -   093DH    SINGLE  PRECISION  MATH  ROUTINE 

O93IH  -  O933H  Go  check  the  value  of  the  sign  bit  for  the  value  in 
REGl. 

093^H  Reverse  the  result  of  the  sign  bit  test  in  register  A. 

O935H  Get  the  value  from  the  stack  and  put  it  in  register 

HL. 

O936H  Set  the  flags  according  to  the  value  of  the  sign  bit 

test. 

O937H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  HL. 

O938H  -    093AH  Jump  if  the  value  in  REGl  is  negative. 

O93BH  -   093DH   Jump. 

093EH  -   095^H    SINGLE  PRECISION  MATH  ROUTINE 

O93EH  -  09^0H  Go  move  the  single  precision  value  in  REGl  to 
register  pairs  BC  and  DE. 

09^1H  Load  register  A  with  the  value  of  the  exponent  in 

register  B. 

0  9^2H  Check  to  see  if  the  exponent  in  register  A  is  equal  to 

zero. 

09^3H  Return  if  the  single  precision  value  in  register  pairs 

BC  and  DE  is  equal  to  zero. 

OgkkK  -  O945H  Multiply  the  value  of  the  exponent  in  register  A  by 
four. 

09^6H  -  09^8H  Go  to  the  Level  II  BASIC  error  routine  and  display 
an  OV  ERROR  routine  if  the  adjusted  exponent  in 
register  A  is  too  large. 

09^9H  Load  register  B  with  the  adjusted  exponent  in  reg- 

ister A. 

09^AH  -  09^CH  Go  add  the  original  value  in  REGl  to  the  adjusted 
value  in  register  pairs  BC  and  DE  and  return  with 
the  original  result  in  REGl.  REGl  now  holds  the 
original  value  times  five. 

09toH  -  09^FH  Load  register  pair  HL  with  the  address  of  the  expo- 
nent in  REGL 
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0950H  Bump  the  value  of  the  exponent  in  REGl  at  the 

location  of  the  memory  pointer  in  register  pair  HL. 
REGl  now  holds  the  original  value  times  ten. 

O95IH  Return  if  the  new  value  in  REGl  is  in  an  acceptable 

range. 

O952H  "  095^H  Go  to  the  Level  II  BASIC  error  routine  and  display 
an  OV  ERROR  message  if  the  value  of  the  exponent 
at  the  location  of  the  memory  pointer  in  register  pair 
HL  is  too  large. 

0955H  -   O963H    SINGLE  PRECISION  MATH  ROUTINE 

0955H  -  0957H  Load  register  A  with  the  value  of  the  exi)onent  in 
REGl. 

O958H  Check  to  see  if  the  exponent  in  register  A  is  equal  to 

zero. 

O959H  Return  if  the  single  precision  value  in  REGl  is  equal 

to  zero, 

095AH  -  095CH  Load  register  A  with  the  MSB  of  the  single  precision 
value  in  REGl. 

O95EH  Reverse  the  value  in  register  A. 

O95FH  Put  the  value  of  the  sign  bit  in  register  h  into  the 

Carry  flag. 

096  OH  Make  register  A  equal  to  - 1  if  the  sign  bit  is  nega- 

tive or  a  value  of  0  if  the  sign  bit  is  positive. 

O96IH  Return  if  the  single  precision  value  in  REGl  is 

negative. 

O962H  Bump  the  value  in  register  A  so  that  register  A  will 

be  equal  to  1  if  the  single  precision  value  in  REGl  is 
positive. 

O963H  Return. 

096to  -   O976H    SINGLE  PRECISION  MATH  ROUTUJE 

0964H  -  O965H  Load  register  B  with  an  exponent  for  zn  integer 
value. 

O966H  -   O968H    Load  register  pair  DE  with  zero. 

O969H  -  O96BH  Load  register  pair  HL  with  the  address  of  the  expo- 
nent in  REGl. 

O96CH  Load  register  C  with  the  MSB  of  the  integer  value, 

O96DH  Save  the  exponent  in  register  B  in  REGl  at  the 
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location  of  the  memory  pointer  in  register  pair  HL. 

O96EH  "   O96FH    Load  register  B  with  zero. 

O97OH  Bump  the  memory  pointer  in  register  pair  HL 

O97IH  -  O972H  Save  the  sign  value  at  the  location  of  the  memory 
pointer  in  register  pair  HL. 

O973H  Shift  the  value  of  the  sign  bit  for  the  MSB  in  register 

A  into  the  Carry  flag. 

097/^  -   O976H  Jump. 

0977H  -   O989H  LEVEL  II  BASIC  MATH  ROUTINE 

O977H  -   O979H  Go  determine  the  sign  ofthe  current  value  in  REGL 

097AH  Return  if  the  value  in  REGl  is  positive. 

O97BH  Go  check  the  value  of  the  current  number  type  flag. 

O97CH  -    097EH  Jump  if  the  current  value  in  REGl  is  an  integer. 

097FH  "  O98IH  Go  to  the  Level  II  BASIC  error  routine  and  display  a 
TM  ERROR  message  if  the  current  value  in  REGl  is 
a  string. 

O982H  "  098to  LoadregisterpairHLwiththeaddressoftheMSBin 
REGl. 

0985H  Load  register  A  with  the  MSB  in  REGl  at  the  loca- 

tion of  the  memory  pointer  in  register  pair  HL. 

O986H  -   0987H    Set  the  sign  bit  in  the  MSB  in  register  A. 

O988H  Save  the  adjusted  MSB  in  register  A  in  REGl  at  the 

location  of  ihe  memory  pointer  in  register  pair  HL. 

O989H  Return. 

O98AH  -   0993H    LEVEL  II  BASIC  MATH  ROUTINE 

O98AH  -   O98CH    Go  test  the  sign  of  the  current  value  in  REGL 

O98DH  Load  register  L  with  the  result  of  the  sign  test  in 

register  A. 

O98EH  Shift  the  sign  bit  in  register  A  into  the  Carry  flag. 

O98FH  Adjust  the  value  in  register  A  so  that  it  will  be  equal 

to  zero  if  the  current  value  in  REGl  is  positive  and 
equal  to  - 1  if  the  current  value  in  REGl  is  negative. 

O99OH  Save  the  adjusted  value  in  register  A  in  register  L. 

O99IH    -    0993H  Jump. 
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099^H  -   09A3H  LEVEL  II  BASIC  MATH  ROUTINE 

0994H  Go  check  the  current  value  of  the  number  Vrpe  flag. 

0995H  "  0997H  Go  to  the  Level  II  BASIC  error  routine  and  display  a 
TM  ERROR  message  if  the  current  value  in  REGl  is 
a  string. 

O998H  "  O99AH  Jump  if  the  current  value  in  REGl  is  single  precision 
or  double  precision. 

O99BH  -  O99DH  Load  register  pair  HL  with  the  integer  value  in 
REGL 

O99EH  Load  register  A  with  the  MSB  of  the  intege  r  value  in 

register  H. 

O99FH  Check  to  see  if  the  integer  value  in  REGl  iu  equal  to 

zero. 

O9AOH  Return  if  the  integer  value  in  REGl  is  equal  to  zero. 

09AIH  Load  register  A  with  the  MSB  of  the  integer  value  in 

register  H. 

09A2H  -   09A3H  Jump. 

09A^H  -  O9BOH   SINGLE  PRECISION  MATH  ROUTK^E 

0  9A4H  Load  register  pair  DE  with  the  value  in  register  pair 

HL. 

09A5H  "  09A7H  Load  register  pair  HL  with  the  LSB  and  the  NMSB  of 
the  single  precision  value  in  REGl. 

O9A8H  Exchange  the  return  address  on  the  stack  with  the 

NMSB  and  the  LSB  of  the  single  precision  value  in 
register  pair  HL. 

09A9H  Save  the  return  address  in  register  pair  HL  on  the 

stack. 

O9AAH  -  O9ACH  Load  register  pair  HL  with  the  exponent  and  the 
MSB  of  the  single  precision  value  in  REGL 

O9ADH  Exchange  the  return  address  on  the  stack  with  the 

exponent  and  the  MSB  of  the  single  precisiion  value 
in  register  pair  HL. 

O9AEH  Save  the  return  address  in  register  pair  HL  on  the 

stack. 

09AFH  Load  register  pair  HL  with  the  value  in  register  pair 

DE. 

O9BOH  Return. 
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09B5H  -  09B7H 

09B8H 

09B9H 

09BAH  -  09BCH 

09BDH 


09B1H  -  09BEH  SINGLE  PRECISION  MATH  ROUTINE 

O9BIH  -   09B3H   Go  put  the  single  precision  value  pointed  to  by  reg- 
ister pair  HL  into  register  pairs  EC  and  DE. 

Load  register  pair  HL  with  the  NMSB  and  the  LSB  of 
the  single  precision  value  in  register  pair  DE. 

Save  the  NMSB  and  the  LSB  of  the  single  precision 
value  in  register  pair  HL  in  REGL 

Load  register  H  with  the  exponent  of  the  single 
precision  value  in  register  B, 

Load  register  L  with  the  MSB  of  the  single  precision 
value  in  register  C. 

Save  the  exponent  and  the  MSB  of  the  single  preci- 
sion value  in  register  pair  HL  in  REGL 

Load  register  pair  HL  with  the  value  in  register  pair 

O9BEH  Return. 

O9BFH  -   O9CAH   SINGLE  PRECISION  MATH  ROUTINE 

O9BFH  -   O9CIH  Load  register  pair  HL  with  the  starting  address  for  a 
single  precision  value  in  REGL 

09G2H  Load  register  E  with  the  LSB  of  the  single  precision 

value  in  REGl  at  the  location  of  the  memory  pointer 
in  register  pair  HL. 

09C3H  Bump  the  value  of  the  memory  pointer  in  register 

pair  HL. 

09C^H  Load  register  D  with  the  NMSB  of  the  single  preci- 

sion value  in  REGl  at  the  location  of  the  memory 
pointer  in  register  pair  HL. 

09C5H  Bump  the  value  of  the  memory  pointer  in  register 

pair  HL 

O9C6H  Load  register  C  with  the  MSB  of  the  single  precision 

value  in  REGl  at  the  location  of  the  memory  pointer 
in  register  pair  HL. 

09c 7H  Bump  the  value  of  the  memory  pointer  in  register 

pair  HL. 

O9C8H  Load  register  B  with  the  exponent  of  the  single 

precision  value  in  REGl  at  the  location  of  the  mem- 
ory pointer  in  register  pair  HL. 

0  9C9H  Bump  the  value  of  the  memory  pointer  in  register 

pair  HL. 
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09CAH  Return. 

09CBH  -   09D1H    SINGLE  PRECISION  MATH  ROUTDJE 

O9CBH  -   09CDH    Load  register  pair  DE  with  the  starting  adciress  for  a 
single  precision  value  in  REGl. 

O9CEH  -   O9CFH    Load  register  B  with  the  number  of  bytes  to  be 
moved  for  a  single  precision  value. 

09DOH  -  O9DIH  Jump. 

09D2H  -  09DEH  MOVE  VALUE  POINTED  TO  BY 

HL  TO  THE  LOCATION  POINTED  TO  BY  DE 

09D2H  Exchange  the  value  in  register  pair  HL  vdth  the 

value  in  register  pair  DE. 

09D3H  -   09D5H    Load  register  A  with  the  current  value  of  tlie  number 
type  flag. 

O9D6H  Load  register  B  with  the  number  of  b>tes  to  be 

moved  in  register  A. 

O9D7H  Load  register  A  with  the  value  at  the  location  of  the 

memory  pointer  in  register  pair  DE. 

O9D8H  Save  the  value  in  register  A  at  the  location  of  the 

memory  pointer  in  register  pair  HL. 

09D9H  Bump  the  value  of  the  memory  pointer  in  register 

pair  DE. 

O9DAH  Bump  the  value  of  the  memory  pointer  in  register 

pair  HL. 

09DBH  Decrement  the  value  of  the  byte  counter  in  register 

B. 

09DCH  -   09DDH    Loop  till  all  of  the  bytes  have  been  moved. 

09DEH  Return. 

O9DFH  -   09F3H    SINGLE  PRECISION  MATH  ROUTINE 

09DFH  "   O9EIH    Load  register  pair  HL  with  the  address  of  the  MSB  of 
the  value  in  REGL 

09E2H  Load  register  A  with  the  MSB  of  the  value  in  REGl 

at  the  location  of  the  memory  pointer  in  register  pair 
HL. 

09E3H  Move  the  value  of  the  sign  bit  in  register  A  into  the 

Carry  flag. 

09E^H  Set  the  Carry  flag. 
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09E5H 


09E6H 


Turn  of  the  sign  bit  in  register  A  by  moving  the  value 
of  the  Carry  flag  into  register  A  and  moving  the 
previous  value  of  the  sign  bit  from  bit  0  of  register  A 

mto  the  Carry  flag. 

Save  the  adjusted  MSB  in  register  A  in  REGl  at  the 
location  of  the  memory  pointer  in  register  pair  HL. 


09E7H 

Invert  the  value  of  the  sign  bit  in  the  Carry  flag. 

09E8H 

Move  the  inverted  sign  bit  from  the  Carry  flag  into 
register  A. 

09E9H 

Bump  the  value  of  the  memory  pointer  in  register 
pair  HL. 

09EAH 

Bump  the  value  of  the  memory  pointer  in  register 
pair  HL. 

09EBH 

Save  the  value  in  register  A  at  the  location  of  the 
memory  pointer  in  register  pair  HL. 

09ECH 

Load  register  A  with  the  MSB  of  the  single  precision 
value  in  register  C. 

09EDH 

Move  the  value  of  the  sign  bit  in  register  A  into  the 
Carry  flag. 

09EEH 

Set  the  Carry  flag. 

09EFH 

Tunm  on  the  sign  bit  in  register  A  by  moving  the 
value  of  the  Carry  flag  into  register  A  and  moving  the 
previous  value  of  the  sign  bit  from  bit  0  of  register  A 
into  the  Carry  flag. 

09F0H 

Load  register  C  with  the  adjusted  MSB  in  register  A. 

09F1H 

Move  the  value  of  the  sign  bit  from  the  Carry  flag 

09F2H 

09F3H 
09F4H 
09Fto 

09F7H 

09FAH 


into  register  A. 

Combine  the  value  of  the  sign  bit  for  the  single 
precision  value  in  register  A  with  the  value  of  the 
sign  bit  for  the  single  precision  value  at  the  location 
of  the  memory  pointer  in  register  pair  HL. 

Return. 
09FBH    LEVEL  II  BASIC  MATH  ROUTINE 

09F6H    Load  register  pair  HL  with  the  starting  address  of 
REG2. 

O9F9H    Load  register  pair  DE  with  the  return  address. 

09FBH    Jump. 
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09FCH  -  OAOBH    LEVEL  II  BASIC  MATH  ROUTINE 

09FCH  -  09FEH    Load  register  pair  HL  with  the  starting  s.ddress  of 
REG2. 

09FFH  "   OAOIH    Load  register  pair  DE  with  the  return  address. 

0A02H  Save  the  return  address  in  register  pair  ])E  on  the 

stack. 

0A03H  -   0A05H    Load  register  pair  HL  with  the  starting  address  for  a 
single  precision  value  in  REGL 

OAO6H  Go  check  the  current  value  of  the  number  type  flag. 

0A07H  Return  if  the  current  value  in  REGl  isn't  double 

precision. 

0A08H  -   OAOAH    Load  register  pair  DE  with  the  starting  address  of 
REGL 

OAOBH  Return. 

OAOCH  -   0A25H    SINGLE  PRECISION  COMPARE 

OAOCH  ^ad  register  A  with  the  value  of  the  e^cponent  in 

register  B. 

OAODH  Check  to  see  if  the  exponent  in  register  A  is  equal  to 

zero. 

OAOEH  -   OAIOH    Jump  if  the  exponent  in  register  A  is  equal  to  zero. 

OAllH  "    0A13H    Load  register  pair  HL  with  the  return  a<idress. 

OAl^-K  Save  the  return  address  in  register  pair  HL  on  the 

stack. 

0A15H  -   0A17H    Go  check  the  signs  of  the  single  precision  numbers. 

0A18H  ^^^  register  A  with  the  MSB  of  the  single  precision 

value  in  register  C. 

OAI9H  Return  if  the  signs  of  the  single  precision  values 

aren't  equal. 

OAlAH   -   OAICH    Load  registerpairHL  with  the  address  ofilie  MSB  in 
REGl. 

OAIDH  Combine  the  MSB  in  REGl  at  the  location  of  the 

memory  pointer  in  register  pair  HL  with  tJie  MSB  in 
register  A. 

OAIEH  Load  register  A  with  the  MSB  in  register  C. 

OAIFH  Return  if  the  MSBs  don't  match. 
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0A20H  -  0A22H  Go  compare  the  single  precision  values. 

0A23H  Move  the  value  of  the  Carry  flag  from  the  compari- 

son into  register  A. 

0A2^H  Combine  the  value  of  the  MSB  of  the  single  preci- 

sion value  in  register  C  with  the  value  in  register  A. 

0A25H  Return. 

0A26H  -   0A38H  SINGLE  PRECISION 

COMPARISON  ROUTINE 

0A26H  Bump  the  value  of  the  memory  pointer  in  register 

pair  HL  so  that  it  points  to  the  exponent  in  REGl. 

0A27H  Load  register  A  with  the  value  of  the  exponent  for 

the  single  precision  value  in  register  B. 

0A28H  Check  to  see  if  the  exponent  for  the  single  precision 

value  in  REGl  at  the  location  of  the  memory  pointer 
in  register  pair  HL  is  the  same  as  the  value  of  the 
exponent  for  the  single  precision  value  in  register  A. 

0A29H  Return  if  the  value  of  the  exponent  in  REGl  isn't  the 

same  as  the  value  of  the  exponent  in  register  A. 

0A2AH  Decrement  the  value  of  the  memory  pointer  in  reg- 

ister pair  HL, 

0A2BH  Load  register  A  with  the  MSB  for  the  single  preci- 

sion value  in  register  C. 

0A2CH  Check  to  see  if  the  MSB  for  the  single  precision 

value  in  REGl  at  the  location  of  the  memory  pointer 
in  register  pair  HL  is  the  same  as  the  value  of  the 
MSB  for  the  single  precision  value  in  register  A. 

0A2DH  Return  if  the  value  of  the  MSB  in  REGl  isn't  the 

same  as  the  value  of  the  MSB  in  register  A. 

0A2EH  Decrement  the  value  of  the  memory  pointer  in  reg- 

ister pair  HL, 

0A2FH  Load  register  A  with  the  NMSB  of  the  single  preci- 

sion value  in  register  D, 

0A30H  Check  to  see  if  the  NMSB  for  the  single  precision 

value  in  REGl  at  the  location  of  the  memory  pointer 
in  register  pair  HL  is  the  same  as  the  value  of  tiie 
NMSB  for  tile  single  precision  value  in  register  A, 

0A31H  Return  if  the  value  of  the  NMSB  in  REGl  isn't  the 

same  as  the  value  of  the  NMSB  in  register  A. 

0A32H  Decrement  the  value  of  the  memory  pointer  in  reg- 

ister pair  HL, 
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0A3  3H  Load  register  A  with  the  LSB  of  the  single  precision 

value  in  register  E. 

0A3^H  Check  to  see  if  the  LSB  for  the  single  precision  value 

in  REGl  at  the  location  of  the  memory  pointer  in 
register  pair  HL  is  the  same  as  the  value  of  the  LSB 
for  the  single  precision  value  in  register  A. 

0A3  5H  Return  if  the  value  of  the  LSB  in  REGl  isn't  tJie  same 

as  the  value  of  the  LSB  in  register  A. 

0A36H  Get  the  value  from  the  stack  and  put  it  in  ::egister 

pair  HL. 

OA37H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  HL. 

0A38H  Return. 

0A39H  -   0A^8H    INTEGER  COMPARE 

0A39H  Load  register  A  with  the  MSB  of  the  integer  value  in 

register  D. 

0  A3  AH  Check  to  see  if  the  sign  bit  for  the  MSB  of  the  integer 

value  in  register  H  is  die  same  as  the  sign  bit  for  the 
MSB  for  the  integer  value  in  register  A. 

0  A3BH  Load  register  A  with  the  MSB  of  the  integer  value  in 

register  H. 

0A3CH  -  0A3EH  Jump  if  the  sign  bits  for  the  integer  values  aren't 
equal. 

0A3FH  Check  to  see  if  the  MSB  for  the  integer  value  in 

register  D  is  the  same  as  the  MSB  for  the  integer 
value  in  register  A. 

OA^OH  -  0A^2H  Jump  if  the  MSB  for  the  integer  value  in  register  D 
isn't  the  same  as  the  MSB  for  die  integer  value  in 
register  A. 

0  A^3  H  Load  register  A  with  the  LSB  of  the  integer  value  in 

register  L. 

0a44H  Check  to  see  if  die  LSB  for  the  integer  value  in 

register  E  is  the  same  as  the  LSB  for  the;  integer 
value  in  register  A. 

0A^5H  -  0A47H  Jump  if  the  LSB  for  the  integer  value  in  register  E 
isn't  the  same  as  the  LSB  for  the  integer  value  in 
register  A. 

0A48H  Return. 

Okkgn  -  0A77H    DOUBLE  PRECISION  COMPARE 
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0A49H 
OA^CH 
OA^FH 
0A52H 

0A53H 

0A5^H 

0A57H 
0A5AH 


OA^BH   Load  register  pair  HL  with  the  starting  address  of 
REG2. 

OA^EH   Go  move  the  double  precision  value  pointed  to  by 
register  pair  DE  to  REG2. 

0A51H   Load  register  pair  DE  with  the  address  of  the  expo- 
nent in  REG2. 

Load  register  A  with  the  exponent  for  the  double 
precision  value  in  REG2  at  the  location  of  the  mem- 
ory pointer  in  register  pair  DE. 

Check  to  see  if  the  double  precision  value  in  REG2  is 
equal  to  zero. 


0A56H 

0A59H  Load  register  pair  HL  with  the  return  address. 


Jump  if  the  double  precision  value  in  REG2  is  equal 
to  zero. 


0A5BH  -  0A5DH 

0A5EH 
0A5FH 

0A60H 

0A61H 

0A62H  -  0A6te 
OA65H 

0A66H 
0A67H 

0A68H 


Save  the  return  address  in  register  pair  HL  on  the 
stack. 

Go  check  to  see  if  the  double  precision  value  in 
REGl  is  equal  to  zero. 

Decrement  the  value  of  the  memory  pointer  in  reg- 
ister pair  DE. 

Load  register  A  with  the  MSB  of  the  double  preci- 
sion value  in  REG2  at  the  location  of  the  memory 
pointer  in  register  pair  DE. 

Load  register  C  with  the  MSB  of  the  double  preci- 
sion value  in  REG2  in  register  A. 

Return  if  the  double  precision  value  in  REGl  is  equal 
to  zero. 

Load  register  pair  HL  with  the  address  of  the  MSB  of 
the  double  precision  value  in  REGL 

Check  to  see  if  the  sign  bit  for  the  MSB  of  the  double 
precision  value  in  REGl  at  the  location  of  the  mem- 
ory pointer  in  register  pair  HL  is  the  same  as  the 
sign  bit  for  the  MSB  of  the  double  precision  value  in 
REG2  in  register  A. 

Load  register  A  with  the  MSB  of  the  double  preci- 
sion value  in  REG2  in  register  C. 

Return  if  the  sign  bits  for  the  double  precision  values 
in  REGl  and  REG2  aren't  the  same. 

Bump  the  value  of  the  memory  pointer  in  register 
pair  DE. 
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0A69H  Bump  the  value  of  the  memory  pointer  in  register 

pair  HL. 

0A6AH  -  0A6BH  Load  register  B  with  the  number  of  bytes  to  be 
compared. 

0 A6  CH  Load  register  A  with  the  value  at  the  locati  Dn  of  the 

memory  pointer  in  register  pair  DE. 

0A6DH  Check  to  see  if  the  value  in  register  A  is  the  same  as 

the  value  at  the  location  of  the  memory  pointer  m 
register  pair  HL. 

0A6EH  "  0A70H  Jump  if  the  value  in  register  A  isn't  the  same  as  the 
value  at  the  location  of  the  memory  pointer  in  regis- 
ter pair  HL. 

0A71H  Decrement  the  value  of  the  memory  pointeir  in  reg- 

ister pair  DE. 

0A72H  Decrement  the  value  of  the  memory  pointer  in  reg- 

ister pair  HL. 

OA73H  Decrement  the  number  of  bytes  remaining  to  be 

compared  in  register  B. 

OA 7^H  -   0A75H    Loop  till  all  of  the  bytes  have  been  compared. 

0A76H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  BC. 

0A77H  Return. 

0A78H  "   0A7EH    DOUBLE  PRECISION  COMPARE 

0A78H  -  0A7AH  Go  compare  the  double  precision  value  in  REG2  to 
the  double  precision  value  in  REGl. 

0A7BH  -  0A7DH  Jump  if  the  double  precision  value  in  REGl  and  the 
double  precision  value  in  REG2  aren't  th<i  same. 

0A7EH  Return. 

0A7FH  -   OABOPI    LEVEL  II  BASIC  CINT  ROUTINE 

0A7FH  Go  check  the  current  value  of  the  number  type  flag. 

0A80H  -  0A82H  Load  register  pair  HL  with  the  integer  value  in 
REGl. 

0A83H  Return  if  the  current  value  in  REGl  is  an  integer. 

0A8to  "  0A86H  Go  to  the  Level  II  BASIC  error  routine  and  display  a 
TM  ERROR  message  if  the  current  value  in  REGl  is 
a  string. 
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0A87H  -   0A89H   Go  convert  the  double  precision  value  in  REGl  to 

single  precision. 

0A8AH    -    OABCH   Load  register  pair  HL  with  the  return  address. 

OASDH  Save  the  return  address  in  register  pair  HL  on  the 

stack. 

0A8EH  -  OA9OH  Load  register  A  with  the  exponent  for  the  single 
precision  value  in  REGl, 

OA9IH  -  0A92H  Check  to  see  if  the  exponent  for  the  single  precision 
value  in  REGl  in  register  A  indicates  more  than  16 
bits  of  precision. 

0A93H  -  0A9^H  Jump  if  the  exponent  for  the  single  precision  value  in 
REGl  in  register  A  indicates  more  than  16  bits  of 
precision. 

0A95H  -  0A97H  Go  convert  the  single  precision  value  in  REGl  to  an 
integer  and  return  with  the  integer  value  in  register 
pair  DE. 

OA98H  Load  register  pair  HL  with  the  integer  value  in 

register  pair  DE. 

0A99H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  DE. 

0A9AH  -  0A9CH  Save  the  integer  value  in  register  pair  HL  as  the 
current  value  in  REGl. 

0A9DH  -   0A9M   Load  register  A  with  an  integer  number  type  flag. 

0A9FH  -  OAAIH  Save  the  integer  number  type  flag  in  register  A  as 
the  current  value  of  the  number  type  flag. 

0AA2H  Return. 

0AA3H  -  0AA5H  Load  register  pair  BC  with  the  exponent  and  the 
MSB  of  a  single  precision  value. 

0AA6H  -  0AA8H  Load  register  pair  DE  with  the  NMSB  and  the  LSB 
of  a  single  precision  value.  Register  pairs  BC  and 
DE  now  hold  a  single  precision  value  equal  to 
-32768. 

0AA9H  "  OAABH  Go  check  to  see  ifthe  single  precision  value  in  REGl 
is  equal  to  -32768. 

OAACH  Go  to  the  Level  II  BASIC  error  routine  and  display 

an  OV  ERROR  message  if  the  value  in  REGl  isn^t 
equal  to  -32768. 

OAADH  Load  register  H  with  the  MSB  of  the  single  precision 

value  in  register  C. 
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OAAEH  Load  register  L  with  the  NMSB  of  the  single  preci- 

sion value  in  register  D. 

OAAFH  -   OABOH    Jump. 

OABIH  -   OACBH    LEVEL  II  BASIC  CSNG  ROUTINE 

OABIH  Go  check  the  current  value  of  the  number  type  flag. 

0AB2H  Return  if  the  current  value  in  REGl  is  single  preci- 

sion. 

0AB3H  -   0AB5H    Jump  if  the  current  value  in  REGl  is  an  integer. 

0AB6H  -  0AB8H  Go  to  the  Level  II  BASIC  error  routine  and  display  a 
TM  ERROR  message  if  the  current  value  in  REG  1  is 
a  string. 

0AB9H  -  OABBH  Go  move  the  most  significant  four  bytes  of  the  dou- 
ble precision  value  in  REGl  into  register  pairs  EC 
andDE. 

OABOH  -  OABEH  Go  set  the  current  number  type  flag  to  single  preci- 
sion. 

OABFH  Load  register  A  with  the  exponent  of  tlie  double 

precision  value  in  register  B. 

OACOH  Check  to  see  if  the  double  precision  value  ia  REGl  is 

equal  to  zero. 

OACIH  Return  if  the  double  precision  value  in  RECrl  is  equal 

to  zero. 

0AC2H  -  OAC^H  Go  turn  on  the  most  significant  bit  of  i:he  single 
precision  value  in  REGl. 

0AC5H  -  0AC7H  Load  register  pair  HL  with  the  address  of  the  most 
significant  byte  chopped  off  the  double  precision 
value. 

0AC8H  Loaded  register  B  with  the  most  significant  byte 

chopped  off  the  double  precision  value  at  tlie  location 
of  tie  memory  pointer  in  register  pair  K  L. 

0AC9H  "   OACBH    Jump. 

OACOH  -   OADAH    LEVEL  II  BASIC  MATH  ROUTINE 

OACCH  -  OACEH  Load  register  pair  HL  with  the  integer  value  at  the 
location  of  an  integer  storage  in  REGl. 

OACFH  -  OADIH  Go  set  the  current  number  type  flag  to  single  preci- 
sion. 

0AD2H  Load  register  A  with  the  MSB  of  the  integer  value  in 

register  H. 

266 


0AD3H  Load  register  D  with  the  LSB  of  the  integer  value  in 

register  L 

0AD4H  -  0AD5H  Zero  register  E. 

0AD6H  -  0AD7H  Load  register  B  with  an  exponent. 

0AD8H  -  OADAH  Jump. 

OADBH  -  OAEDH  LEVEL  II  BASIC  CDBL  ROUTINE 

OADBH  Go  check  the  current  value  of  the  number  type  flag. 

OADCH  Return  if  the  current  value  in  REGl  is  double  preci- 

sion. 

OADDH  "  OADFH  Go  to  the  Level  H  BASIC  error  routine  and  display  a 
TM  ERROR  message  if  the  current  value  in  REGl  is 
a  string. 

OAEOH  -   0AE2H  Go  convert  an  integer  to  single  precision. 

0AE3H  -   0AE5H    Load  register  pair  HL  with  zero. 

0AE6H  -  0AE8H  Save  the  value  in  register  pair  HL  as  the  first  and 
second  bytes  of  REGl. 

0AE9H  "  OAEBH  Save  the  value  in  register  pair  HL  as  the  third  and 
fourth  bytes  of  REGl. 

OAECH  "  OAEDH  Load  register  A  with  a  double  precision  number  type 
flag. 

OAEEH  -   0AF3H    LEVEL  II  BASIC  MATH  ROUTINE 

OAEFH  -  OAFOH  Load  register  A  with  a  single  precision  number  type 
flag. 

OAFIH  -  0AF3H  Save  the  value  in  register  A  as  the  current  number 
type  flag. 

OAF^H  -  OAFAH    LEVEL  II  BASIC  MATH  ROUTINE 

OAF^H  Go  check  the  current  value  of  the  number  type  flag. 

0AF5H  Return  if  the  current  value  in  REGl  is  a  string. 

0AF6H  -  0AF7H    Uad  register  E  with  a  TM  ERROR  code. 

0AF8H  -  OAFAH  Go  to  the  LEVEL  H  BASIC  error  routine  and  display 
a  TM  ERROR  message  if  the  current  value  in  REGl 
isn't  a  string. 

OAFBH  -   OBIEH    LEVEL  11  BASIC  MATH  ROUTINE 

OAFBH  Load  register  B  with  the  exponent  of  the  single 

precision  number  in  register  A. 
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OAFCH  Load  register  C  with  the  exponent  of  the  single 

precision  number  in  register  A. 

OAFDH  Load  register  D  with  the  exponent  of  the  single 

precision  number  in  register  A. 

OAFEH  Load  register  E  with  the  exponent  of  the  single 

precision  number  in  register  A. 

OAF  FH  Check  to  see  if  the  single  precision  number  in  REGl 

is  equal  to  zero. 

OBOOH  Return  if  the  single  precision  value  in  REG:L  is  equal 

to  zero. 

OBOIH  Save  the  value  in  register  pair  HL  on  the  stack. 

0B02H  ^  OBO^H   Go  move  the  single  precision  value  in  RlDGl  into 
register  pairs  EC  and  DE. 

0B05H  -   0B07H    Go  turn  on  the  sign  bit  of  the  single  precision  value  in 
register  pairs  EC  and  DE. 

0B08H  Set  the  sign  bit  according  to  the  sign  of  the  value  at 

the  location  of  the  memory  pointer  in  register  pair 
HL. 

0B09H  Load  register  H  with  the  value  of  the  sign  in  register 

A. 

OBOAH  -  OBOCH  Go  decrement  the  single  precision  value  in  register 
pairs  EC  and  DE  if  the  sign  of  the  value  is  negative. 

OBODH  -   OBOEH    Load  register  A  with  the  maximum  exponent. 

OBOFH  Figure  the  number  of  bits  to  be  shifted  by  subtract- 

ing the  exponent  in  register  B  from  the  exponent  in 
register  A. 

OBIOH  -  0B12H  Go  shift  the  single  precision  value  in  register  pairs 
EC  and  DE. 

0B13H  Load  register  A  with  the  value  of  the  sign  i:n  register 

H. 

OBl^H  Put  the  sign  bit  into  the  Carry  flag. 

0B15H  -  0B17H  Go  bump  the  value  in  register  pairs  EC  ancDE  if  the 
original  number  was  negative. 

0B18H  -   OBI9H    Load  register  B  with  an  exponent. 

OBIAH  -  OBICH  Go  make  the  integer  negative  if  ±e  original  number 
was  negative.  Return  with  the  integer  value  in  reg- 
ister pair  DE. 
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OBIDH  Get  the  value  from  the  stack  and  put  it  in  register 

pair  HL. 

OBIEH  Return. 

OBIFH  -    0B25H   LEVEL  II  BASIC  MATH  ROUTINE 

OBIFH  Decrement  the  NMSB  and  the  LSB  of  the  single 

precision  value  in  register  pair  DE. 

0B20H  Load  register  A  with  the  value  of  the  NMSB  for  the 

single  precision  value  in  register  D. 

0B21H  Combine  the  LSB  of  the  single  precision  value  in 

register  E  with  the  NMSB  of  the  single  precision 
value  in  register  A. 

0B22H  Bump  the  combined  value  in  register  A. 

0B23H  Return  if  the  NMSB  and  the  LSB  of  the  single  preci- 

sion value  in  register  pair  DE  isn't  equal  to  FFFFH. 

^^^^^  Decrement  the  value  of  the  exponent  and  the  MSB  of 

the  single  precision  value  in  register  pair  BC. 

0B25H  Return. 

0B26H  -  0B58H    LEVEL  II  BASIC  FIX  ROUTINE 

0B26H  Go  check  the  current  value  of  the  number  type  flag. 

0B27H  Return  if  the  current  value  in  REGl  is  an  integer. 

0B28H  "  0B2AH   Go  check  the  sign  of  the  current  value  in  REGL 

0B2BH  -  0B2DH  Jump  if  the  current  value  in  REGl  is  positive. 

0B2EH  -  0B30H   Go  convert  the  current  value  in  REGl  to  positive. 

0B31H  "  0B33H   Go  get  the  integer  part  of  the  current  value  in  REGl. 

0B3^H  "  0B36H  Jump. 

^B3  7H  Go  check  the  current  value  of  the  number  type  flag. 

0B38H  Return  if  the  current  value  in  REGl  is  an  integer. 

0B39H  -  0B3AH  Jump  if  the  current  value  in  REGl  is  double  preci- 
sion. 

0B3BH  "  0B3CH  Go  to  the  Level  II  BASIC  error  routine  and  display  a 
TM  ERROR  message  if  the  current  value  in  REGl  is 
a  string. 

OB3  DH  -  0B3FH  Go  convert  the  single  precision  value  in  REGl  to  an 
integer. 
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0B40H  -   0B^2H    Load  register  pair  HL  with  the  address  of  ±e  expo- 
nent in  REGl. 

0B43H  Load  register  A  with  the  value  of  the  exponent  in 

REGl  at  the  location  of  the  memory  pointer  in 
register  pair  HL. 

OB^^H  -   0B45H   Check  to  see  ifthere  is  more  than  24  bits  of  precision 
used  by  the  current  value  in  REGl. 

OB^H  -"   0B^8H   Load  re^ster  a  with  the  LSBofthe  single  precision 
number  in  REGl. 

0B^9H  Return  if  more  than  24  bits  of  precision  is  used  by  the 

single  precision  value  in  REGl. 

OB^AH  Load  register  A  with  the  exponent  of  the  single 

precision  number  in  REGl. 

OB^BH  -   OBtoH   Go  convert  the  single  precision  number  in  l^Gl  to 
an  integer. 

OB^EH  -   OB^FH   Save  an  exponent  in  REGl. 

OB  5  OH  Load  register  A  with  the  LSB  of  the  integer  value  in 

register  E. 

0B51H  Save  the  LSB  of  the  integer  value  in  register  A  on 

the  stack. 

0B52H  Load  register  A  with  the  value  in  register  C. 

OB53H  Move  the  sign  bit  in  register  A  into  the  Carry  flag. 

OBS^H  -   0B56H   Go  make  the  number  in  REGl  single  precision. 

0B57H  Get  the  LSB  of  the  single  precision  value  from  the 

stack  and  put  it  in  register  A. 

0B58H  Return. 

0B59H  "  0B9DH  LEVEL  II  BASIC  MATH  ROUTINE 

0B59H  -   0B5BH   Load  register  pair  HL  with  the  address  of  tiie  expo- 
nent in  REGl. 

0B5CH  Load  register  A  with  the  value  of  the  exponent  for 

the  double  precision  number  in  REGl  at  the  location 
of  the  memory  pointer  in  register  pair  HL. 

0B5DH  -   0B5EH   ChecktoseeifthedoubleprecisionnumberinREGl 
uses  more  or  less  than  16  bits  of  precisian. 

0B5FH  -   0B61H  Jump  if  the  double  precision  value  in  REGl  uses  less 
than  16  bits  of  precision. 
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0B62H  -   0B63H  Jump  if  the  double  precision  number  in  REGl  uses 
more  than  16  bits  of  precision. 

0B64H  Load  register  C  with  the  exponent  for  the  double 

precision  number  in  register  A. 

OBoSH  Decrement  the  value  of  the  memory  pointer  in 

register  pair  HL. 

0B66K  Load  register  A  with  the  MSB  of  the  double  preci- 

sion value  in  REGl  at  the  location  of  the  memory 
pointer  in  register  pair  HL. 

OB67H  -   0B68H    Complement  the  value  of  the  sign  bit  in  register  A. 

OB69H  "  0B6AH  Load  register  B  with  the  number  of  bytes  to  be 
checked. 

0B6BH  Decrement  the  value  of  the  memory  pointer  in 

register  pair  HL. 

0B6CH  Combine  the  value  at  the  location  of  the  memory 

pointer  in  register  HL  with  the  value  in  register  A. 

0B6DH  Decrement  the  byte  counter  in  register  B. 

0B6EH  «   0B6FH    Loop  till  all  of  the  bytes  have  been  checked. 

OB7OH  Check  to  see  if  the  double  precision  value  in  REGl  is 

equal  to  a  -32768. 

0B71H  <-  0B73H    Load  register  pair  HL  with  a  negative  zero. 

0B7^H  -  OB76H  Jump  if  the  double  precision  value  in  REGl  is  a 
-32768. 

^B77H  Load  register  A  with  the  exponent  for  the  double 

precision  value  in  register  C. 

0B78H  -  0B79H  Check  to  see  if  more  than  56  bits  of  precision  has 
been  used  for  the  double  precision  value  in  REGL 

0B7AH  Return  if  more  than  56  bits  of  precision  have  been 

used  for  the  double  precision  value  in  REGl. 

0B7BH  Save  the  exponent  in  register  A  on  the  stack. 

0B7CH  -  0B7EH  Go  move  the  most  significant  four  bytes  of  the  dou- 
ble precision  value  in  REGl  into  register  pairs  BC 
and  DE. 

0B7FH  -  0B81H  Go  turn  on  the  sign  bit  and  return  with  the  value  of 
the  sign. 

0B82H  Combine  the  value  at  the  location  of  the  memory 
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pointer  in  register  pair  HL  with  the  result  ol:  the  sign 
test  in  register  A. 

0B83H  Decrement  the  value  of  the  memory  pointer  in 

register  pair  HL. 

0B8^H  "  0B85H  Save  an  exponent  at  the  location  of  the  memory 
pointer  in  register  HL. 

0B86H  Save  the  value  of  the  sign  test  in  register  A  on  the 

stack. 

0B87H  "   0B89H  Go  adjust  the  number  in  REGl  if  it's  negative. 

0B8AH  -   0B8GH  Load  register  pair  HL  with  the  address  of  the  MSB  in 
REGl. 

0B8DH  -  0B8EH  Load  register  A  with  the  maximum  value  of  an  expo- 
nent. 

0B8FH  Subtract  the  value  of  the  exponent  at  the  location  of 

the  memory  pointer  in  register  pair  HL  from  the 
value  in  register  A. 

0B90H  -   0B92H  Go  adjust  the  value  in  REGl. 

0B93H  ^^^  ^^  ^^^"^  ^^^^^  ^^^  ^^^^  ^^^  *^  ®^^^^  ^^  ^^^  ^^ 

in  register  A. 

0B9to  -    0B96H  Go  adjust  the  value  in  REGl  if  if  s  negative. 

0B97H  Zero  register  A. 

0B98H  -   0B9AH  Zero  memory  location  411CH. 

0B9BH  Get  the  value  of  the  original  exponent  test  from  the 

stack  and  put  it  in  register  pair  AF. 

0B9CH  Return  if  more  than  56  bits  are  used  by  t:ie  double 

precision  number. 

0B9DH  -  0B9FH  Jump. 

OBAOH  -   0BA9H  LEVEL  II  BASIC  MATH  ROUTINE 

OBAOH  -   0BA2H  Load  register  pair  HL  with  the  starting  address  of 
REGl. 

0BA3H  I-oad  register  A  with  the  value  at  the  location  of  the 

memory  pointer  in  register  pair  HL. 

OBA^H  Decrement  the  value  at  the  location  of  ths  memory 

pointer  in  register  pair  HL. 

0BA5H  Check  to  see  if  the  value  in  register  A  is  equal  to 

zero. 
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0BA6H  Decrement  the  value  of  the  memory  pointer  in 

register  pair  HL. 

0BA7H  -  0BA8H  Loop  till  the  value  at  the  location  of  the  memory 
pointer  in  register  pair  HL  is  equal  to  a  nonzero 
value. 

0BA9H  Return. 

OBAAH  "   0BC6H  level  II  BASIC  MATH  ROUTINE 

OBAAH  Save  the  value  in  register  pair  HL  on  the  stack. 

OBABH  "  OBADH  Load  register  pair  HL  with  zero. 

OBAEH  Load  register  A  with  the  MSB  of  the  integer  value  in 

register  B. 

OBAFH  Combine  the  LSB  of  the  integer  value  in  register  C 

with  the  MSB  of  the  integer  value  in  register  A. 

OBBOH  -  OBBIH  Jump  if  the  integer  value  in  register  pair  BC  is  equal 
to  zero. 

0BB2H  -   0BB3H    Load  register  A  with  the  counter  value. 

OBBto  Multiply  the  result  in  register  pair  HL  by  two. 

0BB5H  -  0BB7H  Go  to  the  Levelll  BASIC  error  routine  and  display  a 
BS  ERROR  message  if  the  result  in  register  pair  HL 
has  overflowed. 

0BB8H  Exchange  the  integer  value  in  register  pair  DE  with 

the  result  in  register  pair  HL. 

^BB9H  Multiply  the  integer  value  in  register  pair  HL  by 

two. 

OBBAH  Exchange  the  result  in  register  pair  DE  with  the 

integer  value  in  register  pair  HL. 

OBBBH  -  OBBCH  Jump  if  the  most  significant  bit  in  the  integer  value  in 
register  DE  wasn't  set. 

OBBDH  Add  the  integer  value  in  register  pair  BC  to  the 

result  in  register  pair  HL. 

OBBEH  "  OBCOH  Go  to  the  Level  II  BASIC  error  routine  and  display  a 
BS  ERROR  message  if  the  result  in  register  pair  HL 
has  overflowed. 

OBCIH  Decrement  the  counter  in  register  A. 

0BC2H  -  0BC3H    Loop  till  the  multiplication  has  been  completed. 

OBC^H  Load  register  pair  DE  with  the  result  in  register  pair 

HL. 
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0BC5H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  HL. 

0BC6H  Return. 

0BC7H  -   OBDIH    INTEGER  SUBTRACTION 

0BC7H  Load  register  A  with  the  MSB  of  the  integer  value  in 

register  H. 

0BC8H  Put  the  value  of  the  sign  bit  into  the  Carry  flag. 

0BC9H  Adjust  register  A  according  to  the  value  cf  the  sign 

bit 

OBCAH  Load  register  B  with  the  result  of  the  siipi  test. 

OBCBH  -  OBCDH   Go  complement  the  value  in  register  pair  HL. 

OBGEH  Load  register  A  with  zero. 

OBCFH  Adjust  the  value  of  the  sign  test. 

OBDOH  -  OBDIH  Jump. 

0BD2H  -  OBFIH   INTEGER  ADDITION 

0BD2H  Load  register  A  with  the  MSB  of  the  integer  value  in 

register  pair  HL. 

0BD3H  Put  the  value  of  the  sign  bit  into  the  Carry  flag. 

OBD^H  Adjust  register  A  according  to  the  value  of  the  sign 

bit 

0BD5H  Load  register  B  with  the  result  of  the  si,^  test. 

0BD6H  Save  the  integer  value  in  register  pair  HL  on  the 

stack. 

0BD7H  Load  register  A  with  the  MSB  of  the  integer  value  in 

register  pair  DE. 

0BD8H  Put  the  value  of  the  sign  bit  into  the  Cairy  flag. 

0BD9H  Adjust  register  A  according  to  the  value  of  the  sign 

bit. 

OBDAH  Add  the  integer  value  in  register  pair  IDE  to  the 

integer  value  in  register  pair  HL 

OBDBH  Add  the  Carry  flag  and  the  value  from  th<;  sign  test 

for  the  integer  value  in  register  pair  HL  in  register  B 
to  the  value  of  the  sign  test  for  the  integer  value  in 
register  pair  DE  in  register  A. 
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OBDCH  Put  the  value  of  the  Carry  flag  in  register  A. 

OBDDH  Combine  the  value  of  the  sign  bit  for  the  result  in 

register  H  with  the  value  in  register  A. 

OBDEH  -   OBEOH    Jump  unless  overflow  has  occurred. 

OBEIH  Save  the  value  of  the  sign  test  in  register  B  on  the 

stack. 

0BE2H  Load  register  pair  HL  with  the  integer  value  in 

register  pair  DE. 

0BE3H  -  0BE5H  Go  convert  the  register  value  in  register  pair  HL  to 
single  precision  and  return  with  the  result  in  REGl. 

0BE6H  Get  the  value  of  the  sign  test  from  the  stack  and  put  it 

in  register  A. 

0BE7H  Get  the  integer  value  from  the  stack  and  put  it  in 

register  pair  HL. 

0BE8H  -   OBEAH    Go  move  the  single  precision  value  in  REGl  on  to 

the  stack. 

OBEBH  Load  register  pair  DE  with  the  integer  value  in 

register  pair  HL. 

OBEGH  -  OBEEH  Go  convert  the  integer  value  in  register  pair  DE  to 
single  precision  and  return  with  the  result  in  REGl. 

OBEFH  -   OBFIH    Go  perform  single  precision  addition. 
0BF2H  -  OCl-m    INTEGER  MULTIPLICATION 

0BF2H  Load  register  A  with  the  MSB  of  the  integer  value  in 

register  H. 

0BF3H  Combine  the  LSB  of  the  integer  value  in  register  L 

with  the  MSB  of  the  integer  value  in  register  A. 

OBF^H  -  0BF6H  Jump  if  the  integer  value  in  register  pair  HL  is  equal 
to  zero. 

0BF7H  Save  the  integer  value  in  register  pair  HL  on  the 

stack. 

0BF8  H  Save  the  integer  value  in  register  pair  DE  on  the 

stack. 

0BF9H  -  OBFBH  Go  convert  any  negative  integer  values  to  positive 
and  return  with  register  B  set  according  to  the  value 
of  the  sign  bits. 

OBFCH  Save  the  value  of  the  sign  bit  test  in  register  B  on  the 

stack. 
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OBFDH  Load  register  B  with  the  MSB  of  the  integer  value  in 

register  H. 

OBFEH  Load  register  C  with  the  LSB  of  the  integer  value  in 

register  L. 

OBFPH  -  OCOIH  Load  register  pair  HL  with  zero. 

OC  02H  -  0C03H  Load  register  A  with  the  counter  value. 

OCO^H  Multiply  the  result  in  register  pair  HL  by  two. 

0C05H  •  0C06H  Jump  if  the  result  in  register  pair  HL  has  overflowed. 

0C07H  Exchange  the  integer  value  in  register  pair  DE  with 

the  integer  result  in  register  pair  HL 

0C08H  Multiply  the  integer  value  in  register  pair  HL  by 

two. 

OCO9H  Exchange  the  integer  result  in  register  pair  DE  with 

the  integer  value  m  register  pair  HL. 

OCOAH  -   OCOBH  Jump  ifthe  most  significant  bit  ofthe  integer  register 
pair  DE  wasn't  set. 

OCOCH  Add  the  integer  value  in  register  pair  BC  to  the 

integer  result  in  register  pair  HL. 

OCODH  -   OCOFH    Jump  if  the  result  in  register  pair  HL  has  overflowed. 

OCIOH  Decrement  the  value  of  the  counter  in  rei:ister  A. 

OCllH    -   0C12H    Loop  till  the  multiplication  has  been  completed. 

0C13H  Get  die  value  of  the  sign  test  from  the  stack  and  put  it 

in  register  B. 

OCl^H  Get  the  integer  value  from  the  stack  and  put  it  in 

register  pair  DE. 

0C15H  Load  register  A  with  the  MSB  of  the  result  in  regis- 

ter H. 

OCI6H  Check  to  see  if  the  sign  bit  in  the  MSB  of  ths  integer 

result  in  register  A  is  set. 

OCI7H  -   0C19H    Jump  if  the  integer  result  in  register  pair  HL  is 
negative. 

OCIAH  Get  the  integer  value  from  the  stack  and  put  it  in 

register  pair  DE. 

OCIBH  Load  register  A  with  the  value  of  the  sign  test  in 

register  B. 
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OCICH  -   OCIEH  Jump. 

OCIFH  -   0C3to   LEVEL  II  BASIC  MATH  ROUTINE 

OCIPH  -   0C20H   Clear  the  sign  bit  for  the  MSB  of  the  integer  value  in 
register  A. 

0  C2 IH  Combine  the  value  of  the  LSB  for  the  integer  value  in 

register  L  with  the  adjusted  MSB  of  the  integer 
value  in  register  A. 

0C22H  -   0C23H  Jump  if  the  result  is  equal  to  zero. 

0C2^H  Load  register  pair  HL  with  die  integer  value  in 

register  pair  DE. 

0C26H  Get  the  value  of  the  sign  test  from  the  stack  and  put  it 

in  register  B. 

0C27H  Get  ±e  integer  value  from  the  stack  and  put  it  in 

register  pair  HL. 

0C28H  -   0C2AH    Go  convert  the  integer  value  in  register  pair  HL  to 
single  precision  and  return  with  the  result  in  REGl. 

0G2BH  Get  the  integer  value  from  the  stack  and  put  it  in 

register  pair  HL. 

0C2GH   "   0C2EH  Go  move  the  single  precision  value  from  REGl  to 
the  stack. 

0C2FH  -   0C31H   Go  convert  the  integer  value  in  register  pair  HL  to 
single  precision  and  return  with  the  result  in  REGL 

0C32H  Get  the  exponent  and  the  MSB  of  the  single  preci- 

sion value  from  ±e  stack  and  put  it  in  register  pair 
BC. 

0C33H  Get  the  NMSB  and  the  LSB  of  the  single  precision 

value  from  the  stack  and  put  it  in  register  pair  DE. 

0C3^H  -   0C36H  Go  do  single  precision  multiphcation. 

0C37H  -  OG^^H   LEVEL  II  BASIC  MATH  ROUTINE 

0C37H  Load  register  A  with  the  result  of  the  sign  test  in 

register  B. 

0C38H  Check  to  see  if  the  result  is  supposed  to  be  negative. 

OC39H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  BC. 

0G3AH   -   0C3GH  Jump  if  the  result  is  supposed  to  be  negative. 
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0C3DH  Save  the  integer  value  in  register  pair  DE  on  the 

stack. 

0C3EH  -  OC^OH   Go  convert  the  integer  result  in  register  pair  HL  to 
single  precision  and  return  with  the  result  in  REGl. 

0C4lH  Get  the  integer  value  from  the  stack  and  put  it  in 

register  pair  DE. 

0C^2H  "   OC^^H  Jump. 

00^'5E  -   0C5AH    LEVEL  II  BASIC  MATH  ROUTINE 

0C^5H  Load  register  A  with  the  MSB  of  the  integei"  value  in 

register  H. 

0C^6H  Combine  the  MSB  of  the  integer  value  in  register  D 

with  the  MSB  of  the  integer  value  in  register  A. 

0C^7H  Save  the  result  of  the  combined  signs  in  njgister  A 

into  register  B. 

0C^8H  -   OC^AH    Go  convert  a  negative  integer  value  in  register  pair 
HL  to  positive. 

OC^BH  Exchange  the  integer  value  in  register  pair  DE  with 

the  integer  value  in  register  pair  HL. 

OC^^CH  Load  register  A  with  the  MSB  of  the  integer  value  in 

register  H, 

OCtoH  Check  the  value  of  the  sign  for  the  MSB  of  the 

integer  value  in  register  A. 

OC^EH  -   0C50H  Jump  if  the  integer  value  in  register  pair  HL  is 
positive. 

0C51H  Zero  register  A. 

0C52H  Load  register  C  with  the  value  in  register  A. 

0C53H  Subtract  the  LSB  of  the  integer  value  in  register  L 

from  the  value  in  register  A. 

0C5^H  Save  the  adjusted  value  in  register  A  in  r€:gister  L. 

0C55H  Load  register  A  with  the  value  in  register  C. 

0C56H  Subtract  the  MSB  of  the  integer  value  in  register  H 

from  the  value  in  register  A. 

0C57  H  Save  the  adjusted  value  in  register  A  into  register  H. 

0C58H  -  0C5AH  Jump. 

0C5BH  -  0C6FH   LEVEL  II  BASIC  MATH  ROUTINE 
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0C5BH  -   0C5DH    Load  register  pair  HL  with  the  integer  value  in 
REGL 

0C5SH  -   0C60H    Go  convert  the  integer  value  in  register  pair  HL  to 

positive  if  it's  negative. 

0C6lH  Load  register  A  with  the  MSB  of  the  integer  value  in 

register  H. 

0Co2H  -   0C63H   Invert  the  value  of  the  sign  bit  in  register  A. 

0C64H  Combine  the  LSB  of  the  integer  value  in  register  L 

with  the  adjusted  MSB  of  the  integer  value  in  regis- 
ter A. 

0C65H  Return  if  the  integer  value  in  REGl  isn't  equal  to 

-32768. 

0C66H  Load  register  pair  DE  with  the  integer  value  in 

register  pair  HL. 

0C67H  -*  OC69H    Go  set  the  number  type  flag  to  single  precision. 

0C6AH  Zero  register  A. 

0C6BH  -  0C6CH    Load  register  B  with  an  exponent. 

0C6DH  -  0C6FH   Jump. 

0C70H  -  0C76H    DOUBLE  PRECISION  SUBTRACTION 

0C70H  -  0C72H    LoadregisterpairHLwiththeaddressoftheMSBin 
REG2. 

OC73H  Load  register  A  with  the  MSB  of  the  double  preci- 

sion value  in  REG2  at  the  location  of  the  memory 
pointer  in  register  pair  HL. 

0C7^H  -   OC75H    Invert  the  value  of  the  sign  bit  for  the  MSB  of  the 
double  precision  value  in  register  A. 

OC76H  Save  the  adjusted  MSB  of  the  double  precision  value 

in  register  A  in  REG2  at  the  location  of  the  memory 
pointer  in  register  pair  HL. 

0C77H  -   OCCEH   DOUBLE  PRECISION  ADDITION 

OC77H  -   0C79H    Load  register  pair  HL  with  the  address  of  the  expo- 
nent in  REG2. 

0C7AH  Load  register  A  with  the  exponent  of  the  double 

precision  value  in  REG2  at  the  location  of  the  mem- 
ory pointer  in  register  pair  HL. 

0  C  7BH  Check  to  see  if  the  double  precision  value  in  REG2  is 

equal  to  zero. 
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0C70H  Return  if  the  double  precision  value  in  REG2  is  equal 

to  zero. 

0C7DH  Load  register  B  with  the  value  of  the  exponent  for 

the  double  precision  value  in  register  A. 

0C7EH  Decrement  the  value  of  the  memory  pointer  in 

register  pair  HL. 

0C7FH  Load  register  C  with  the  value  of  the  MSB  of  the 

double  precision  value  in  REG2  at  the  location  of  the 
memory  pointer  in  register  pair  HL. 

0C80H  -  0C82H  Load  register  pair  DE  with  the  address  of  the  expo- 
nent in  REGl, 

0C83H  Load  register  A  with  the  value  of  ±e  exponent  of  the 

double  precision  value  in  REGl  at  the  location  of  die 
memory  pointer  in  register  pair  DE. 

0C84H  Check  to  see  if  the  double  precision  value  in  REGl  is 

equal  to  zero. 

0C85H  -  0C87H  Jump  ifthe  double  precision  value  in  REGl  is  equal 
to  zero. 

0G88H  Subtract  the  value  of  the  exponent  for  tlie  double 

precision  value  in  REG2  in  register  B  from  the  value 
of  the  exponent  for  the  double  precision  value  in 
REGl  in  register  A. 

OC89H  -  0G8AH  Jump  if  the  double  precision  value  in  REGl  is 
greater  than  or  equal  to  the  double  precisicm  value  in 
REG2. 


0C8BH 
0C8GH 

0C8DH 


Complement  the  difference  between  the  ':wo  expo- 
nents in  register  A. 

Bump  the  value  of  the  difference  for  the  ex])onents  in 
register  A  so  that  register  A  will  hold  ths  positive 
difference. 

Save  the  difference  for  the  exponents  in  I'egister  A 
on  the  stack. 


0G8EH  -   0C8FH    Load  register  C  with  the  counter  value. 
0C90H 


0G91H 
GG92H 
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Bump  the  value  of  the  memory  pointer  m  register 
pair  HL  so  that  it  will  be  pointing  to  the  e}q)onent  of 
the  double  precision  value  in  R£G2. 

Save  the  value  of  the  memory  pointer  in  re;pster  pair 
HL  on  the  stack. 

Load  register  A  with  the  value  at  the  location  of  the 
memory  pointer  in  register  pair  DE. 


0C93H  Load  register  B  with  the  value  at  the  location  of  the 

memory  pointer  in  register  pair  HL. 

0C9^H  Save  the  value  in  register  A  at  the  location  of  the 

memory  pointer  in  register  pair  HL. 

0C95H  Load  register  A  with  the  value  in  register  B. 

OC96H  Save  the  value  in  register  A  at  the  location  of  the 

memory  pointer  in  register  pair  DE. 

0C97H  Decrement  the  value  of  the  memory  pointer  in 

register  pair  DE. 

OC98H  Decrement  the  value  of  the  memory  pointer  in 

register  pair  HL. 

^C99H  Decrement  the  value  of  the  counter  in  register  C. 

0C9AH  -   0C9BH    Loop  till  the  double  precision  values  in  REGl  and 
REG2  have  been  exchanged. 

OC9CH  Get  the  value  of  the  memory  pointer  from  the  stack 

and  put  it  in  register  pair  HL. 

0C9DH  Load  register  B  with  the  value  of  the  exponent  for 

the  double  precision  value  in  REG2  at  the  location  of 
the  memory  pointer  in  register  pair  HL. 

OC9SH  Decrement  the  value  of  the  memory  pointer  in 

register  pair  HL. 

0C9FH  Load  register  C  with  the  value  of  the  MSB  for  the 

double  precision  value  in  REG2  at  the  location  of  the 
memory  pointer  in  register  pair  HL. 

OCA  OH  Get  the  difference  for  the  exponents  from  the  stack 

and  put  it  in  register  A. 

OCAIH  -   0CA2H    Check  to  see  if  the  difference  between  the  two  expo- 
nents is  greater  than  56  bits. 

0CA3H  Return  if  the  difference  between  the  two  exponents 

is  greater  than  56  bits. 

OCA^H  Save  the  difference  for  the  exponents  in  register  A 

on  the  stack. 

0CA5H  -    0CA7H    Go  turn  on  the  sign  bits  for  the  double  precision 
numbers. 

0CA8H  Bump  the  value  of  the  memory  pointer  in  register 

pair  HL. 

0CA9H   -   OCAAH  Zero  the  location  of  the  memory  pointer  in  register 
pair  HL. 
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OCABH  Save  the  result  of  the  sign  test  in  regijjter  A  in 

register  B. 

OCACH  Get  the  difference  for  the  exponents  from  the  stack 

and  put  it  in  register  A. 

OCADH  -  OCAFH  Load  registerpairHL  with  the  address  ofthe  MSB  in 
REG2. 

OCBOH  -  0CB2H  Go  shift  the  double  precision  value  in  RE 02  till  it 
lines  up  with  the  double  precision  value  in  REGl. 

0CB3H  "  0CB5H  Get  the  bits  shifted  out  of  the  double  precision  value 
in  REG2  and  put  it  in  register  A. 

0CB6H  -   OCBSH   Save  the  value  in  register  A. 

0CB9H  Load  register  A  with  the  value  of  the  si^pi  test  in 

register  B. 

OCBAH  Check  to  see  if  the  signs  are  equal 

OCBBH  "   OCBDH   Go  subtract  the  values  if  the  signs  aren't  equal. 

OCBEH  "   OCCOH  Go  add  the  values. 

OCCIH  "   0CC3H  Jump  if  the  Carry  flag  isn't  set 

0CC4H  Load  register  pair  HL  with  the  value  of  the  memory 

pointer  in  register  pair  DE. 

0  CC5H  Bump  the  value  of  the  exponent  at  the  location  of  the 

memory  pointer  in  register  pair  HL 

0CC6H  -  0CC8H  Go  to  the  Level  II  BASIC  error  routine  and  display 
an  OV  ERROR  message  if  the  exponent  for  the 
double  precision  result  in  REGl  is  too  large, 

0CC9H  -  OCCBH  Go  adjust  the  double  precision  result  in  l^EGl. 

OCCCH  -  OCCEH  Jump. 

OCCFH  -  ODIFH  DOUBLE  PRECISION  MATH  ROUTINE 

OCCFH  -  OCDIH  Go  subtract  the  double  precision  values. 

0CD2H  "  OCDto  Load  register  pair  HL  with  the  address  of  tlie  sign  for 
the  result. 

0CD5H  -  0CD7H  Go  complement  the  result  in  REGl  if  the  Carry  flag 
is  set. 

0CD8H  Zero  register  A. 

0CD9H  Load  register  B  with  the  value  in  register  A. 
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OCDAH  -  OCDGH  Load  register  A  with  the  value  of  the  MSB  of  the 
double  precision  result  in  REGL 

OCDDH  Check  to  see  if  the  MSB  of  the  double  precision 

result  is  equal  to  zero. 

OCDEH  -  OCDFH  Jump  if  the  MSB  of  the  double  precision  value  is 
nonzero. 

OCEOH  -  0CE2H  Load  register  pair  HL  with  the  starting  address  of 
REGl  minus  one, 

0CE3H  -  OCE^H  Load  register  C  with  the  number  of  bytes  to  be 
shifted. 

0CE5H  Load  register  D  with  the  value  at  the  location  of  the 

memory  pointer  in  register  pair  HL. 

0CS6H  Save  the  value  in  register  A  at  the  location  of  the 

memory  pointer  in  register  pair  HL. 

0CE7H  Load  register  A  with  the  value  in  register  D. 

0CE8H  Bump  the  value  of  the  memory  pointer  in  register 

pair  HL. 

0CE9H  Decrement  the  number  of  bytes  to  be  shifted  in 

register  C. 

OCEAH  "  OCEBH  Loop  till  all  of  the  bytes  in  the  double  precision  value 
have  been  shifted. 

OCECH  Load  register  A  with  the  number  of  bits  shifted  in 

register  B. 

OCEDH  -  OCEEH  Subtract  the  number  of  bits  just  shifted  from  the  shift 
counter  in  register  A. 

OCEPH  -  OCFOH  Check  to  see  if  the  whole  of  the  double  precision 
value  has  been  shifted. 

OCFIH  -  0CF2H  Jump  ifdie  whole  ofthe  double  precision  value  hasn't 
been  shifted. 

0CF3H  "  0CF5H  Go  make  the  double  precision  value  equal  to  zero  if 
the  whole  of  the  double  precision  value  has  been 
shifted. 

0CF6H  Decrement  the  shift  counter  in  register  B. 

0CF7H  -  0CF9H  Load  reg;ister  pair  HL  with  the  starting  address  of 
REGl  minus  one. 

OCFAH  -  OCFCH    Go  shift  the  double  precision  value  in  REGl  once. 

OCFDH  Check  to  see  if  the  sign  bit  of  the  MSB  of  the  double 

precision  value  in  register  A  is  set. 
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OCFEH  -  ODOOH   Loop  till  the  sign  bit  is  set 

ODOIH  Load  register  A  with  the  value  of  the  shift  cctmter  in 

register  B, 

0D02H  Check  to  see  if  the  shift  counter  in  register  A  is  equal 

to  zero. 

0D03H  •»  ODOi^H  Jump  if  the  value  in  REGl  wasn't  shifted  a  all. 

0D05H  --  0D07H  Load  register  pair  HL  with  the  address  of  tlie  expo- 
nent in  REGl. 

0D08H  Add  the  value  of  the  exponent  for  the  doub-e  preci- 

sion value  in  REGl  at  the  location  of  the  memory 
pointer  in  register  pair  HL  to  the  value  of  the  shift 
counter  in  register  A. 

ODO9H  Save  the  adjusted  exponent  for  the  double  precision 

value  in  register  A  at  the  location  of  the  memory 
pointer  in  register  pair  HL. 

ODOAH  -  ODOCH  Jump  if  overflow  didn't  occur. 

ODODH  Return  if  the  double  precision  value  is  equal  ':o  zero. 

ODOEH  -  ODiOH  Load  register  A  with  the  value  of  the  rounding  byte 
at  the  location  of  the  starting  address  of  RECrl  minus 
one. 

ODllH  Check  to  see  if  there  is  a  bit  to  be  shifted  into  the 

double  precision  value  in  REGl. 

0D12H  -  ODl^H  Go  move  the  bit  into  the  double  precision  value  if 
necessary. 

0D15H  -  0D17H  Load  register  pair  HL  with  the  address  of  the  sign  for 
the  result 

0D18H  Load  register  A  with  the  value  of  the  sign  for  the 

result  at  the  location  of  the  memory  pointer  in 
register  pair  HL. 

ODI9H  -  ODIAH  Mask  the  value  of  the  sign  for  the  result  in  register 
A. 

ODIBH  Decrement  the  value  of  the  memory  pointer  in 

register  pair  HL  so  that  it  points  to  the  exponent  in 
REGl. 

ODICH  Decrement  the  value  of  the  memory  pointer  in 

register  pair  HL  so  that  it  points  to  the  MSB  inREGL 

ODIDH  Combine  the  value  of  the  MSB  of  the  double  preci- 

sion value  in  REGl  at  the  location  of  the  memory 
pointer  in  register  pair  HL  with  the  value  oi'  the  sign 
for  the  result  in  register  A. 
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ODIEH  Save  the  adjusted  MSB  of  the  double  precision  value 

in  register  A  at  the  location  of  the  memory  pointer  in 
register  pair  HL. 

ODIFH  Return. 

0D20H  -  0D32H  DOUBLE  PRECISION  MATH  ROUTINE 

0D20H  -  0D22H  Load  register  pair  HL  with  the  starting  address  in 
REGL 

0D23H  -  0D2^H  Load  register  B  with  the  number  of  bytes  to  be 
bumped  for  the  double  precision  value  in  REGL 

0D2 5H  Bump  the  value  at  the  location  of  the  memory 

pointer  in  register  pair  HL. 

0D26H  Return  if  the  value  at  the  location  of  the  memory 

pointer  in  register  pair  HL  isn't  equal  to  zero. 

0D27H  Bump  the  value  of  the  memory  pointer  in  register 

pair  HL. 

0D28H  Decrement  the  value  of  the  byte  counter  in  register 

B. 

0D29H  "  0D2AH  Loop  till  all  of  the  necessary  bytes  have  been 
bumped. 

0D2BH  Bump  the  value  of  the  exponent  at  the  location  of  the 

memory  pointer  in  register  pair  HL 

0D2CH  -  0D2EH  Go  to  the  Level  II  BASIC  error  routine  and  display 
an  OV  ERROR  message  if  the  exponent  for  the 
double  precision  value  in  REGl  is  too  large. 

0D2FH  Decrement  the  value  of  the  memory  pointer  in 

register  pair  HL. 

0D30H  -  0D31H  Save  a  new  MSB  at  the  location  of  the  memory 
pointer  in  register  pair  HL. 

0D32H  Return. 

0D33H  "   OD^to   DOUBLE  PRECISION  MATH  ROUTINE 

0D33H  -  0D35H  Load  register  pair  HL  with  the  starting  address  of 
REG2. 

0D36H  -  0D38H  Load  register  pair  DE  with  the  starting  address  of 
REGL 

0D39H  -  0D3AH  Load  register  C  with  the  number  of  bytes  to  be 
added. 

0D3BH  Clear  the  Carry  flag. 
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0D3CH 

0D3DH 
0D3EH 
0D3FH 
OD^OH 
OD^IH 
ODkZE  -   0D^3H 


0D^5H 
0D45H 

0D^8H 

ODteH 

ODtoH 
OD^EH 

OD^FH 


0D56H 
0D^7H 

OD^AH 

OD^GH 


0D50H 

0D51H 

0D52H 

OD53H 

0D5^H  -   0D55H 
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Load  register  A  with  the  value  in  REGl  at  the  loca- 
tion of  the  memory  pointer  in  register  pair  DE. 

Add  the  value  in  REG2  at  the  location  of  the  memory 
value  in  register  A. 

Save  the  result  in  register  A  in  REGl  at  the  location 
of  the  memory  pointer  in  register  pair  DE;. 

Bump  the  value  of  the  memory  pointer  in  register 
pair  DE. 

Bump  the  value  of  the  memory  pointer  in  register 
pair  HL. 

Decrement  the  number  of  bytes  to  be  added  in 
register  C. 

Loop  till  all  of  the  bytes  for  the  double  iDrecision 
values  have  been  added. 

Return. 

DOUBLE  PRECISION  MATH  ROUTIJSfE 

Load  register  pair  HL  with  the  starting  address  of 
REG2. 

Load  register  pair  DE  with  the  starting  address  of 
REGL 

Load  register  C  with  the  number  of  byi:es  to  be 
subtracted. 

Clear  the  Carry  flag. 

Load  register  A  with  the  value  in  REGl  at  the  loca- 
tion of  the  memory  pointer  in  register  psir  DE. 

Subtract  the  value  in  REG2  at  the  location  of  the 
memory  pointer  in  register  pair  HL  from  th.e  value  in 
register  A. 

Save  the  result  in  register  A  in  REGl  at  the  location 
of  the  memory  pointer  in  register  pair  DE. 

Bump  the  value  of  the  memory  pointer  in  register 
pair  DE. 

Bump  the  value  of  the  memory  pointer  in  register 
pair  HL. 

Decrement  the  number  of  bytes  to  be  subtracted  for 
the  double  precision  values  in  register  C:. 

Loop  till  all  of  the  bytes  for  the  double  precision 
values  have  been  subtracted. 


0D56H  Return. 

0D57H  "   0D68H   DOUBLE  PRECISION  MATH  ROUTINE 

0D57H  Load  register  A  with  the  value  of  the  sign  at  the 

location  of  the  memory  pointer  in  register  pair  HL. 

0D58H  Complement  the  value  of  the  sign  in  register  A. 

0D59H  Save  the  value  of  the  sign  in  register  A  at  the  location 

of  the  memory  pointer  in  register  pair  HL. 

0D5AH  -   0D5CH   Load  register  pair  HL  with  the  starting  address  of 
REGl  minus  one. 

0D5DH  -   0D5EH    Load  register  B  with  the  number  of  bytes  to  be 
reversed. 

0D5FH  Zero  register  A. 

0D60H  Load  register  C  with  the  value  in  register  A. 

0D61H  Load  register  A  with  the  value  in  register  C. 

0D62H  Subtract  the  value  at  the  location  of  the  memory 

pointer  in  register  pair  HL  from  the  value  in  register 
A. 

0D63H  Save  the  reversed  value  in  register  A  at  the  location 

of  the  memory  pointer  in  register  pair  HL. 

ODo^H  Bump  the  value  of  the  memory  pointer  in  register 

pair  HL. 

0D65H  Decrement  the  number  of  bytes  to  be  reversed  in 

register  B. 

0D66H  -    OD67H    Loop  till  all  of  the  bytes  for  the  double  precision 
number  in  REGl  have  been  reversed. 

0B68H  Return. 

OD69H  -  0D8FH   DOUBLE  PRECISION  MATH  ROUTINE 

OD69H  Save  the  MSB  of  the  double  precision  value  in 

register  C  at  the  location  of  the  memory  pointer  in 
register  pair  HL. 

0D6  AH  Save  the  value  of  the  memory  pointer  in  register  pair 

HL  on  the  stack. 

0D6BH  -   0D6CH    Subtract  8  from  the  number  ofbits  to  be  shifted  from 
the  number  of  bits  to  be  shifted  in  register  A. 

0D6DH  -    0D6EH   Jump  if  there  are  less  than  8  bits  to  be  shifted. 
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0D6FH  Get  the  value  of  the  memory  pointer  frorr  the  stack 

and  put  it  in  register  pair  HL. 

0D7  OH  Save  the  value  of  the  memory  pointer  in  re.pster  pair 

HL  on  the  stack. 

0D71H  -  OD73H  Load  register  pair  DE  with  the  number  ofbytes  to  be 
shifted  and  the  value  to  be  shifted  into  the  double 
precision  value. 

0D7^H  Load  register  C  with  the  value  at  the  location  of  the 

memory  pointer  in  register  pair  HL. 

0D75H  Save  the  value  in  register  E  at  the  localion  of  the 

memory  pointer  in  register  pair  HL. 

0D76H  Load  register  E  with  the  value  in  register  C. 

0D77H  Decrement  the  value  of  the  memory  i>ointer  in 

register  pair  HL. 

0D78H  Decrement  the  number  of  bytes  shifted  in  register 

D. 

OD79H  -   0D7AH    Loop  till  all  of  the  bytes  have  been  shifted. 

0D7BH  -  0D7CH    Loop  till  there  are  less  than  8  bits  to  be  shifted, 

0D7DH  -  0D7EH  Adjust  the  number  of  bits  to  be  shifted  in  register  A 
so  that  it  holds  the  correct  value. 

0D7FH  Load  register  D  with  the  number  of  bits  tci  be  shifted 

in  register  A. 

0D80H  Zero  register  A. 

0D81H  Get  the  value  of  the  memory  pointer  from  the  stack 

and  put  it  in  register  pair  HL. 

0D82H  Decrement  the  number  of  bits  to  be  shifted  in  regis- 

ter D. 

0D83H  Return  if  all  of  the  bits  have  been  shifted. 

0D84H  Save  the  value  of  the  memory  pointer  in  re  gister  pair 

HL  on  the  stack. 

0D85H  «  0D86H  Load  register  E  with  the  number  of  bytes  to  be 
shifted. 

0D87H  Load  register  A  with  the  value  at  the  location  of  the 

memory  pointer  in  register  pair  HL. 

0D88H  Shift  the  value  in  register  A. 

OD89H  Save  the  adjusted  value  in  register  A  at  tlie  location 

of  the  memory  pointer  in  register  pair  HL. 
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0D8AH  Decrement  the  value  of  the  memory  pointer  in 

register  pair  HL. 

0D8BH  Decrement  the  number  of  bytes  to  be  shifted  in 

register  E. 

0D8CH  -  0D8DH    Loop  till  all  of  the  bytes  have  been  shifted. 

0B8EH  -  0D8FH    Loop  till  all  of  the  bits  have  been  shifted. 

0D90H  -   OD96H    DOUBLE  PRECISION  MATH  ROUTINE 

OD9OH  -   0D92H    Load  registerpairHL  with  the  address  ofthe  MSB  of 
the  double  precision  value  in  REGL 

0D93H  -   0D9^H    Load  register  D  with  the  number  of  bits  to  be 
shifted. 

0D95H  -   OD96H    Jump, 

0D97H  -   ODAOH    DOUBLE  PRECISION  MATH  ROUTINE 

OD97H  -   OD98H    Load  register  C  witli  the  number  of  bytes  to  be 
shifted. 

0D99H  Load  register  A  with  the  value  at  the  location  of  the 

memory  pointer  in  register  pair  HL. 

0B9AH  Shift  the  value  in  register  A. 

0D9BH  Save  the  shifted  value  in  register  A  at  the  location  of 

the  memory  pointer  in  register  pair  HL. 

0D9CH  Bump  the  value  of  the  memory  pointer  in  register 

pair  HL, 

0D9DH  Decrement  the  byte  counter  in  register  C. 

0D9EH  «  0D9FH    Loop  till  all  of  the  bytes  have  been  shifted. 

ODAOH  Return. 

ODAIH  "  0DD3H    DOUBLE  PRECISION  MULTIPLICATION 

ODAIH  -  0DA3H    GochecktoseeifthevalueinREGlisequaltozero. 

ODAto  Return  if  the  double  precision  value  in  REGl  is  equal 

to  zero. 

0DA5H  -   0DA7H    Go  figure  the  new  exponent. 

0DA8H  -   ODAAH   Go  move  the  double  precision  value  in  REGl  to  a 
temporary  work  area, 

ODABH  Zero  the  location  at  the  current  value  of  the  memory 

pointer  in  register  pair  HL. 
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ODACH  Bump  register  pair  DE  so  that  it  points  to  th  s  LSB  of 

the  double  precision  value  in  the  temporary  work 
area. 

ODADH  -   ODAEH    Load  register  B  with  the  number  of  bytes  to  be 
figured. 

ODAFH  Load  register  A  with  the  value  at  the  location  of  the 

memory  pointer  in  register  pair  DE. 

ODBOH  Bump  the  value  of  the  memory  pointer  in  register 

pair  DE. 

ODBIH  Check  to  see  if  the  value  in  register  A  is  equal  to 

zero. 

0DB2H  Save  the  value  of  the  memory  pointer  in  register  pair 

DE  on  the  stack. 

0DB3H  -   ODB^H   Jump  if  the  value  in  register  A  is  equal  to  zero. 

0DB5H  -   0DB6H    Load  register  C  with  the  number  of  bits  to  be  shifted. 

0DB7H  Save  the  value  in  register  pair  BC  on  the  stack. 

0DB8H  Shift  the  value  in  register  A  one  place  to  ti\e  right. 

0DB9H  Load  register  B  with  the  value  in  register  A. 

ODBAH  -   ODBGH    Go  add  the  value  in  REG2  to  the  total  in  RE:G1  if  bit 
zero  of  register  A  was  set. 

ODBDH  "   ODBFH    Go  shift  the  value  of  the  total  in  REGl. 

ODCOH  Load  register  A  with  the  adjusted  value  in  register 

B. 

ODCIH  Get  the  value  from  the  stack  and  put  it  in  register 

pair  BC. 

0DC2H  Decrement  the  number  of  bits  to  be  shifted  in  regis- 

ter C. 

0DC3H  -   ODCto    Loop  until  all  of  the  bits  have  been  shifted. 

0DC5H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  DE. 

0DC6H  Decrement  the  number  of  bytes  to  be  fi.^red  in 

register  B. 

0DC7H  "   0DC8H    Loop  until  all  of  the  bytes  have  been  figured. 
0DC9H  "   ODCBH  Jump. 

ODGCH  -   ODCEH    Load  register  pair  HL  with  the  address  of  the  MSB  in 
REGL 
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ODCFH  -   ODDIH   Go  shift  the  double  precision  total  in  REGl. 

0DD2H  "   0DD3H  Jump. 

ODD^H  -   ODDBH  DOUBLE  PRECISION 

CONSTANT  STORAGE  AREA 

ODD^H  -  ODDBH  A  double  precision  constant  equal  to  10.0  is  stored 
here. 

ODDCH  -   ODE^H  DOUBLE  PRECISION  MATH  ROUTINE 

ODDCH  "  ODDEH  Load  register  pair  DE  with  the  starting  address  of 
the  double  precision  constant  stored  above. 

ODDFH  "  ODEIH  Load  register  pair  HL  widi  the  starting  address  of 
REG2. 

0DE2H  -   ODE^H  Go  move  die  double  precision  constant  into  REG2. 

0DE5H  -   0E38H    DOUBLE  PRECISION  DIVISION 

0DE5H  -  0DE7H  Load  register  A  with  the  value  of  the  exponent  for 
the  double  precision  value  in  REG2. 

0DE8H  Check  to  see  if  the  double  precision  value  in  REG2  is 

equal  to  zero. 

0DE9H  "  ODEBH  Go  to  the  Level  E  BASIC  error  routine  and  display  a 
/O  ERROR  message  if  the  double  precision  value  in 
REG2  is  equal  to  zero. 

ODECH  -   ODEEH   Go  figure  the  value  of  the  new  exponent. 

ODEFH  Bump  the  value  of  the  exponent  in  REGL 

ODFOH  Bump  die  value  of  the  exponent  in  REGl. 

ODFIH  "  0DF3H  Go  move  the  double  precision  value  from  REGl  into 
the  temporary  work  area. 

ODFte  -  0DF6H  Load  register  pair  HL  with  the  address  of  the  expo- 
nent in  the  temporary  work  area. 

0DF7H  Zero  the  value  of  the  exponent  in  the  temporary 

work  area  at  the  location  of  the  memory  pointer  in 
register  pair  HL. 

0DF8H  Zero  register  B, 

0DF9H  -  ODFBH  Load  register  pair  DE  with  the  starting  address  of 
the  double  precision  value  in  the  temporary  work 
area. 

ODFCH  -  ODFEH  Load  register  pair  HL  with  the  starting  address  of 
the  double  precision  value  in  REG2. 

ODFFli-   OEOIH    Go  subtract  the  double  precision  value  in  REG2  from 
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the  double  precision  value  in  the  temporary  work 


area. 


0E02H  Load  register  A  with  the  value  at  the  location  of  the 

memory  pointer  in  register  pair  DE. 

0E03H  Subtract  the  value  in  register  C  from  the  value  in 

register  A. 

OEO^H  Complement  the  value  of  the  Carry  flag. 

0E05H  -  0E06H  Jump  if  the  double  precision  value  in  REG2  is 
greater  than  the  double  precision  value  in  the  tem- 
porary work  area. 

0E07H  -  0E09H  Load  register  pair  DE  with  the  starting  address  of 
the  double  precision  value  in  the  temporary  work 
area. 

OEOAH  -  OEOCH  Load  register  pair  HL  with  the  starting  address  of 
the  double  precision  value  in  REG2. 

OEODH  -  OEOFH  Go  add  the  double  precision  value  in  REG2  to  the 
double  precision  value  in  the  temporary  wcrk  area. 

OEIOH  Zero  register  A. 

0E12H  Save  the  value  of  the  exponent  in  register  A  at  gie 

location  of  the  memory  pointer  in  register  ])air  DE. 

0E13H  Bump  the  counter  in  register  B. 

OEl^H  "  0E16H  Load  register  A  with  the  value  of  the  MSB  of  the 
total  in  REGl. 

0E17H  Bump  the  value  of  the  MSB  for  the  double  precision 

result  in  register  A. 

0E18H  Decrement  the  value  of  the  MSB  for  the  double 

precision  result  in  register  A. 

0E19H  Put  the  value  of  the  Carry  flag  into  register  A  as  the 

sign  bit. 

OEIAH  -   OEICH  Jump  if  the  sign  bit  was  set 

OEIDH  Put  the  sign  bit  in  register  A  back  into  the  Carry  flag. 

OEIEH  -  0E20H  Load  register  pair  HL  with  the  starting  address  of 
the  double  precision  result  in  REGl. 

0E21H  -  0E22H  Load  register  C  with  the  number  of  by^es  to  be 
shifted. 

0E23H  -  0E25H   Go  shift  the  double  precision  result  in  REGL 
0E26H  -   0E28H    Load  register  pair  HL  with  the  starting  address  of 
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the  double  precision  value  in  the  temporary  work 
area. 

0E29E  "  0E2BH  Go  shift  the  double  precision  value  in  the  temporary 
work  area. 

0E2CH  Load  register  A  with  the  value  of  the  counter  in 

register  B. 

0E2DH  Check  to  see  if  the  value  of  the  counter  in  register  A 

is  equal  to  zero. 

0E2EH  "  0E2FH  Loop  till  done  if  the  value  of  the  counter  in  register  A 
isn*t  equal  to  zero. 

0S30H  -  0E32H  Load  register  pair  HL  with  the  address  of  the  expo- 
nent for  the  double  precision  result  in  REGl. 

OE33H  Decrement  the  value  of  the  exponent  for  the  double 

precision  result  in  REGl  at  the  location  of  the  mem- 
ory pointer  in  register  pair  HL. 

0E3^H  -   0E35H    Loop  till  done  if  overflow  didn't  occur. 

0E36H  "  QE38H  Go  to  die  Level  II  BASIC  error  routine  and  display 
an  OV  ERROR  message  if  the  exponent  for  die 
result  in  REGl  is  too  small. 

0E39H  -   OE^CH    DOUBLE  PRECISION  MATH  ROUTINE 

0E39H  Load  register  A  with  the  MSB  of  the  double  preci- 

sion value  in  REG2  in  register  C. 

0E3AH  -   0E3CH    Save  the  MSB  of  the  double  precision  value  in  REG2 

in  register  A. 

0E3DH  Decrement  the  value  of  the  memory  pointer  in 

register  pair  HL. 

0E3EH  -  OE^OH  Load  register  pair  DE  with  the  starting  address  of 
the  temporary  work  area. 

OE^IH  -  0E^3H  Load  register  B  with  the  number  of  bytes  to  be 
moved  and  zero  register  C. 

OE^^H  Load  register  A  with  the  value  at  the  location  of  the 

memory  pointer  in  register  pair  HL. 

0S^5H  Save  the  value  in  register  A  at  the  location  of  the 

memory  pointer  in  register  pair  DE. 

0E^6H  Zero  the  location  of  the  memory  pointer  in  register 

pair  HL. 

0Ek7  Decrement  the  value  of  the  memory  pointer  in 

register  pair  DE. 
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OE^^SH  Decrement  the  value  of  the  memory  pointer  in 

register  pair  HL. 

0E^9H  Decrement  the  value  of  the  byte  counter  in  register 

B. 

OE^AH  -  OE^BH  Loop  till  the  double  precision  value  has  been  moved 
to  the  temporary  work  area. 

0E4GH  Return. 

OE^DH  -  0E6^H  level  II  BASIC  MATH  ROUTINE 

OE^DH  -  OE^FH   Go  move  the  value  in  REGl  to  REG2. 

0E50H  Load  register  pair  HL  with  the  value  of  the  memory 

pointer  in  register  pair  DE. 

0E51H  Decrement  the  value  of  the  memory  pointer  in 

register  pair  HL. 

0E52H  Load  register  A  with  the  value  of  the  expionent  in 

REGl  at  the  location  of  the  memory  pointer  in 
register  pair  HL. 

OE53H  Check  to  see  if  the  value  in  REGl  is  equal  to  zero. 

0E54H  Return  if  the  value  in  REGl  is  equal  to  zero. 

0E55H  "   OE56H  Add  two  to  the  value  of  the  exponent  in  register  A. 

0E57H  -  0E59H  Go  to  the  Level  II  BASIC  error  routine  and  display 
an  OV  ERROR  message  if  the  adjusted  exponent  m 
register  A  is  too  large. 

0E5AH  Save  the  adjusted  exponent  in  register  A  ir.  REGl  at 

the  location  of  the  memory  pointer  in  register  pair 
HL. 

0E5BH  Save  the  value  of  the  memory  pointer  in  re^pster  pair 

HL  on  the  stack. 

0E5CH  -  0E5EH  Go  add  the  double  precision  value  in  REG2  to  the 
double  precision  value  in  REGl. 

0E5FH  Get  the  value  of  the  memory  pointer  from  the  stack 

and  put  it  in  register  pair  HL. 

0E6  oh  Bump  the  value  of  the  exponent  for  the  double  preci- 

sion value  in  REGl  at  the  location  of  the  memory 
pointer  in  register  pair  HL. 

0E61H  Return  if  overflow  didn't  occur. 

0E62H  -  0E6to  Go  to  the  Level  II  BASIC  error  routine  and  display 
an  OV  ERROR  message  if  the  exponent  in  REGl  at 
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the  location  of  the  memory  pointer  in  register  pair 
HL  is  too  large. 

0E65H  -  0F88H  ASCII  TO  BINARY 

0E65H  -   0E67H  Go  zero  the  exponent  in  REGl. 

0E68H  -  0E6AH  Go  set  the  current  number  type  flag  to  double  preci- 
sion. 

0E6CH  Zero  register  A. 

0E6DH  Load  register  pair  DE  with  the  current  input  buffer 

pointer  in  register  pair  HL. 

0E6EH  -  0E70H  Load  registerpairBC  with  azero  and  a  negative  one. 

0E71H  Load  register  H  with  zero. 

0E72H  Load  register  L  with  zero. 

0E73H  -  OE75H  Go  set  the  current  number  type  flag  to  integer  if  the 
routine  was  entered  from  0E6CH. 

0E76H  Load  register  pair  HL  with  the  input  buffer  pointer  in 

register  pair  DE. 

OE77H  Load  register  A  with  the  character  at  the  location  of 

the  current  input  buffer  pointer  in  register  pair  HL. 

0E78H  -  OE79H  Check  to  see  if  the  character  at  the  location  of  the 
current  input  buffer  pointer  in  register  A  is  a  minus 
sign  (-). 

0E7AH  Save  the  value  in  register  pair  AF  on  the  stack. 

0E7BH  -  0E7DH  Jump  if  the  character  at  the  location  of  the  current 
input  buffer  pointer  in  register  A  is  a  minus  sign  (~). 

0E7EH  "  0E7FH  Check  to  see  if  the  character  at  the  location  of  the 
current  input  buffer  pointer  in  register  A  is  a  plus 
sign  (+). 

0E80H  -  0E81H  Jump  if  the  character  at  the  location  of  the  current 
input  buffer  pointer  in  register  A  is  a  plus  sign  (-h). 

0E82H  Decrement  the  value  of  the  current  input  buffer 

pointer  in  register  pair  HL. 

0E83H  Go  bump  the  current  input  buffer  pointer  in  register 

pair  HL  till  it  points  to  the  next  character. 

OBB^E  -  0E86H  Jump  if  the  character  at  the  location  of  the  current 
input  buffer  pointer  in  register  A  is  numeric. 

0E87H  "  0E88H   Check  to  see  if  the  character  at  the  location  of  the 
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current  input  buffer  pointer  in  register  A  is  a  decimal 
point  (.). 

0E89K  -  0E8BH  Jump  if  the  character  at  the  location  of  the  current 
input  buffer  pointer  in  register  A  is  a  decimal  point 
(.). 

0E8CH  -  0E8DH  Check  to  see  if  the  character  at  the  location  of  the 
current  input  buffer  pointer  in  register  A  is  an  E. 

0E8EH  «  0E8FH  Jump  if  the  character  at  the  location  of  the  current 
input  buffer  pointer  in  register  A  is  an  E. 

OE9OH  -  OE9IH  Check  to  see  if  the  character  at  the  locaticm  of  the 
current  input  buffer  pointer  in  register  A  is  a  %. 

0E92H  -  0E9^H  Jump  if  the  character  at  the  locati9n  of  the  current 
input  buffer  pointer  in  register  A  is  a  %. 

0E95H  -  OE96H  Check  to  see  if  the  character  at  the  location  of  the 
current  input  buffer  pointer  in  register  A  is  a  #. 

0E97H  -  0S99H  Jump  if  the  character  at  the  location  of  the  current 
input  buffer  pointer  in  register  A  is  a  #. 

0E9AH  -  0E9BH  Check  to  see  if  the  character  at  the  location  of  the 
current  input  buffer  pointer  in  register  A  is  an  !. 

0E9CH  -  0E9EH  Jump  if  the  character  at  the  location  of  the  current 
input  bi^er  pointer  in  register  A  is  an  !. 

0E9FH  -  OEAOH  Check  to  see  if  the  character  at  the  location  of  the 
current  input  buffer  pointer  in  register  A  is  a  D. 

OEAIH  -  0EA2H  Jump  if  the  character  at  the  location  of  the  current 
input  buffer  pointer  in  register  A  isn't  a  EK 

0EA3H  Set  the  flags  according  to  the  value  of  the  character 

at  the  location  of  the  current  input  buffer  pointer  in 
register  A. 

OEA^H  -  0EA6H  Go  convert  the  current  value  in  REGl  w  either 
single  precision  or  double  precision. 

0EA7H  Save  the  current  input  buffer  pointer  in  register  pair 

HL  on  the  stack. 

0EA8H  "   OEAAH  Load  register  pair  HL  with  the  return  address. 

OEABH  Exchange  the  return  address  in  register  pair  HL 

witii  the  value  of  the  current  input  buffer  pointer  in 
register  pair  HL. 

OEACH  Go  bump  the  current  input  buffer  pointer  in  register 

pair  HL  till  it  points  to  the  next  charactei:. 

DEADH  Decrement  the  value  in  register  D, 
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OEAEH  -  OEAFH  Check  to  see  if  the  character  at  the  location  of  the 
current  input  buffer  pointer  in  register  A  is  a  minus 
sign  token  (CEH). 

OEBOH  Return  if  the  character  at  the  location  of  the  current 

input  buffer  pointer  in  register  A  is  a  minus  sign 
token  (CEH). 

OEBIH  -  0EB2H  Check  to  see  if  the  character  at  the  location  of  the 
current  input  buffer  pointer  in  register  A  is  a  minus 
sign  (-). 

0EB3H  Return  if  the  character  at  the  location  of  the  current 

input  buffer  pointer  in  register  A  is  a  minus  sign  (-). 

OEB^H  Bump  the  value  in  register  D, 

0EB5H  -  0EB6H  Check  to  see  if  the  character  at  the  location  of  the 
current  input  buffer  pointer  in  register  A  is  a  plus 
sign  token  (CDH.) 

0EB7H  Return  if  the  character  at  the  location  of  the  current 

input  buffer  pointer  in  register  A  is  a  plus  sign  token 
(CDH). 

0EB8H  -  0EB9H  Check  to  see  if  the  character  at  the  location  of  the 
current  input  buffer  pointer  in  register  A  is  a  plus 
sign  (+). 

OEBBH  Return  if  the  character  at  the  location  of  the  current 

input  buffer  pointer  in  register  A  is  a  plus  sign  (+). 

OEBAH  Decrement  the  value  of  the  input  buffer  pointer  in 

register  pair  HL. 

OEBCH  Get  the  value  from  the  stack  and  put  it  in  register 

pair  AF. 

OEBDH  Go  bump  the  current  input  buffer  pointer  in  register 

pair  HL  till  it  points  to  the  next  character. 

OEBEH  -  OECOH  Jump  if  the  character  at  the  location  of  the  input 
buffer  pointer  in  register  A  is  numeric. 

OECIH  Bump  the  value  in  register  D. 

0EC2H  -    0EC3H    Jump  if  the  exponent  is  positive. 

OEC^H  Zero  register  A. 

0EC5H  Subtract  the  value  of  the  exponent  in  register  E  from 

register  A. 

0EC6H  Load  register  E  with  the  value  of  the  exponent  in 

register  A. 
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0EC7H  Save  the  current  input  buffer  pointer  in  register  pair 

HL  on  the  stack. 

0EC8H  Load  register  A  with  the  value  of  the  exponent  in 

register  E. 

0EC9H  Subtract  the  value  in  register  B  from  the  exponent  in 

register  A. 

OECAH  «•  OECCH    Go  multiply  the  current  value  by  ten  if  necessary. 

OECDH  -   OECFH   Go  divide  the  current  value  by  ten  if  necessary. 

OEDOH  -  OEDIH   Loop  till  the  value  is  adjusted  correctly. 

0ED2H  Get  the  value  of  the  current  input  buffer  point:er  from 

the  stack  and  put  it  in  register  pair  HL. 

0ED3H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  AF, 

OED^H  Save  the  value  of  the  current  input  buffer  pctinter  in 

register  pair  HL  on  the  stack. 

0ED5H  -  0ED7H    Go  convert  the  current  value  to  negative  i::  neces- 
sary. 

0ED8H  Get  the  value  of  the  current  input  buffer  pointer  from 

the  stack  and  put  it  in  register  pair  HL. 

0ED9H  Go  check  the  current  value  of  the  number  type  flag. 

OEDAH  Return  if  the  current  value  of  the  number  type  flag 

isn't  single  precision. 

OEDBH  Save  the  current  value  of  the  input  buffer  pointer  in 

register  pair  HL  on  the  stack. 

OEDCH  *-  OEDEH    Load  register  pair  HL  with  the  return  address. 

OEDFH  Save  the  value  of  the  return  address  in  regi  ster  pair 

HL  on  the  stack. 

OEEOH  "   0EE2H   Go  convert  the  current  value  in  REGl  to  an  integer  if 

possible. 

0EE3H  Return. 

OEE^H  Go  check  the  current  value  of  the  number  type  flag. 

0EE5H  Bump  the  value  in  register  C, 

0EE6H  "   0EE7H   Jump  if  no  need  to  convert  the  current  value  in 
REGL 

0EE8H  -   OEEAH   Go  convert  the  current  value  in  REGl  t:o  single 
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precision  if  the  current  value  isn't  double  precision. 

OEEBH  -  OEEDH  Jump. 

OSEEH  Go  check  the  current  value  of  the  number  type  flag. 

OEEFH  -  OEFIH  Go  to  the  Level  II  BASIC  error  routine  and  display  a 
SN  ERROR  message  if  the  current  value  in  REGl  is 
a  single  precision  value  or  a  double  precision  value. 

0EF2H  Bump  the  value  of  the  current  input  buffer  pointer  in 

register  pair  HL 

0EF3H  -  OEF^H  Jump. 

0EF5H  Set  the  flags  according  to  the  character  at  the  loca- 

tion of  the  current  input  buffer  pointer  in  register 
pair  HL. 

0EF6H  -  0EF8H  Go  convert  the  current  value  in  REGl  to  either 
single  precision  or  double  precision. 

0EF9H  -  OEFAH   Jump. 

OEFBH  Save  the  value  in  register  pair  HL  on  the  stack. 

OEFCH  Save  the  value  in  register  pair  DE  on  the  stack. 

OEFDH  Save  the  value  in  register  pair  EC  on  the  stack. 

OEFEH  Save  the  value  in  register  pair  AF  on  the  stack, 

OEFFH  "  OFOIH  Go  convert  the  current  value  in  REGl  to  single 
precision  if  necessary. 

0F02H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  AF. 

0F03H  -  0F05H  Go  convert  the  current  value  in  REGl  to  double 
precision  if  necessary. 

0F06H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  BC. 

0F07H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  DE. 

0F08H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  HL. 

0F09H  Return. 

OFOAH  Return  if  the  current  value  is  an  integer. 

OFOBH  Save  the  value  in  register  pair  AF  on  the  stack. 

OFOCH  Go  check  the  current  value  of  the  number  type  flag. 
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OFODH  Save  the  value  in  register  pair  AF  on  the^  stack. 

OFOEH  -  OFIOH    Go  multiply  the  current  value  in  REGl  by  ten  if  it's 
single  precision. 

OFllH  Get  the  value  from  the  stack  and  put  it  in  register 

pair  AF. 

0F12H  -   OFl^H   Go  multiply  the  current  value  in  REGl  by  ten  if  if  s 
double  precision. 

0F15H  Get  the  value  from  the  stack  and  put  it  i;.!  register 

pair  AF. 

0F16H  Decrement  the  value  in  register  A. 

0F17H  Return. 

0F18H  Save  the  value  in  register  pair  DE  on  the  stack. 

OFI9H  Save  the  value  in  register  pair  HL  on  the;  stack. 

OFIAH  Save  the  value  in  register  pair  AF  on  the  stack. 

OFIBH  Go  check  the  current  value  of  die  number  lype  flag. 

OFICH  Save  the  value  in  register  pair  AF  on  the  stack. 

OFIDH  "  OFIFH   Go  divide  the  current  value  in  REGl  by  10  if  the 
current  number  type  is  single  precision. 

0F20H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  AF. 

0F21H  -   0F23H    Go  divide  the  current  value  in  REGl  b>-  10  if  the 
current  number  type  is  double  precision. 

0F2^H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  AF. 

0F25H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  HL. 

0F26H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  DE. 

0F27H  Bump  the  value  in  register  A. 

0F28H  Return. 

0F29H  Save  the  value  in  register  pair  DE  on  the  stack. 

0F2AH  Load  register  A  with  the  value  in  register  B. 

0F2BH  Add  the  value  in  register  C  to  the  value  in  register  A. 
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0F2CH 


Load  register  B  with  the  adjusted  value  in  register 
A. 


0F2DH  Save  the  value  in  register  pair  BC  on  the  stack. 

0F2EH  Save  the  value  in  register  pair  HL  on  the  stack. 

^F2FH  Load  register  A  with  the  character  at  the  location  of 

the  current  input  buffer  pointer  in  register  pair  HL. 

0F30H  -  0F31H  Subtract  30H  from  the  ASCII  value  in  register  A  so 
that  it  will  be  binary. 

Save  the  adjusted  value  in  register  A  on  the  stack. 

Go  check  the  current  value  of  the  number  type  flag. 

Jump  if  the  current  value  in  REGl  isn't  an  integer. 

Load  register  pair  HL  with  the  integer  value  in 
REGL 

Load  register  pair  DE  with  3277. 

Go  check  to  see  if  the  integer  value  in  register  pair 
HL  is  greater  than  or  equal  to  3277. 

Jump  if  the  integer  value  in  register  pair  HL  is 
greater  than  or  equal  to  3277. 

Load  register  D  with  the  MSB  of  the  integer  value  in 
register  H. 

Load  register  E  with  the  LSB  of  the  integer  value  in 
register  L. 

Multiply  the  integer  value  in  register  pair  HL  by 
two. 

Multiply  the  integer  value  in  register  pair  HL  by 
two.  Register  pair  HL  now  holds  the  original  integer 
value  times  four. 

Add  the  original  integer  value  in  register  pair  DE  to 
the  integer  value  in  register  pair  HL.  Register  pair 
HL  now  holds  the  original  integer  value  times  five. 

Multiply  the  integer  value  in  register  pair  HL  by 
two.  Register  pair  HL  now  holds  the  original  integer 
value  times  ten. 

Get  the  binary  value  for  the  next  character  from  the 
stack  and  put  it  in  register  A. 

Load  register  C  with  the  value  of  the  character  in 
register  A. 


0F32H 

0P33H 

0F3^H  - 

0F36H 

0F37H  - 

0F39H 

0F3AH  - 

0F3CH 

0F3DH 

0F3EH  - 

0F3FH 

0F40H 

OF^IH 

0F^2H 

0F^3H 

0F44H 

0F^5H 

0F46H 

0F'[f'7H 
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0F^8H  Add  the  value  of  the  character  in  register  pair  BC  to 

the  integer  value  in  register  pair  HL. 

0F^9H  Load  register  A  with  the  MSB  of  the  integer  value  in 

register  H. 

OF^AH  Check  to  see  if  the  sign  bit  is  set. 

OF^BH  -»  0F4DH  J^nip  if  the  sign  bit  is  set  in  the  integei:  value  in 
register  pair  HL. 

OF^EH  -  0F50H  Save  the  integer  value  in  register  pair  HL  as  the 
current  integer  value  in  REGl. 

0F51H  Get  the  value  from  the  stack  and  put  it  ia  register 

pair  HL. 

0F52H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  BC. 

0F53H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  DE. 

0F5^H  -  0F56H    Jump. 

OP57H  Load  register  A  with  the  binary  value  of  the  charac- 

ter in  register  C. 

0F58H  Save  the  value  in  register  A  on  the  stack. 

0F59H  "•  0F5BH  Go  convert  the  current  value  in  REGl  to  single 
precision. 

0F5CH  Set  the  Carry  flag. 

0F5DH  -  0F5EIi  Jump  if  the  current  value  in  REGl  is  double  preci- 
sion. 

0F5FH  -  0F61H  Load  register  pair  BC  with  the  exponent  and  the 
MSB  of  a  single  precision  constant. 

0F62H  -  0F6^H  Loadregister  pair  DE  with  the  NMSB  and  the  LSB 
of  a  single  precision  constant.  Register  pairs  BC  and 
DE  now  hold  a  single  precision  constant  equal  to 
1E6. 

OF65H  -  OF67H  Check  to  see  if  the  single  precision  value -n  REGl  is 
greater  than  or  equal  to  1E6. 

0F68H  -  0F6AH  Jump  if  the  single  precision  value  in  REGl  is  greater 
than  or  equal  to  1E6. 

0F6BH  »  0F6DH  Go  multiply  the  single  precision  value  in  REGl  by 
10. 

0F6EH  Get  the  binary  value  of  the  character  frora  the  stack 

and  put  it  in  register  A. 
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0F6FH  -  OF7IH  Go  add  the  value  in  register  A  to  the  single  precision 
value  in  REGl. 

0F72H  -  0F73H  Jump. 

0F7^H  -   OF76H   Go  convert  the  single  precision  value  in  REGl  to 
double  precision. 

OF77H  ~  OF79H   Go  multiply  the  double  precision  value  in  REGl  by 
ten. 

0F7AH  •*   0F7CH   Go  move  the  double  precision  value  in  REGl  to 
REG2. 

0F7DH  Get  the  binary  value  for  the  character  from  the  stack 

and  put  it  in  register  A. 

0F7EH  -   0F80H   Go  convert  the  binary  value  in  register  A  to  single 
precision. 

0F81H  -  0F83H    Go  convert  the  single  precision  value  in  REGl  to 
double  precision. 

0F84H  -  0F86H    Go  add  the  double  precision  value  in  REG2  to  the 
double  precision  value  in  REGl. 

0F87H  -  0F88H   Jump. 

0F89H  -   0F93H    SINGLE  PRECISION  MATH  ROUTINE 

OF89H  "   0F8BH    Go  move  the  current  single  precision  value  in  REGl 
to  the  stack. 

0F8CH  -   0F8 EH    Go  convert  the  value  in  register  A  to  single  precision 
and  return  with  the  result  in  REGl. 

0F8FH  Get  the  exponent  and  the  MSB  for  the  single  preci- 

sion value  from  the  stack  and  put  it  in  register  pair 
BC. 

OF9OH  Get  the  NMSB  and  the  LSB  of  the  single  precision 

value  from  the  stack  and  put  it  in  register  pair  DE. 

OF9IH  -*   0F93H    Go  add  the  single  precision  value  in  REGl  to  the 
single  precision  value  in  register  pairs  BC  and  DE. 

0F9^H  -   0FA6H    LEVEL  II  BASIC  MATH  ROUTINE 

0F9^H  Load  register  A  with  the  value  of  the  exponent  in 

register  E. 

0F95H  -   OF96H   Check  to  see  if  the  value  of  the  exponent  in  register 
A  is  greater  than  or  equal  to  10. 

0F97H  ~   OF98H  Jump  if  the  value  of  the  exponent  in  register  A  is 
greater  than  or  equal  to  10. 
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0F99H  Multiply  the  value  in  register  A  by  two. 

0P9AH  Multiply  the  value  in  register  A  by  two.  Register  A 

now  holds  the  original  value  of  the  exponer.t  tinnes 
four, 

0P9BH  Add  the  original  value  of  the  exponent  in  rejpster  E 

to  the  adjusted  value  of  the  exponent  in  register  A. 

0F9CH  Multiply  the  value  in  register  A  by  two.  Register  A 

now  holds  the  original  value  of  the  exponent  times 
ten. 

0F9DH  Add  the  value  of  the  current  character  at  the  location 

of  the  input  buffer  pointer  in  register  pair  HL  to  the 
adjusted  value  in  register  A. 

0F9EH  -   0F9FH  Convert  the  adjusted  value  in  register  A  to  it's  binary 
equivalent. 

OFAOH  Load  register  E  with  die  adjusted  value  in  register 

A, 

0FA2H  -   0FA3H    Load  register  E  with  the  maximum  exponent. 

OFA^H  -   0FA6H  Jump. 

0FA7H  -   OFAEH   DISPLAY  MESSAGE  ROUTINE 

0FA7H  Save  the  value  in  register  pair  HL  on  the  stack. 

0FA8H  -  OFAAH  Load  register  pair  HL  with  the  starting  address  of 
the  IN  message. 

OFABH  -  OFADH  Go  display  the  message  pointed  to  by  register  pair 
HL. 

OFAEH  Get  the  value  from  the  stack  and  put  it  in  register 

pair  HL. 

OFAFH  -   OFBCH  CONVERT  BINARY  TO 

ASCII  AND  DISPLAY  RESULT 

OFAFH  -  OFBIH  Go  save  the  value  in  register  pair  HL  as  the  current 
value  in  REGL 

0FB2H  Zero  register  A. 

0FB3H  -  0FB5H  Go  initialize  the  input  buffer  for  the  ASCII  conver- 
sion. 

0FB6H  Set  the  flags. 

0FB7H  -  0FB9H  Go  convert  the  integer  value  in  REGl  to  an  ASCII 
string.  Return  with  register  pair  HL  pointing  to  the 
result. 
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OFBAH  -   OFBCH    Go  display  the  message  pointed  to  by  register  pair 
HL. 

OFBDH  -   1363H    BINARY  TO  ASCII  CONVERSION  ROUTINE 

OFBDH  Zero  register  A. 

OFBEH  "   OFCOH    Go  initialize  ±e  input  buffer  for  the  ASCII  conver- 
sion. 

OFCIH  -   0FC2H    Check  ±e  value  of  the  edit  flag  in  register  A  to  see  if 
the  sign  is  to  be  included. 

0FC3H  -   OFC^H   Jump  if  the  sign  isn't  to  be  included  in  the  ASCII 
string. 

0FC5H  -   0FC6H    Save  a  plus  sign  (+)  at  the  locationofthe  input  buffer 
pointer  in  register  pair  HL. 

^^^7K  Load  register  pair  DE  with  the  value  of  the  input 

buffer  pointer  in  register  pair  HL. 

0FC8H  "   OFCAH    Go  determine  the  value  of  the  sign  for  the  current 
value  in  REGl. 

^^^SK  Load  register  pair  HL  with  the  input  buffer  pointer  in 

register  pair  DE. 

OFCCH  -   OFCEH   Jump  if  the  current  value  in  REGl  is  positive. 

OFCFH  -   OFDOH    Save  a  minus  sign  (-)  at  the  location  of  the  input 
buffer  pointer  in  register  pair  HL. 

^^^IJ^  Save  the  value  in  register  pair  EC  on  the  stack. 

0FD2H  Save  the  value  in  register  pair  HL  on  the  stack. 

0FD3H  "   0FD5H    Go  convert  the  negative  value  in  REGl  to  it's  posi- 
tive equivalent. 

0FD6H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  HL. 

0FD7H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  HL. 

0FD8H  Set  the  flags. 

0FD9H  Bump  the  input  buffer  pointer  in  register  pair  HL. 

OFDAH  -   OFDBH   Save  an  ASCII  zero  (0)  at  the  location  of  the  input 
buffer  pointer  in  register  pair  HL. 

OFDCH  -  OFDEH  Load  register  A  with  the  value  of  the  edit  flag. 

OFDFH  Load  register  D  with  the  value  of  the  edit  flag  in 

register  A. 
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OFEOH  Move  the  edit  on/off  bit  in  register  A  into  the  Carry 

flag. 

OFEIH  -   0FE3H   Load  register  A  with  the  value  of  the  current  number 
type  flag. 

OFB^H  -   0FE6H  Jump  if  value  is  to  be  edited. 

0FE7H  -  0FS9H  Jump  if  no  edit. 

OFEAH  -   OFEBH   Check  to  see  if  the  current  value  in  REGl  is  single  or 
double  precision. 

OFECH  -   OFEEH   Jump  ifthe  current  value  in  REGl  is  single  or  double 
precision. 

OFEFH  -   OFFIH   Load  register  pair  BC  with  zero. 

0FF2H  -   OFF^H   Go  convert  the  integer  value  in  REGl  to  an  ASCII 
string. 

0FF5H  -   0FF7H   Load  register  pair  HL  with  the  starting  address  of 
the  input  buffer. 

0FF8H  Load  register  B  with  the  character  at  the  location  of 

the  input  buffer  pointer  in  register  pair  HL. 

0FF9H  -   OFFAH   Load  register  C  with  a  space  character. 

OFFBH  «  OFFDH  Load  register  A  with  the  value  of  the  edit  flag. 

OFFEH  Load  register  E  with  the  value  of  the  edit  flag  in 

register  A. 

OFFFH  -  lOOOH   Check  the  value  of  the  edit  flag  in  register  A  to  see  if 
leading  *  are  to  be  printed. 

lOOlH  -  1002H   Jump  if  leading  «  aren't  to  be  included  in  tiie  ASCII 
string. 

1003H  Load  register  A  with  the  character  at  the  location  of 

the  input  buffer  pointer  in  register  B. 

lOO^H  Check  to  see  if  the  character  at  the  location  of  the 

input  bi^er  pointer  in  register  A  is  a  space. 

1005H  -  1006H   Load  register  C  with  an  *  character. 

1007H  -  1008H   Jump  if  the  character  at  the  location  of  the  input 
buffer  pointer  in  register  A  isn't  a  space. 

1009H  Load  register  B  with  the  *  character  in  re.^ister  C. 

lOOAH  Save  the  *  character  in  register  C  at  the  location  of 

the  input  buffer  pointer  in  register  pair  HL. 

306 


lOOBH  Go  bump  the  input  buffer  pointer  in  register  pair  HL 

till  it  points  to  the  next  character. 


lOOCH  -   lOODH  Jump  if  the  character  at  the  location  of  the  input 
buffer  pointer  in  register  pai: 
input  buffer  character  (OOH). 


buffer  pointer  in  register  pair  HL  is  the  end  of  the 
"^OH). 


lOOEH  -   lOOFH    Check  to  see  if  the  character  at  the  location  of  the 
input  buffer  pointer  in  register  A  is  an  E. 

lOlOH  -   lOllH   Jump  if  the  character  at  the  location  of  the  input 
buffer  pointer  in  register  A  is  an  E. 

1012H  -  1013H    Check  to  see  if  the  character  at  the  location  of  the 
input  buffer  pointer  in  register  A  is  a  D, 

lOl^H  -  1015H    Jump  if  the  character  at  the  location  of  the  input 
buffer  pointer  in  register  A  is  a  D. 

1016H  -  1017H    Check  to  see  if  the  character  at  the  location  of  the 
input  buffer  pointer  in  register  A  is  a  D, 

1018H  -   IOI9H    Jump  if  the  character  at  the  location  of  the  input 
buffer  pointer  in  register  A  is  a  0. 

lOlAH  -   lOlBH    Check  to  see  if  the  character  at  the  location  of  the 
input  buffer  pointer  in  register  A  is  a  comma. 

lOlCH  -  lOlDH    Jump  if  the  character  at  the  location  of  the  input 
buffer  pointer  in  register  A  is  a  comma. 

lOlEH  -  lOlFH     Check  to  see  if  the  character  at  the  location  of  the 
input  buffer  pointer  in  register  A  is  a  decimal  point. 

1020H  "-  1021H    Jump  if  the  character  at  the  location  of  the  input 
buffer  pointer  in  register  A  isn't  a  decimal  point. 

1022H  Decrement  the  value  of  the  input  buffer  pointer  in 

register  pair  HL. 

1023H  -  102^H     Save  a  zero  character  (0)  at  the  location  of  the  input 
buffer  pointer  in  register  pair  HL 

102  Sa  Load  register  A  with  the  value  of  the  edit  flag  in 

register  E. 

IO26H  -  1027H    Check  to  see  if  a  $  is  to  be  included  in  the  ASCII 
string. 

1028H  -   1029H    Jump  if  a  $  isn't  to  be  included  in  the  ASCII  string. 

102 AH  Decrement  the  value  of  the  input  buffer  pointer  in 

register  pair  HL, 

102BH  -  102CH    Save  a  $  character  at  the  location  of  the  input  buffer 
pointer  in  register  pair  HL. 

307 


102DH  Load  register  A  with  the  value  of  the  input  flag  in 

register  E. 

102EH  -   102FH    Check  to  see  if  the  sign  is  to  follow  the  ASCII  string. 

103  OH  Return  if  the  sign  isn't  to  follow  the  ASC;iI  string. 

IO3IH  Decrement  the  value  of  the  input  buffer  pointer  in 

register  pair  HL. 

IO32H  Save  the  character  in  register  B  at  the  location  of  the 

input  buffer  pointer  in  register  pair  HL. 

1033H  Return. 

103^H  -   IO36K    Save  the  value  of  the  edit  flag  in  register  A. 

1037H  -  IO39H  Load  register  pair  HL  with  the  starting  address  of 
the  input  buffer. 

103 AH  -  103BH  Save  a  space  at  the  location  of  the  in]3ut  buffer 
pointer  in  register  pair  HL. 

103CH  Return. 

103DH  -  IO3EH  Set  the  Carry  flag  according  to  whether  the  current 
value  in  REGl  is  single  precision  or  doi.ble  preci- 
sion. 

IO3FH  Save  the  value  in  register  pair  HL  on  the  stack. 

lO^OH  -  lO^lH    Adjust  the  value  of  the  number  type  in  register  A. 

10^2H  Multiply  the  value  of  the  number  type  in  register  A 

by  two. 

10^3H  Load  register  D  with  the  adjusted  value  of  the 

number  type  in  register  A. 

lO^^H  Bump  the  value  of  the  number  type  in  register  D. 

10^5H  "  10^7H  Go  adjust  the  current  value  in  REGl. 

1048H  -"  lO^AH  Load  register  pair  BC  mth  a  default  value. 

1  O^-BH  Add  the  value  in  register  D  to  the  value  in  register  A. 

lO^CH  -  lO^EH  Jump  if  the  number  of  digits  in  register  A  is;  too  large. 

lO^FH  Bump  the  value  in  register  D. 

IO5OH  Check  to  see  if  the  number  of  digits  in  register  A  is 

equal  to  the  value  in  register  D. 

IO5IH  -  IO52H  Jump  if  the  number  of  digits  in  register  A  is  greater 
than  or  equal  to  the  value  in  register  D. 
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1053H  Bump  the  number  of  digits  in  register  A. 

105^H  Load  register  B  with  the  number  of  digits  in  register 

A. 

1055H  -  IO56H    Load  register  A  with  a  two. 

1057H    -   IO58H  Make  register  A  equal  to  zero. 

IO59H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  HL. 

105AH  Save  the  value  in  register  pair  AF  on  the  stack. 

105BH  -  105DH  Go  put  a  comma  or  decimal  point  in  the  input  buffer  if 
necessary. 

105EH  "  IO5FH  Save  a  zero  (0)  character  at  the  location  of  the  input 
buffer  pointer  in  register  pair  HL. 

IO6OH  -  1062H  Go  bump  the  value  of  the  input  buffer  pointer  in 
register  pair  HL  if  necessary. 

1063H  -  1065H    Go  convert  the  binary  value  in  REGl  to  ASCIL 

1066k  Decrement  the  value  of  the  input  buffer  pointer  in 

register  pair  HL. 

IO67H  Load  register  A  with  the  value  at  the  location  of  the 

input  buffer  pointer  in  register  pair  HL. 

IO68H  -  IO69H  Check  to  see  if  the  value  in  register  A  is  a  zero 
character. 

IO6AH  -  IO6BH  Loop  till  the  character  at  the  location  of  the  input 
buffer  pointer  in  register  pair  HL  is  not  a  zero 
character. 

IO6CH  -  IO6DH  Check  to  see  if  the  character  at  the  location  of  the 
input  buffer  pointer  in  register  A  is  a  decimal  point. 

IO6EH  -  IO7OH  Go  bump  the  value  of  the  input  buffer  pointer  in 
register  pair  HL  if  the  character  in  register  A  isn't  a 
decimal  point. 

IO7IH  Get  the  value  from  the  stack  and  put  it  in  register 

pair  HL. 

1072H  -  10731    Jump  if  done. 

107^H  Save  the  value  in  register  pair  AF  on  the  stack. 

1075H  Go  check  the  current  value  of  ±e  number  type  flag. 

IO76H  -  IO77H  Load  register  A  with  the  starting  value  for  a  D  or  E 
character. 
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1078H 

1079H 
107AH 
107BH 
107CH  -  107DH 


Multiply  the  value  of  the  character  in  register  A  by 
two  and  add  in  the  value  of  the  Carry  flag  from  the 
number  type  flag  test.  Register  A  will  now  be  equal 
to  a  D  or  an  E  depending  on  the  current  value  of  the 
number  type  flag. 

Save  the  character  in  register  A  at  the  location  of  the 
input  buffer  pointer  in  register  pair  HL. 

Bump  the  value  of  the  input  buffer  pointer  i  a  register 
pair  HL. 

Get  the  value  of  the  exponent  from  the  stack  and  put 
it  in  register  A. 

Save  a  plus  sign  at  the  location  of  the  in)3ut  buffer 
pointer  in  register  pair  HL. 


107EH  -  108  OH  Jump  if  the  exponent  is  positive. 

1081H  -  1082H   Save  a  minus  sign  at  the  location  of  the  input  buffer 
pointer  in  register  pair  HL. 

1083H  Reverse  the  value  of  the  exponent  in  re^^ister  A. 

108  to  Bump  the  value  of  the  exponent  in  register  A  so  that 

it  will  be  positive. 

1085H  -  1086H    Load  register  B  with  an  ASCII  zero  minus  one. 

1 08  7H  Bump  the  value  of  the  ASCII  character  in  rcjgister  B. 

1088H  -  1089H    Subtract  ten  from  the  value  of  the  ex]3onent  in 
register  A. 

108AH  -  108BH    Loop  till  the  value  of  the  exponent  in  register  A  is 
less  than  ten. 

108CH  -   108DH    Adjust  the  value  of  the  remainder  in  register  A  so 
that  it  will  be  an  ASCII  character. 

1 08EH  Bump  the  value  of  the  input  buffer  pointer  :.n  register 

pair  HL. 

108FH  Save  the  ASCII  character  in  register  B  at  the  loca- 

tion of  the  input  buffer  pointer  in  register  pair  HL. 

IO9OH  Bump  the  value  of  the  input  buffer  pointer  in  register 

pair  HL, 

IO9IH  Save  the  value  of  the  ASCII  character  in  register  A  at 

the  location  of  the  input  buffer  pointer  in  register 
pair  HL. 

IO92H  Bump  the  value  of  the  input  buffer  pointer  in  register 

pair  HL, 
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1093H  -  109^H  Save  an  end  of  the  ASCII  string  character  at  the 
location  of  the  input  buffer  pointer  in  register  pair 
HL. 

1^95H  Load  register  pair  DE  with  the  value  of  the  input 

buffer  pointer  in  register  pair  HL. 

IO96H  -  IO98H  Load  register  pair  HL  with  the  starting  address  of 
the  ASCII  string. 

1099H  Return. 

1 0  9AH  Bump  the  value  of  the  input  buffer  pointer  in  register 

pair  HL. 

IO9BH  Save  the  value  in  register  pair  BC  on  the  stack. 

IO9CH  -  IO9DH  Check  to  see  if  the  current  number  type  in  REGl  is 
single  or  double  precision. 

IO9BH  Load  register  A  with  the  value  of  the  edit  flag  in 

register  D. 

IO9FH  •  lOAlH  Jump  if  the  current  value  in  REGl  is  either  single 
precision  or  double  precision. 

10A2H  Put  the  value  of  the  exponential  notation  flag  into  the 

Carry  flag. 

10A3H  -  10A5H   Jump  if  exponential  notation  is  requested. 

10A6H  "  10A8H    Load  register  pair  BC  with  a  default  value. 

10A9H  -   lOABH    Go  check  to  see  if  commas  are  requested. 

lOACH  Get  the  value  from  the  stack  and  put  it  in  register 

pair  DE. 

lOADH  Load  register  A  with  the  number  of  di^ts  requested 

to  the  left  of  the  decimal  point  in  register  D. 

lOAEH  -  lOAFH  Subtractthemaximumnumberof  digits  to  the  left  of 
the  decimal  point  from  the  number  of  digits  to  the 
left  of  the  decimal  point  requested. 

lOBOH  -  10B2H  Go  put  leading  zeros  into  the  input  buffer  if  the 
number  of  digits  to  the  left  of  the  decimal  point 
requested  is  greater  than  the  number  of  digits  to  the 
left  of  the  decimal  point  for  the  maximum  length  of  an 
integer  value. 

10B3H  "  10B5H  Go  convert  the  integer  value  in  REGl  to  an  ASCII 
string. 

1  0B6H  Load  register  A  with  the  number  of  digits  to  the  right 

of  the  decimal  point  requested  in  register  E. 
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10B7H  Check  to  see  if  there  are  any  digits  to  the  riglit  of  the 

decimal  point  requested. 

10B8H  ~  lOBAH  Go  decrement  the  value  of  the  input  buffer  pointer  in 
register  pair  HL  if  there  are  no  digits  to  the  right  of 
the  decimal  point  requested. 

lOBBH  Decrement  the  number  of  digits  to  the  right  of  the 

decimal  point  in  register  A. 

lOBCH  -  lOBM  Go  add  trailing  zeros  to  the  ASCII  string  if  neces- 
sary. 

lOBFH  Save  the  value  in  register  pair  HL  on  the  stack. 

lOCOH  -  10C2H   Go  edit  the  ASCII  string  in  the  input  buffer. 

10C3H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  HL. 

lOC^H  -  10C5H  Jump  if  the  sign  follows  the  ASCII  string. 

10C6H  Save  the  character  in  register  B  at  the  location  of  the 

input  buffer  pointer  in  register  pair  HL. 

10C7H  Bump  the  value  of  the  input  buffer  pointer  in  register 

pair  HL. 

10C8H  -  10C9H  Save  an  end  of  the  ASCII  string  character  at  the 
location  of  the  input  buffer  pointer  in  register  pair 
HL. 

lOCAH  -  lOCGH  Load  register  pair  HL  with  the  starting  acdress  of 
the  input  buffer  pointer. 

1 0  CDH  Bump  the  value  of  the  input  buffer  pointer  in  register 

pair  HL. 

lOCEH  "-  ICDOH  Load  register  A  with  the  LSB  of  the  address  of  the 
decimal  point  for  the  ASCII  string. 

lODlH  Subtract  the  LSB  of  the  input  buffer  pointer  address 

in  register  L  from  the  value  in  register  A. 

10D2H  Subtract  the  number  of  digits  to  the  left  of  he  deci- 

mal point  in  register  D  from  the  adjusted  value  in 
register  A. 

10D3H  Return  if  the  input  buffer  pointer  in  register  pair  HL 

points  to  the  start  of  the  ASCII  string. 

lOD^H  Load  register  A  with  the  character  at  the  location  of 

the  input  buffer  pointer  in  register  pair  HL. 

10D5H  -  10D6H  Check  to  see  if  the  character  at  the  location  of  the 
input  buffer  pointer  in  register  A  is  a  space. 
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10D7H  -  10D8H    Jump  if  the  character  at  the  location  of  the  input 
buffer  pointer  in  register  pair  HL  is  a  space. 

10D9H  -  lODAH    Check  to  see  if  the  character  at  the  location  of  the 
input  buffer  pointer  in  register  A  is  a  *. 

lODBH  -  lODCH    Jump  if  the  character  at  the  location  of  the  input 
buffer  pointer  in  register  A  is  a  *. 

lODDH  Decrement  the  value  of  the  input  buffer  pointer  in 

register  pair  HL. 

1 ODEH  Save  the  value  of  the  input  buffer  pointer  in  register 

pair  HL  on  the  stack. 

lODFH  Save  the  value  in  register  pair  AF  on  the  stack. 

lOSOH  -  10E2H    Load  register  pair  BC  with  the  return  address. 

10E3H  Save  the  return  address  in  register  pair  BC  on  the 

stack. 

lOE^H  Go  bump  the  value  of  the  input  buffer  pointer  in 

register  pair  HL  till  it  points  to  the  next  character. 

10E5H  -  10E6H    Check  to  see  if  the  character  at  the  location  of  the 
input  buffer  pointer  in  register  A  is  a  minus  sign. 

10E7H  Retum  if  the  character  at  the  location  of  the  input 

buffer  pointer  in  register  A  is  a  minus  sign. 

10E8H  "  10E9H    Check  to  see  if  the  character  at  the  location  of  the 
input  buffer  pointer  in  register  A  is  a  plus  sign. 

lOEAH  Return  if  the  character  at  the  location  of  the  input 

buffer  pointer  in  register  A  is  a  plus  sign. 

lOEBH  -  lOECH    Check  to  see  if  the  character  at  the  location  of  the 
input  buffer  pointer  in  register  A  is  a  dollar  sign. 

lO^H  Return  if  the  character  at  the  location  of  the  input 

buffer  pointer  in  register  A  is  a  dollar  sign. 

lOEEH  Get  the  return  address  from  the  stack  and  put  it  in 

register  pair  BC. 

lOEFH  -  lOFOH    Check  to  see  if  the  character  at  the  location  of  the 
input  buffer  pointer  in  register  A  is  an  ASCII  zero. 

lOFlH  -  10P2H   Jump  if  the  character  at  the  location  of  the  input 
buffer  pointer  in  register  A  isn't  an  ASCII  zero. 

1 0  F3  H  Bump  the  value  of  the  input  buffer  pointer  in  register 

pair  HL. 

lOF^H  Go  bump  the  value  of  the  input  buffer  pointer  in 

register  pair  HL  till  it  points  to  the  next  character. 
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lOF'^H  -   10F6H    Jump  if  the  character  at  the  location  of  rhe  input 
buffer  pointer  in  register  A  isn't  a  numenc  character. 

X0F7H  Decrement  the  value  of  the  input  buffer  pointer  in 

register  pair  HL, 
10F9H  Decrement  the  value  of  the  input  buffer  pointer  in 

register  pair  HL. 

lOFAH  Save  the  character  in  register  A  at  the  location  of  the 

input  buffer  pointer  in  register  pair  HL. 

lOFBH  Get  the  value  from  the  stack  and  put  it  in  register 

pair  AF. 

lOFCH  -  lOFDH    Loop  till  done. 

lOFEH  Get  the  value  from  the  stack  and  put  it  in  register 

pair  BC. 

lOFFH  -  IIOIH    Jump. 

1102H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  AF. 

1103H  -  llO^H    Loop  till  done. 

110  5H  Get  the  value  from  the  stack  and  put  it  i:i  register 

pair  HL. 

1106H  -  1107H  Save  a  %  character  at  the  location  of  the  irput  buffer 
pointer  in  register  pair  HL. 

1108H  Return. 

1109H  Save  the  value  in  register  pair  HL  on  the  stack. 

IIOAH  Check  to  see  if  exponential  notation  is  reciuested  by 

the  edit  flag  in  register  A. 

IIOBH  -  llODH  Jump  if  exponential  notation  is  requested  by  the  edit 
flag  in  register  A. 

IIOEH  -  llOFH  Jump  if  the  current  value  in  REGl  is  single  preci- 
sion. 

HIGH  "  1112H  Load  register  pair  DE  with  the  address  of  the  double 
precision  value  to  be  compared  to  the  current  value 
in  REGl.  Register  pair  DE  points  to  a  double  preci- 
sion constant  equal  to  IE  16. 

1113H  "  1115H  Go  compare  the  double  precision  constant  pointed  to 
by  register  pair  DE  to  tiie  double  precision  value  in 
REGl. 

1116H  ~  1117H  Load  register  D  with  the  maximum  length  of  a  dou- 
ble precision  value. 
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1118H  -  lllAH  Jump  if  the  double  precision  value  in  REGl  is  less 
than  or  equal  to  1E16H. 

mBH  Get  the  value  from  the  stack  and  put  it  in  register 

pair  HL. 

^^^^K  Get  the  value  from  the  stack  and  put  it  in  register 

pair  BC. 

IIIDH  -  lllFH  Go  convert  the  double  precision  value  in  REGl  to  an 
ASCII  string. 

112  OH  Decrement  the  input  buffer  pointer  in  register  pair 

HL, 

1121H  -  1122H  Save  a  %  character  at  the  location  of  the  input  buffer 
pointer  in  register  pair  HL. 

1123H  Return. 

llZkE  -  1126H  Load  register  pair  BC  with  the  exponent  and  the 
MSB  of  a  single  precision  constant. 

1127H  -  1129H  Load  register  pair  DE  with  the  NMSB  and  the  LSB 
of  a  single  precision  constant.  Register  pairs  BC  and 
DE  now  hold  a  single  precision  constant  equal  to 
1E16. 

112AH  -  112CH  Go  compare  the  single  precision  constant  in  register 
pairs  BC  and  DE  to  tiie  single  precision  value  in 

112DH  •"  112FH  Jump  ifthe  single  precision  value  in  REGl  is  greater 
than  1E16. 

II3OH  -  II3IH  Load  register  D  with  the  maximum  length  of  a  single 
precision  value. 

1132H  -  113^H    Go  check  the  sign  of  the  value  in  REGL 

1135H  -  1137H    Go  adjust  the  current  value  of  REGL 

II38H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  HL. 

II39H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  BC. 

113AH  "  113  CH  Jump  ifthe  value  in  REGl  had  to  be  multiplied  to  get 
it  in  range. 

113DH  Save  the  value  in  register  pair  BC  on  the  stack. 

113EH  Load  register  E  with  the  number  of  times  the  current 

value  in  REGl  was  divided. 
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113FH  Load  register  A  with  the  number  of  digits  no  the  left 

of  the  decimal  point  requested. 

ll^OH  Subtract  the  maximum  length  for  the  current  number 

type  in  register  D  from  the  number  of  digits  re- 
quested in  register  A. 

lli^lH  Subtract  the  number  of  times  the  curren:  value  in 

REGl  was  divided  in  register  E  from  the  adjusted 
value  in  register  A. 

llkZK  -  ll^^H  Go  put  leading  zeros  into  the  input  buffer  if  neces- 
sary. 

11^5H  "  11^7H    Go  figure  the  comma  count  and  the  position  of  the 
decimal  point. 

11^8  H  -  ll^AH    Go  convert  the  integerportionofthe  current  value  in 
REGl  to  an  ASCII  string. 

ll^BH  Check  to  see  if  there  are  any  trailing  zeros;  needed. 

ll^CH  ~  ll^EH    Go  put  trailing  zeros  into  the  input  buffer  if  neces- 
sary. 

ll^FH  Check  to  see  if  commas  or  the  decimal  point  is 

needed. 

II5OH  -  II52H    Go  put  commas  and  the  decimal  point  into  the  input 
buffer  if  necessary. 

1153H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  DE. 

115^H  «•  II56H   Jump. 

1157H  Load  register  E  with  the  number  of  times  the  current 

value  in  REGl  was  multiplied. 

II58H  Load  register  A  with  the  number  of  digits  requested 

to  the  right  of  the  decimal  point. 

II59H  Check  to  see  if  any  digits  to  the  right  of  die  decimal 

point  was  requested. 

115AH  -  115CH    Go  decrement  the  number  of  digits  requejjted  to  the 
right  of  the  decimal  point  if  necessary. 

ll^Dil  ^^^  ^^  number  of  times  the  current  value  was  mul- 

tiplied in  register  E  to  the  number  of  dii^ts  to  the 
right  of  the  decimal  point  requested  in  register  A. 

115EH  -  1160H   Jump  if  the  value  in  REGl  must  be  adjussted. 

II6IH  Zero  register  A. 
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1162H  Save  the  value  in  register  pair  BC  on  the  stack. 

1163H  Save  the  value  in  register  pair  AF  on  the  stack. 

ll6kE  -  1166H    Go  divide  the  value  in  REGl  by  ten  if  necessary. 

1167H  -  II69H    Loop  till  the  value  in  REGl  is  properly  adjusted. 

II6AH  Get  the  value  from  the  stack  and  put  it  in  register 

pair  BC. 

II6BH  Load  register  A  with  the  number  of  times  the  value 

in  REGl  was  multiplied  in  register  E. 

II6CH  Add  the  value  in  register  B  to  the  value  in  register  A. 

II6DH  Get  the  value  from  the  stack  and  put  it  in  register 

pair  BC, 

116  EH  Load  register  E  with  the  adjusted  value  in  register 

A. 

II6FH  Add  the  length  of  the  maximum  size  for  the  current 

value  in  register  D  to  the  adjusted  value  in  register 
A. 

II7OH  Add  the  number  of  digits  requested  for  the  left  of  the 

decimal  point  in  register  B  to  the  adjusted  value  in 
register  A. 

II7IH  -  1173H    Jump  if  there  are  no  digits  to  the  left  of  the  decimal 
point, 

117^H  Subtract  the  maximum  length  for  the  current  value  in 

register  D  from  the  adjusted  value  in  register  A. 

1175H  Subtract  the  value  in  register  E  from  the  adjusted 

value  in  register  A. 

II76H  -  II78H    Go  put  leading  zeros  into  the  input  buffer  if  neces- 
sary. 

II79H  Save  the  value  in  register  pair  BC  on  the  stack. 

II7AH  "  II7CH    Go  determine  the  position  of  the  decimal  point  and 
the  comma  count. 

117DH  -  117EH    Jump. 

II7FH  -  1181H    Go  put  leading  zeros  into  the  input  buffer  if  neces- 
sary. 

1182H  Load  register  A  with  the  number  of  bytes  requested 

to  the  right  of  the  decimal  point  in  register  C. 

1183H  -  1185H    Go  put  a  decimal  point  into  the  input  buffer. 
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1186H  Load  register  C  with  the  number  of  digits  re^quested 

to  the  right  of  the  decimal  point  in  register  A. 

118  7H  Zero  register  A. 

1188H  Subtract  the  maximum  length  for  the  current,  value  in 

register  D  from  the  value  in  register  A. 

118  9H  Subtract  the  value  in  register  E  from  the  adjusted 

value  in  register  A. 

118AH  -  118CH    Go  put  zeros  into  the  input  buffer  if  necessary. 

118DH  Save  the  value  in  register  pair  BC  on  the  stack. 

118EH  Load  register  B  with  the  value  in  register  A. 

118  FH  Load  register  C  with  the  value  in  register  A. 

II9OH  -  II92H    Go  convert  the  current  value  in  REGl  to  an  ASCII 
string. 

1193H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  BC. 

1194H  Check  to  see  if  there  are  any  digits  to  the  right  of  the 

decimal  point  requested. 

1195H  -  II96H    Jump  if  there  are  digits  to  the  right  of  the  decimal 
point  requested, 

II97H  "   II99H     Load  register  pair  HL  with  the  position  of  the  deci- 
mal point. 

II9AH  Add  the  value  in  register  E  to  the  value  in  register  A. 

II9BH  Decrement  the  adjusted  value  in  register  A. 

II9CH  -  II9EH    Go  put  zeros  into  the  input  buffer  if  necesisary. 

II9FH  Load  register  D  with  the  number  of  digits  to  the  left 

of  the  decimal  point  requested  in  register  B. 

IIAOH  -  11A2H    Jump. 

11A3H  Save  the  value  in  register  pair  HL  on  the  stack. 

IIA^H  Save  the  value  in  register  pair  BC  on  the  stack. 

11A5H  -  11A7H    Go  convert  the  integer  value  in  REGl  to  a  single 
precision  value. 

11A8H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  DE. 

11A9H  Zero  register  A. 
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11B2H 

11B5H 

11B6H  -  11B8H 

11B9H 

IIBAH 


llAAH  "  llACH   Jump  if  the  current  value  in  REGl  is  single  preci- 
sion. 

IIADH  "  llAEH    Load  register  E  with  the  maximum  length  of  a  double 
precision  value. 

IIBOH  "  IIBIH    Load  register  E  with  the  maximum  length  of  a  single 
precision  value. 

llBto    Go  check  the  sign  for  the  current  value  in  REGl. 

Set  the  Carry  flag. 

Go  adjust  the  current  value  in  REGl  if  it's  nonzero. 

Get  the  value  from  the  stack  and  put  it  in  register 
pair  HL. 

Get  the  value  from  the  stack  and  put  it  in  register 
pair  EC. 

IIBBH  Save  the  value  in  register  pair  AF  on  the  stack. 

IIB  CH  Load  register  A  with  the  number  of  digits  to  the  right 

of  the  decimal  point  requested  in  register  C. 

IIBDH  Check  to  see  if  there  are  any  digits  to  the  right  of  the 

decimal  point  requested. 

Save  the  value  in  register  pair  AF  on  the  stack. 

Go  decrement  the  number  of  digits  requested  to  the 
right  of  the  decimal  point  in  register  A  if  necessary. 

Add  the  number  of  digits  requested  for  the  left  of  the 
decimal  point  in  register  B  to  the  number  of  digits 
requested  to  the  right  of  the  decimal  point  in  register 
A. 

3-1C3H  Load  register  C  with  the  adjusted  value  in  register 

A. 

11C4H  Load  register  A  with  the  value  of  the  edit  flag  in 

register  D. 

11C5H  -  11C6H    ChecktoseeifthesignistofolIowtheASCIIstring. 

11C7H  -  11C8H    Set  the  Carry  flag  according  to  the  sign  following  the 
ASCII  string  test. 

11C9H  Adjust  register  A  so  that  it  will  reflect  the  sign 

following  the  ASCII  string  test. 

IICAH  Load  register  D  with  the  value  in  register  A. 

IICBH  Add  the  value  in  register  C  to  the  value  in  register  A. 
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IIBFH  -  IICIH 

11C2H 


IICCH  Load  register  C  with  the  adjusted  value  in  register 

A. 

IICDH  Subtract  the  value  in  register  E  from  the  adjusted 

value  in  register  A, 

IICEH  Save  the  value  in  register  pair  AF  on  the  stack. 

IICFH  Save  the  value  in  register  pair  BC  on  the  stack. 

IIDOH  "  11D2H    Go  divide  the  current  value  in  REGl  by  ten  if  neces- 
sary. 

11D3H  -  11D5H    Loop  till  the  current  value  in  REGl  is  properly 
adjusted. 

11D6H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  BC. 

11D7H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  AF. 

11D8H  Save  the  value  in  register  pair  BC  on  the  stack. 

11D9H  Save  the  value  in  register  pair  AF  on  the  stack. 

IIDAH  -  IIDCH    Jump  if  the  value  in  register  A  is  negative. 

IIDDH  Zero  register  A. 

IIDEH  Invert  the  value  in  register  A. 

IIDFH  Bump  the  value  in  register  A  so  that  i:  will  be 

positive. 

IIEOH  Add  the  number  of  digits  requested  to  the  1  eft  of  the 

decimal  point  in  register  B  to  the  adjusted  value  in 
register  A. 

IIEIH  Bump  the  adjusted  value  in  register  A. 

11E3H  Add  the  value  of  the  maximum  length  for  the  current 

number  type  in  register  D  to  the  adjusted  value  in 
register  A. 

IIB^-H  -  11E5H    Load  register  C  with  zero. 

11E6H  -  11E8H    Go  convert  the  current  value  in  ElEGl  to  an  ASCII 
string. 

11E9H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  AF. 

IIEAH  -  llECH    Go  put  zeros  into  the  input  buffer  if  necessary. 

11  SDH  Get  the  value  from  the  stack  and  put  it  in  register 

pair  BC. 
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11-EEH  Get  the  value  from  the  stack  and  put  it  in  register 

pair  AF. 

IIEFH  "  IIFIH  Go  decrement  the  input  buffer  pointer  in  register 
pair  HL  if  necessary, 

11P2H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  AF. 

11F3H  -   11F4H   Jump  if  the  Carry  flag  was  set  during  the  first  pass. 

11F5H  Add  the  value  in  register  E  to  the  value  in  register  A. 

11F6H  Subtract  the  number  of  digits  to  the  left  of  the  deci- 

mal point  requested  in  register  B  from  the  adjusted 
value  in  register  A. 

11F7H  Subtract  the  value  in  register  D  from  the  value  in 

register  A. 

11F8H  Save  the  value  in  register  pair  BC  on  the  stack. 

11F9H  -  llFBH  Go  figure  the  value  of  the  exponent  for  the  current 
value  in  REGl. 

IIFCH  Load  register  pair  HL  with  the  value  of  the  input 

buffer  pointer  in  register  pair  DE. 

IIFDH  Get  the  value  from  the  stack  and  put  it  in  register 

pair  DE. 

IIFEH  "  1200H  Jump. 

1201H  Save  the  value  in  register  pair  DE  on  the  stack. 

1202H  Zero  register  A. 

1203H  Save  the  value  in  register  pair  AF  on  the  stack. 

12  O^H  Go  check  the  current  value  of  the  number  type  flag. 

1205H  -  1207H  Jump  if  the  current  value  in  REGl  is  single  preci- 
sion. 

1208H  -  120AH  Load  register  A  with  the  value  of  the  exponent  for 
the  double  precision  value  in  REGl. 

120BH  -  120CH  Check  to  see  if  the  double  precision  value  in  REGl 
uses  more  than  16  bits  of  precision  for  the  integer 
portion  of  the  double  precision  value. 

120DH  -  120FH  Jump  if  the  double  precision  value  in  REGl  uses 
more  than  16  bits  of  precision  for  it's  integer  portion. 

1210H  "  1212H  Load  register  pair  DE  with  the  starting  address  for 
the  double  precision  constant  equal  to  IE  10. 

321 


1213H  -  1215H  Load  register  pair  HL  with  the  starting  address  for 
REG2. 

1216H  -  1218H    Go  move  the  double  precision  constant  into  REG2. 

1219H  -  121BH  Go  multiply  the  double  precision  value  in  REGl  by 
the  double  precision  constant  in  REG2. 

121CH  Get  the  value  from  the  stack  and  put  it  in  register 

pair  AF. 

121DH  -  121EH    Subtract  ten  from  the  value  in  register  A. 

121FH  Save  the  value  in  register  pair  AF  on  the  stack. 

1220H  -  1221H   Jump. 

1222H  -  122^H    Go  compare  the  current  value  in  REGl  to  999999. 5. 

1225H  Go  check  the  current  value  of  the  number  i:ype  flag. 

I226H  -  1228H  Jump  if  the  current  value  in  REGl  is  double  preci- 
sion. 

I229H  -  122BH  Load  register  pair  BC  with  the  exponent  and  the 
MSB  of  a  single  precision  constant. 

122CH  "  122EH  Load  register  pair  DE  with  the  NMSB  and  the  LSB 
of  a  single  precision  constant.  Register  pairs  BC  and 
DE  are  now  equal  to  a  single  precision  constant  of 
99,999.945. 

122FH  -  I23IH  Go  compare  the  single  precision  value  in  REGl  to 
the  single  precision  constant  in  register  pairs  BC 
andDE. 

1232H  -  1233H    Jump. 

123^H  -  I236H  Load  register  pair  DE  with  the  starting  address  of  a 
double  precision  constant  equal  to  9.992:lE14. 

I237H  -  I239H  Go  compare  the  double  precision  constant  pointed  to 
by  register  pair  DE  to  the  double  precision  value  in 
REGL 

123AH  -  123CH  Jump  if  the  current  value  in  REGl  is  greater  than  the 
constant  compared  to  it. 

123DH  Get  the  value  from  the  stack  and  put  it  in  register 

pair  AF. 

I23EH  -  1240H    Go  multiply  the  current  value  in  REGl  ty  ten. 
12^1H  Save  the  value  in  register  pair  AF  on  the  stack. 

12^2H  -  1243H    Jump. 
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12^'^'E  Get  the  value  from  the  stack  and  put  it  in  register 

pair  AF. 

1245H  "  1247H     Go  divide  the  current  value  in  REGl  by  ten. 

1248H  Save  the  value  in  register  pair  AF  on  the  stack. 

12k9K  -  124BH  Go  check  to  see  if  the  current  value  in  REGl  is  in 
range. 

12^CH  Get  the  value  from  the  stack  and  put  it  in  register 

pair  AF. 

12^DH  Get  the  value  from  the  stack  and  put  it  in  register 

pair  DE. 

124EH  Return. 

12^FH  Go  check  die  current  value  of  the  number  type  flag. 

I25OH  "  1252H  Jump  if  the  current  value  in  REGl  is  double  preci- 
sion. 

1253H  "  1255H  Load  register  pair  BC  with  the  exponent  and  the 
MSB  of  a  single  precision  constant. 

I256H  -  1258H  Load  register  pair  DE  with  the  NMSB  and  the  LSB 
of  a  single  precision  constant.  Register  pairs  BC  and 
DE  are  now  equal  to  a  single  precision  constant  of 
999,999.5. 

I259H  -  I25BH  Go  compare  the  single  precision  constant  in  register 
pairs  BC  and  DE  to  the  single  precision  value  in 
REGL 

125CH  -  125DH    Jump. 

I25EH  -  I26OH  Load  register  pair  DE  with  the  starting  address  of  a 
double  precision  constant  equal  to  1E16H. 

I26IH  -  I263H  Go  compare  the  double  precision  constant  pointed  to 
by  register  pair  DE  to  the  double  precision  value  in 
REGl. 

1264H  Get  the  return  address  from  the  stack  and  put  it  in 

register  pair  HL. 

I265H  -  I267H    Jump  if  the  current  value  in  REGl  isn't  in  range. 

I268H  Jump. 

I269H  Check  to  see  if  the  value  in  register  A  is  equal  to 

zero. 

I26AH  Return  if  the  value  in  register  A  is  equal  to  zero. 

I26BH  Decrement  the  value  in  register  A. 
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126CH  «*  126DH     Save  a  zero  character  at  the  location  of  the  input 
buffer  pointer  in  register  pair  HL. 

126EH  Bump  the  input  buffer  pointer  in  register  pair  HL. 

126FH   -  I27OH    Jump. 

I27IH  -  1272H    Jump  if  not  done. 

1273H  Return  if  done. 

127^H  -  I276H     Go  put  decimal  point  and  commas  into  the  input 
buffer. 

1277H  -   I278PI    Save  a  zero  character  at  the  location  of  the  input 
buffer  pointer  in  register  pair  HL. 

I279H  Bump  the  input  buffer  pointer  in  register  pair  HL. 

127AH  Decrement  the  counter  in  register  A. 

127BH  -   127CH    Jump. 

I27DH  Load  register  A  with  the  value  in  register  E. 

12  7  EH  Add  the  number  of  digits  in  register  D  to  th.e  value  in 

register  A. 

I27FH  Bump  the  adjusted  value  in  register  A. 

I28OH  Load  register  B  with  the  adjusted  value  ia  register 

A. 

1281H  Bump  the  value  in  register  A. 

1282H  -  1283H    Subtract  three  from  the  adjusted  value  in  register  A. 

128^H  -  1285H    Loop  till  the  value  in  register  A  is  divided  by  three. 

1286H  "  1287H    Adjust  the  value  in  register  A  for  the  comma  count. 

1288H  Load  register  C  with  the  comma  count  in  r€:gister  A. 

I289H  -  128BH     Load  register  A  with  the  value  of  the  edit  flag. 

128CH  -  128dpi     Check  to  see  if  commas  are  requested. 

12  8  EH  Return  if  commas  are  requested. 

128FH  Zero  the  comma  counter  in  register  C. 

I29OH  Return. 

I29IH  Decrement  the  decimal  point  counter  in  register  B. 

I292H  ~  1293H    Jump  if  the  decimal  point  position  hasn't  been 
reached. 
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129^E  -  1295H  Save  a  decimal  point  at  the  location  of  the  input 
buffer  pointer  in  register  pair  HL. 

I296H  -  I298H  Save  the  address  of  the  decimal  point  position  in 
register  pair  HL. 

I299H  Bump  the  input  buffer  pointer  in  register  pair  HL. 

12 9 AH  Zero  the  comma  counter  in  register  C. 

I29BH  Return. 

I29CH  Decrement  the  comma  counter  in  register  C. 

I29DH  Return  if  this  location  doesn't  need  a  comma. 

I29EH  -  I29FH  Save  a  comma  at  the  location  of  the  input  buffer 
pointer  in  register  pair  HL. 

12A0H  Bump  the  input  buffer  pointer  in  register  pair  HL. 

12A1H  "   12A2H    Set  the  comma  counter  in  register  C  to  three. 
12A3H  Return. 

12A^H  Save  the  value  in  register  pair  DE  on  the  stack. 

12A5H  Go  check  the  current  value  of  the  number  type  flag. 

12A6H  "  12A8H  Jump  if  the  current  value  in  REGl  is  single  preci- 
sion. 

12A9H  Save  the  value  in  register  pair  BC  on  the  stack. 

12AAH  Save  the  value  in  register  pair  HL  on  the  stack. 

12ABH  -  12ADH  Go  move  die  double  precision  value  in  REGl  to 
REG2. 

12AEH  -  12B0H  Load  register  pair  HL  with  the  starting  address  of  a 
double  precision  constant  equal  to  0. 5. 

12B1H  "  12B3H  Go  move  the  double  precision  value  pointed  to  by 
register  pair  HL  to  REGl. 

12Bi|'H  -  12B6H  Go  add  the  double  precision  value  in  REG2  to  the 
double  precision  value  in  REGl.  Return  with  the 
double  precision  result  in  REGl. 

12B7H  Zero  register  A. 

12B8H  -  12BAH   Go  adjust  the  double  precision  result  in  REGL 

12BBH  Get  the  value  from  the  stack  and  put  it  in  register 

pair  HL. 
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12BCH  Get  the  value  from  the  stack  and  put  it  in  register 

pair  BC. 

12BDH  -  12BFH  Load  register  pair  DE  with  the  starting  address  of  a 
series  of  double  precision  constants  for  the  binary  to 
ASCII  conversion. 

12C0H  -  12C1H  Load  register  A  with  the  number  of  times  to  divide 
the  double  precision  value  in  REGl. 

12C2H  -  12C^H   Go  put  a  comma  or  a  decimal  point  into  the  input 

biifer  if  necessary. 

12C5H  Save  the  value  in  register  pair  BC  on  the  stack. 

12C6H  Save  the  value  in  register  pair  AF  on  the  stack. 

12C7H  Save  the  value  in  register  pair  HL  on  the  stack. 

12C8H  Save  the  value  in  register  pair  DE  on  the  stack. 

12C9H  -  12CAH  Load  register  B  with  the  ASCII  value  for  a  zero 
character  minus  one. 

12CBH  Bump  the  ASCII  value  for  the  digit  in  register  B, 

12CCH  Get  the  value  from  the  stack  and  put  it  in  register 

pair  HL. 

12CDH  Save  the  value  in  register  pair  HL  on  the  stack. 

12CEH  -  12D0H  Go  subtract  the  double  precision  value  pointed  to  by 
register  pair  HL  from  tiie  double  precisior,  value  in 
REGL 

12D1H  -  12D2H    Loop  till  the  value  of  the  digit  is  found. 

12D3H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  HL. 

12D^H  -  12D6H  Go  add  the  double  precision  value  pointed  to  by 
register  pair  HL  to  the  double  precision  remainder 
in  REGl.  Return  with  the  correct  remmnder  in 
REGL 

12D7H  Load  register  pair  DE  with  the  starting  address  for 

the  next  double  precision  value  in  register  pair  HL. 

12D8H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  HL. 

12D9H  Save  the  ASCII  value  for  the  digit  in  register  B  at 

the  location  of  the  input  buffer  pointer  in  register 
pair  HL. 

12DAH  Bump  the  input  buffer  pointer  in  register  pair  HL, 
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12DBH  Get  the  value  from  the  stack  and  put  it  in  register 

pair  AF. 

12DCH  Get  the  value  from  the  stack  and  put  it  in  register 

pair  BC. 

12DDH  Decrement  the  counter  value  in  register  A. 

12DEH  -  12DFH   Loop  till  the  ASCII  string  has  been  figured. 

12E0H  Save  the  value  in  register  pair  BC  on  the  stack. 

12E1H  Save  the  value  in  register  pair  HL  on  the  stack. 

12E2H  -   12E4H    Load  register  pair  HL  with  the  starting  address  for 
REGl. 

12E5H  -   12E7H    Go  move  the  value  pointed  to  by  register  pair  HL 
into  REGl  as  a  single  precision  value. 

12E8H  -  12E9H  Jump. 

12EAH  Save  the  value  in  register  pair  BC  on  the  stack. 

12EBH  Save  the  value  in  register  pair  HL  on  the  stack. 

12ECH  ^  12EEH    Go  add  a  single  precision  value  of  0.5  to  the  single 
precision  value  in  REGl, 

12EFH  Bump  the  value  in  register  A. 

12F0H  "  12F2H    Go  convert  the  single  precision  value  in  REGl  to  an 
integer. 

12F3H  -  12F5H    Go  move  the  single  precision  value  in  register  pairs 
BC  and  DE  into  REGL 

12F6H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  HL. 

12F7H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  BC. 

12F8H  Zero  register  A. 

12F9H  -  12FBH    Load  register  pair  DE  with  the  starting  address  for  a 
series  of  integer  values. 

12FCH  Complement  the  Carry  flag. 

12FDH  -  12FFH    Go  put  a  decimal  point  or  a  comma  into  the  input 
buffer  if  necessary. 

130  OH  Save  the  value  in  register  pair  BC  on  the  stack. 

I3OIH  Save  the  value  in  register  pair  AF  on  the  stack. 
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1302H  Save  the  value  in  register  pair  HL  on  the  stack. 

I303H  Save  the  value  in  register  pair  DE  on  the  stack. 

I30Z1-H  -  I306H     Go  move  the  single  precision  value  in  REGl  into 
register  pars  BC  and  DE. 

I307H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  HL. 

I3O8H  "  I309H    Load  register  B  with  the  ASCII  value  for  a  zero 
character  minus  one. 

I3OAH  Bump  the  ASCII  value  from  the  digit  in  reigister  B. 

I3OBH  Load  register  A  with  the  LSB  of  the  single  precision 

value  in  register  E. 

I3OCH  Subtract  the  value  at  the  location  of  the:  memory 

pointer  in  register  pair  HL  from  the  value  of  the  LSB 
of  the  single  precision  value  in  register  A, 

I3ODH  Load  register  E  with  the  adjusted  LSB  of  the  single 

precision  value  in  register  A. 

I3OEH  Bump  the  value  of  the  memory  pointer  in  register 

pair  HL. 

I3OFH  Load  register  A  with  the  NMSB  of  the  sir.gle  preci- 

sion value  in  register  D. 

I3IOH  Subtract  the  value  at  the  location  of  the  memory 

pointer  in  register  pair  HL  from  the  value  of  the 
NMSB  of  the  single  precision  value  in  r€:gister  A. 

I3IIH  Load  register  D  with  the  adjusted  NMSB  of  the 

single  precision  value  in  register  A. 

I312H  Bump  the  value  of  the  memory  pointer  in  register 

pair  HL. 

1313H  Load  register  A  with  the  MSB  of  the  single  precision 

value  in  register  C. 

131^H  Subtract  the  value  at  the  location  of  the  memory 

pointer  in  register  pair  HL  from  the  value  of  the 
MSB  of  the  single  precision  value  in  register  A. 

I315H  Load  register  C  with  the  adjusted  MSB  of  the  single 

precision  value  in  register  A. 

I3I6H  Decrement  the  value  of  the  memory  jDointer  in 

register  pair  HL. 

I317H  Decrement  the  value  of  the  memory  pointer  in 

register  pair  HL. 
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1318H  -  1319H    Loop  until  the  ASCII  value  for  the  digit  has  been  fig- 
ured. 


I3IAH  -  I3ICH    Go  add  the  value  at  the  location  of  the  memory 
pointer  in  register 
pairs  BC  and  DE. 


pointer  in  register  pair  HL  to  the  value  in  register 


I3IDH  Bump  the  value  of  the  memory  pointer  in  register 

pair  HL. 

I3IEH  -  I32OH    Go  save  the  single  precision  remainder  in  register 
pairs  BC  and  DE. 

I32IH  Load  register  pair  DE  with  the  address  of  the  next 

value  to  divide  the  current  value  in  REGl  by. 

I322H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  HL. 

I323H  Save  the  ASCII  value  for  the  digit  in  register  B  at  the 

location  of  the  input  buffer  pointer  in  register  pair 
HL. 

13  2^H  Bump  the  value  of  the  input  buffer  pointer  in  register 

pair  HL. 

I325H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  AF. 

I326K  Get  the  value  fi-om  the  stack  and  put  it  in  register 

pair  BC. 

I327H  -  I328H    Loop  till  the  integer  portion  is  found. 

132  9H  Bump  the  value  of  the  memory  pointer  in  register 

pair  DE. 

I32AH  Bump  the  value  of  the  memory  pointer  in  register 

pair  DE. 

I32BH  -  I32CH    Load  register  A  with  the  number  of  digits  for  the 
ASCII  string  to  be  figured. 

132DH  -  132EH    Jump. 

I32FH  Save  the  value  in  register  pair  DE  on  the  stack. 

133  OH  "  1332H     Load  register  pair  DE  with  the  starting  address  of 

the  integer  value  for  figuring  the  ASCII  string. 

1333H  -  133^H     Load  register  A  with  the  number  of  digits  for  the 
ASCII  string  to  be  figured. 

1335H  -  1337H     Go  put  a  decimal  point  or  a  comma  into  the  input 
buffer  if  necessary. 

I338H  Save  the  value  in  register  pair  BC  on  the  stack. 
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1339H  Save  the  value  in  register  pair  AF  on  the  stack. 

133AH  Save  the  value  in  register  pair  HL  on  the  stack. 

133BH  ^^^  register  pair  HL  with  the  value  of  th<j  memory 

pointer  in  register  pair  DE. 

13  3  CH  Load  register  C  with  the  LSB  for  the  integer  value  at 

the  location  of  the  memory  pointer  in  repster  pair 
HL. 

133DH  Bump  the  value  of  the  memory  pointer  in  register 

pair  HL, 

133EH  Load  register  B  with  the  MSB  for  the  integer  value 

at  the  location  of  the  memory  pointer  in  rei^ister  pair 
HL. 

133FH  Save  the  integer  value  in  register  pair  BC  on  the 

stack. 

13^0H  Bump  the  value  of  the  memory  pointer  i:a  register 

pair  HL. 

I34IH  Exchange  the  integer  value  on  the  stack  with  the 

value  of  the  memory  pointer  in  register  pair  HL. 

13^2H  Load  register  pair  DE  with  the  integer  value  in 

register  pair  HL. 

13^3H  -  13^5H    Load  register  pair  HL  with  the  integeir  value  in 
REGl. 

1346H  -  13^7H    Load  register  B  with  the  ASCII  value  for  a  zero 
character  minus  one. 

13^8H  Bump  the  ASCII  value  for  the  digit  in  register  B. 

13^9H  Load  register  A  with  the  LSB  of  the  integer  value  in 

register  L. 

13^AH  Subtract  the  value  of  tlie  LSB  of  the  integer  value  in 

register  E  from  the  value  of  the  LSB  of  the  integer 
value  in  register  A. 

134BH  Load  register  L  with  the  adjusted  value  of  i:he  LSB  of 

the  integer  value  in  register  A. 

ljl4.Q}{  Load  register  A  with  the  value  of  the  IViSB  of  the 

integer  value  in  register  H. 

1  -^ZLnM  Subtract  the  MSB  of  the  integer  value  in  register  D 

ijHrun  ^^^  ^^  ^^jyg  ^j  ^^  ^53  ^f  ^Yie  integer  value  in 

register  A. 

IJkEE  Load  register  H  with  the  adjusted  value  cf  the  MSB 

of  the  integer  value  in  register  A. 
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13^FH  -  I35OH    Loop  till  the  ASCII  value  for  the  digit  has  been 
figured. 

I35IH  Add  the  integer  value  in  register  pair  DE  to  the 

integer  value  in  register  pair  HL. 

I352H  -  135^H    Save  the  integer  remainder  in  register  pair  HL  in 
REGL 

1355H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  DE. 

I356H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  HL, 

1357H  Save  the  ASCII  value  for  the  digit  in  register  B  at  the 

location  of  the  input  buffer  pointer  in  register  pair 
HL. 

I358H  Bump  the  value  of  the  input  buffer  pointer  in  register 

pair  HL. 

I359H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  AF, 

135AH  Get  the  value  from  the  stack  and  put  it  in  register 

pair  BC. 

135BH  Decrement  the  value  of  the  counter  in  register  A. 

135CH  -  135DH    Loop  till  all  of  the  digits  have  been  figured. 

135SH  -  I36OH    Go  put  a  decimal  point  or  comma  into  the  input  buffer 
if  necessary. 

I36IH  Save  the  value  in  register  A  at  the  location  of  the 

input  buffer  pointer  in  register  pair  HL. 

I362H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  DE. 

1363H  Return. 

136^H  -  I36BH    DOUBLE  PRECISION 

CONSTANT  STORAGE  LOCATION 

1364H  -  I36BH    A  double  precision  constant  equal  to  IE  10  is  stored 
here. 

I36CH  -   1373H    DOUBLE  PRECISION 

CONSTANT  STORAGE  LOCATION 

I36CH  -   1373H    A  double  precision  constant  equal  to  9. 9921E14  is 
stored  here. 

137^H  -   137BH    DOUBLE  PRECISION 

CONSTANT  STORAGE  LOCATION 
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137^H  "   137BH    A  double  precision  constant  equal  to  1E16  is  stored 
here. 

137CH  -   1383H    DOUBLE  PRECISION 

CONSTANT  STORAGE  LOCATION 

137CH  -  1383H    A  double  precision  constant  equal  to  0.5  is  stored 
here. 

138^H  -  138BH    DOUBLE  PRECISION 

CONSTANT  STORAGE  LOCATION 

138to  -   138BH    A  double  precision  constant  equal  to  1E16  is  stored 
here. 

138CH  "  13D1H    DOUBLE  PRECISION 

INTEGER  CONSTANT  STORAGE  LOCATION 

13D2H  -  13D9H    SINGLE  PRECISION 

INTEGER  CONSTANT  STORAGE  LOCATION 

13DAH  -   13E0H    INTEGER  CONSTANT  STORAGE  LOCATION 

13B1H  -  13E6H    LEVEL  II  BASIC  MATH  ROUTINE 

13E2H  "  13E^H    Load  register  pair  HL  with  the  return  address. 

13E5H  Exchange  the  value  of  the  jump  address  on  the  stack 

with  the  value  of  the  return  address  in  register  pair 
HL. 

13E6H  Jump  to  the  address  in  register  pair  HL. 

13E7H  -   13F1H     LEVEL  II  BASIC  SQUARE  ROOT  ROUTINE 

13E7H  -   13E9H     Go  move  the  current  value  in  REGl  on  to  the  stack. 

13EAH  -   13ECH     Load  register  pair  HL  with  the  starting  address  of  a 
single  precision  constant  equal  to  0. 5. 

13EDH  -   13EE'H     Go  move  the  single  precision  constant  pointed  to  by 
register  pair  HL  into  REGl. 

13F0H  -   13F1H    Jump. 

13F2H  -  1^78H    LEVEL  II  BASIC  X  f  Y  ROUTINE 

13F2H  -  13F^H     Go  convert  the  value  in  REGl  to  single  precision. 

13F5H  Get  the  exponent  and  the  MSB  of  the  single  preci- 

sion value  from  the  stack  and  put  it  in  register  pair 
EC. 

13F6H  Get  the  NMSB  and  the  LSB  of  the  single  precision 

value  from  the  stack  and  put  it  in  register  pair  DE. 
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13F7H  -  13F9H  Go  check  the  sign  for  the  single  precision  value  in 
REGl. 

i3FAH  Load  register  A  with  the  value  of  the  exponent  of  the 

single  precision  value  in  register  B. 

13FBH  -  13FCH  Jump  ifthe  single  precision  value  in  REGl  is  equal  to 
zero. 

13FDH  "  13FFH  Jump  if  the  single  precision  value  in  REGl  is  posi- 
tive. 

140  OH  Check  to  see  if  the  single  precision  value  in  register 

pairs  EC  and  DE  is  equal  to  zero. 

I^OIH  -  1^03H  Go  to  the  Level  11  BASIC  error  routine  and  display  a 
/O  ERROR  message  if  the  single  precision  value  in 
REGl  is  negative  and  the  single  precision  value  in 
register  pairs  BC  and  DE  is  equal  to  zero. 

1404H  Check  to  see  if  the  single  precision  value  in  register 

pairs  BC  and  DE  is  equal  to  zero. 

1^05H  -  1^07H  Jump  if  the  single  precision  value  in  register  pairs 
BC  and  DE  is  equal  to  zero. 

1408H  Save  the  NMSB  and  the  LSB  of  the  single  precision 

value  in  register  pair  DE  on  the  stack. 

^^^9H  Save  the  exponent  and  the  MSB  of  the  single  preci- 

sion value  in  register  pair  BC  on  the  stack. 

l^OAH  Load  register  A  with  the  value  of  the  MSB  of  the 

single  precision  value  in  register  C. 

l^OBH  -  140CH  Mask  the  MSB  of  the  single  precision  value  in 
re^ster  A. 

140DH  -  l^OFH  Go  move  the  single  precision  value  in  REGl  into 
register  pairs  BC  and  DE. 

iZflOH  -  1^12H  Jump  if  the  single  precision  value  on  the  stack  is 
positive. 

1^1 3  H  Save  the  NMSB  and  the  LSB  of  the  single  precision 

value  in  register  pair  DE  on  the  stack. 

l^l^H  Save  the  exponent  and  die  LSB  of  the  single  preci- 

sion value  in  register  pair  BC  on  the  stack. 

Ih-ISH  -  l4l7H  Go  figure  the  integer  portion  of  the  single  precision 
value  in  REGl. 

1^18  H  Get  the  exponent  and  the  MSB  of  the  single  preci- 
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sion  value  from  the  stack  and  put  it  in  register  pair 
BC. 

141 9H  Get  the  NMSB  and  the  LSB  of  the  single  precision 

value  from  the  stack  and  put  it  in  register  pair  DE. 

I^IAH  Save  the  value  in  register  pair  AF  on  the  stack. 

I^IBH  -  I^IDH  Go  compare  the  single  precision  value  in  register 
pairs  BC  and  DE  to  the  single  precision  value  in 
REGL 

I^IEH  Get  the  value  from  the  stack  and  put  it  in  register 

pair  HL. 

I^IFH  Load  register  A  with  the  value  of  the  exponent  in 

register  H. 

IkZOE  Put  bit  zero  of  the  exponent  in  register  A  into  the 

Carry  flag. 

1421H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  HL 

1422H  -  1424H  Save  the  value  in  register  pair  HL  as  the  exponent 
and  the  MSB  of  the  single  precision  value  in  REGl. 

1425H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  HL. 

1426H  -  1428H  Save  the  value  in  register  pair  HL  as  the  NMSB  and 
the  LSB  of  the  single  precision  value  in  F'EGl. 

1^2  9H  "   142BH    Jump  if  the  exponent  is  an  odd  number. 

142CH  -  142EH    Go  invert  the  value  of  the  exponent. 

142FH  Save  the  NMSB  and  the  LSB  of  the  single  ]5recision 

value  in  register  pair  DE  on  the  stack. 

1J^30H  Save  the  exponent  and  the  MSB  of  the  single  preci- 

sion value  in  register  pair  BC  on  the  stack. 

1431H  -  1433H    Go  figure  the  LOG  for  the  current  value  in  REGL 

143  4H  Get  the  exponent  and  the  MSB  of  the  single  preci- 

sion value  from  the  stack  and  put  it  in  register  pair 
BC. 

143  5H  Get  the  NMSB  and  the  LSB  of  the  single  precision 

from  the  stack  and  put  it  in  register  pair  DE. 

I436H  -  I438H  Go  multiply  the  single  precision  value  in  register 
pairs  BC  and  DE  by  the  current  single  precision 
value  in  REGL 
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1^3  9H  -  1^3BH  Go  move  the  single  precision  value  in  REGl  on  to 

the  stack. 

1^3  CH  -  1^3  EH  Load  register  pair  BC  with  the  exponent  and  MSB  of 
a  single  precision  constant. 

1^3  FH  -  I^^IH  Load  register  pair  DE  with  the  NMSB  and  tiieLSB 
of  a  single  precision  constant.  Register  pairs  BC  and 
DE  are  now  equal  to  a  single  precision  constant  of 
1.442695. 

14^2H  -  1^4^H  Go  multiply  the  single  precision  value  in  REGl  by 
the  single  precision  constant  in  register  pairs  BC 
andDE. 

l^^-SH  -  1^^7H  Load  register  A  with  the  value  of  the  exponent  for 
the  single  precision  value  in  REGl. 

14^8H  -  1^^9H  Check  to  see  if  the  integer  portion  of  the  single 
precision  value  in  REGl  uses  more  than  7  bits  of 
precision. 

l^^AH  -  l^^CH  Jump  if  the  single  precision  value  in  REGl  uses 
more  than  7  bits  of  precision  for  it's  integer  portion. 

l4toH  -  l^^FH  Go  get  the  integer  portion  of  the  value  in  REGl  and 
return  with  it  in  register  A. 

1450H  -  1^51H  Adjust  the  value  in  register  A. 

1^52H  -  1^53H   Adjust  the  value  in  register  A. 

1^5^H  -  1^56H  Go  check  the  exponent  for  the  single  precision  value 
in  REGl  if  the  value  in  register  A  has  overflowed. 

1^57  H  Save  the  value  in  register  pair  AF  on  the  stack. 

14-58}!  -  1^5AH  Load  register  pair  HL  with  the  starting  address  for  a 
single  precision  constant  equal  to  1.0. 

l^SBH  -  l^SDH  Go  add  the  single  precision  constant  pointed  to  by 
register  pair  HL  to  the  current  value  in  REGl. 

1^5SH  -  1^60H  Go  multiply  the  single  precision  value  in  REGl  by 
0.693147. 

1^6  IH  Get  the  value  from  the  stack  and  put  it  in  register 

pair  AF. 

1^6  2H  Get  the  exponent  and  the  MSB  of  the  single  preci- 

sion value  from  the  stack  and  put  it  in  register  pair 
BC. 

1^63H  Get  the  NMSB  and  the  LSB  of  the  single  precision 

value  from  the  stack  and  put  it  in  register  pair  DE. 
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1464H  Save  the  value  in  register  pair  AF  on  the;  stack. 

1465H  -  1^67PI  Go  subtract  the  single  precision  value  in  REGl  from 
the  single  precision  value  in  register  pairs  BC  and 
DE.  Return  with  the  result  in  REGl. 

1^68H  -  146AH  Go  make  the  current  single  precision  value  in  REGl 
positive. 

1^6BH  -  1^6DH  Load  register  pair  HL  with  the  starting  address  for  a 
series  of  computations. 

146 EH  "   I47OH     Go  do  the  series  of  computations. 
I47IH  -  1473H    Load  register  pair  DE  with  zero. 

1j4'74H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  BC. 

1475H  Load  register  C  with  zero. 

li^76H  -  1478H    Jump. 

1479H  -  1499H     SINGLE  PRECISION 

CONSTANT  STORAGE  LOCATION 

1^7  9H  The  number  of  single  precision  constants  which  fol- 

low is  stored  here. 

147AH  -   147DH     A  single  precision  constant  equal  to 
-0.00014171607  is  stored  here. 

147EH  -  1481H  A  single  precision  constant  equal  to  0.00132988204 
is  stored  here. 

148  2H  -   1485H     A  single  precision  constant  equal  to 
-0.00830136052  is  stored  here. 

1486H  -  1489H  A  single  precision  constant  equal  to  0.04165735095 
is  stored  here. 

148AH  -   148DH    A  single  precision  constant  equal  to 
-0.16666531543  is  stored  here. 

148  EH  -  I49IH  A  single  precision  constant  equal  to  0.49999996981 
is  stored  here. 

I492H  -  1495H  A  single  precision  constant  equal  to  - 1.0  is  stored 
here. 

I496H  -  I499H  A  single  precision  constant  equal  to  1.0  is  stored 
here. 

149AH  -   14C8H     LEVEL  II  BASIC  MATH  ROUTINE 

I49AH  -  149CH  Go  move  the  single  precision  value  in  REGl  on  to 
the  stack. 
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1^9DH  -  1^9FH   Load  register  pair  DE  with  the  return  address. 

l^AOH  Save  the  return  address  in  register  pair  DE  on  the 

stack. 

I^AIH  Save  the  memory  pointer  in  register  pair  HL  on  the 

stack. 

14A2H  "   1^A4H    Go  move  the  single  precision  value  in  REGl  into 
register  pairs  BC  and  DE, 

14A5H  -   14A7H    Go  square  the  single  precision  value  in  REGl  into 
register  pairs  BC  and  DE. 

14a8H  Get  the  value  of  the  memory  pointer  from  the  stack 

and  put  it  in  register  pair  HL. 

14A9H  -   l^ABH   Go  move  the  single  precision  value  in  REGl  on  to 
the  stack. 

l^ACH  Load  register  A  with  the  number  of  values  to  be 

figured  at  the  location  of  the  memory  pointer  in 
register  pair  HL. 


14ADH 

14AEH  -  14B0H 

1^B2H 

14B3H 

l^B^H 
1^B5H 
1^B6H 
1^B7H 
1^B8H 
14B9H 
l^BAH 


Bump  the  value  of  the  memory  pointer  in  register 
pair  HL. 

Go  move  the  single  precision  value  at  the  location  of 
the  memory  pointer  in  register  pair  HL  into  REGl. 

Get  the  number  of  values  to  be  figured  from  the  stack 
and  put  it  in  register  A. 

Get  the  exponent  and  the  MSB  of  the  single  preci- 
sion value  from  the  stack  and  put  it  in  register  pair 
BC. 

Get  the  NMSB  and  the  LSB  of  the  single  precision 
value  from  the  stack  and  put  it  in  register  pair  DE. 

Decrement  the  value  of  the  counter  for  the  value  to 
be  figured  in  register  A. 

Return  if  the  series  of  computations  has  been  com- 
pleted. 

Save  the  NMSB  and  the  LSB  of  the  single  precision 
value  in  register  pair  DE  on  the  stack. 

Save  the  ejcponent  and  the  MSB  of  the  single  preci- 
sion value  in  register  pair  BC  on  the  stack. 

Save  the  value  of  the  counter  in  register  A  on  the 
stack. 

Save  the  value  of  the  memory  pointer  in  register  pair 
HL  on  the  stack. 
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l^BBH  -  l^BDH  Go  multiply  the  single  precision  value  in  register 
pairs  BC  and  DE  by  the  single  precision  value  in 
REGl. 

l^BEH  Get  the  value  of  the  memory  pointer  from  the  stack 

and  put  it  in  register  pair  HL. 

l^BFH  -  I^CIH  Go  put  the  single  precision  value  at  the  location  of 
the  memory  pointer  in  register  pair  HL  in  register 
pairs  BC  and  DE. 

IkOZK  Save  the  value  of  the  memory  pointer  in  register  pair 

HL  on  the  stack. 

1^C3H  -  1^C5H  Go  add  the  single  precision  value  in  REGl  to  the 
single  precision  value  in  register  pairs  BC  and  DE. 
Return  with  the  result  in  REGl. 

X/f  c6H  Get  the  value  of  the  memory  pointer  from  iiie  stack 

and  put  it  in  register  pair  HL. 

1^C7H  "   l^CSH  Jump. 

lil^C9H  -  15^0H   LEVEL  O  BASIC  RND  ROUTINE 

1^C9H  -  I'^'CBH  Go  convert  the  current  value  in  REGl  to  aa  integer 
and  return  with  the  integer  result  in  register  pair 
HL. 

iZf  CCH  Load  register  A  with  the  value  of  the  MSB  for  the 

integer  value  in  register  H. 

li^-CDH  Check  to  see  if  the  integer  value  in  register  pair  HL 

is  negative. 

l^CEH  -  ItoOH  Got  to  the  Level  II  BASIC  error  routine  and  display  a 
FC  ERROR  message  if  the  integer  value  m  register 
pair  HL  is  negative. 

I^DIH  Check  to  see  if  the  integer  value  in  register  pair  HL 

is  equal  to  zero. 

lto2H  -  Ito^H  Jump  if  the  integer  value  in  register  pair  HL  is  equal 
to  zero. 

l/fD5H  Save  the  integer  value  in  register  pair  liL  on  the 

stack. 

lto6H  -  l^DSH  Go  get  a  RND(O)  value  and  return  with  tlie  single 
precision  result  in  REGl. 

lto9H  "  ItoBH  Go  move  the  single  precision  value  in  FEGl  into 
register  pairs  BC  and  DE. 

l^D  CH  Load  register  pair  HL  with  the  NMSB  and  the  LSB  of 

the  single  precision  value  in  register  pair  DE. 
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1  toDH  Exchange  the  integer  value  on  the  stack  with  NMSB 

and  the  LSB  of  the  single  precision  value  in  register 
pair  HL. 

14DEH  Save  the  exponent  and  the  MSB  of  the  single  preci- 

sion value  in  register  pair  BC  on  the  stack. 

ItoFH  "  I^EIH  Go  convert  the  integer  value  in  register  pair  HL  to 
single  precision  and  return  with  the  result  in  REGl. 

14E2H  Get  the  exponent  and  the  MSB  of  the  single  preci- 

sion value  from  the  stack  and  put  it  in  register  pair 
BC. 

1^E3H  Get  the  NMSB  and  the  LSB  of  the  single  precision 

value  from  the  stack  and  put  it  in  register  pair  DE. 

l^-Eto  -  1^E6H  Go  multiply  the  single  precision  value  in  register 
pairs  BC  and  DE  by  the  single  precision  value  in 
REGl.  Return  with  the  single  precision  result  in 
REGl. 

1^E7H  -  1^E9H  Load  register  pair  HL  with  the  starting  address  of  a 
single  precision  constant  equal  to  1.0. 

l^EAH  -  l^ECH  Go  add  the  single  precision  constant  pointed  to  by 
register  pair  HL  to  the  single  precision  value  in 
REGl.  Return  with  the  single  precision  result  in 
REGL 

l^EDH  -   l^EFH  Jump. 

14fOH  -  1^F2H  Load  register  pair  HL  with  the  starting  address  for  a 
table  used  for  figuring  random  numbers. 

1^F3H  Save  the  value  of  the  memory  pointer  in  register  pair 

HL  on  the  stack. 

14f^H  -  1^F6H  Load  register  pair  DE  with  zero. 

1^F7H  Load  register  C  with  zero. 

14f8H  -  1^F9H  Load  register  H  with  the  counter  value. 

l^FAH  -  l^FBH  Load  register  L  with  a  counter  value. 

l^FCH  Exchange  the  counters  in  register  pair  HL  with  the 

NMSB  and  the  LSB  of  the  random  number  in  regis- 
ter pair  DE. 

l^FDH  Multiply  the  NMSB  and  the  LSB  of  the  random 

number  in  register  pair  HL  by  two. 

l^FEH  Exchange  the  NMSB  and  the  LSB  of  the  random 

number  in  register  pair  HL  with  the  counters  in 
register  pair  DE. 
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l^FFH 
I50OH 

I5OIH 
1502H 
I503H 

I50to 
1505H 

1506H 


Load  register  A  with  the  MSB  of  the  random  number 
in  register  C. 

Multiply  the  MSB  of  the  random  number  in  register 
A  by  two. 

Load  register  C  with  the  adjusted  MSB  of  the  ran- 
dom number  in  register  A. 

Exchange  the  counter  values  in  register  pair  HL 

with  the  value  of  the  memory  pointer  on  the  stack. 

Load  register  A  with  the  value  at  the  location  of  the 
memory  pointer  in  register  pair  HL. 

Multiply  the  value  in  register  A  by  two. 

Save  the  adjusted  value  in  register  A  at  the  location 
of  the  memory  pointer  in  register  pair  HL. 

Exchange  the  memory  pointer  in  register  pair  HL 
with  the  counter  values  on  the  stack. 


I507H  -  I509H  Jump  if  the  table  value  hasn't  overflowed. 

I5OAH  Save  the  counter  values  in  register  pair  HL  on  the 

stack. 

I5OBH  -  I5ODH    Load  registerpairHL  with  the  NMSB  and  the  LSB  of 
the  random  number  seed. 

1 5  OEH  Add  the  NMSB  and  the  LSB  of  the  random  namber  in 

register  pair  DE  to  the  NMSB  and  the  LSB  of  the 
random  number  seed  in  register  pair  HL. 

I5OFH  Load  register  pair  DE  with  the  adjusted  NMSB  and 

LSB  of  the  random  number  in  register  pair  HL. 

I5IOH  "  1512H    Load  register  A  with  the  MSB  of  the  random  number 

seed. 

I513H  Add  the  MSB  of  the  random  number  in  register  C  to 

the  MSB  of  the  random  number  seed  in  reigister  A. 

151^  Load  register  C  with  the  adjusted  MSB  of  the  ran- 

dom number  in  register  A. 

I515H  Get  the  counter  values  from  the  stack  and  put  it  in 

register  pair  HL. 

I5I6H  Decrement  the  counter  in  register  L. 

I517H  "  I5I9H    Loop  till  the  above  has  been  done  eight  times. 

I5IAH  Exchange  tlie  counter  values  in  register  pair  HL 

v;dth  the  memory  pointer  on  the  stack. 
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151BH  Bump  the  value  of  the  memory  pointer  in  register 

pair  HL. 

I5ICH  Exchange  the  value  of  the  memory  pointer  in  regis- 

ter pair  HL  with  the  counter  value  on  the  stack. 

I5IDH  Decrement  the  counter  value  in  register  H. 

I5IEH  -  I52OH    Loop  till  the  random  number  has  been  figured 

I52IH  Get  the  value  from  the  stack  and  put  it  in  register 

pair  HL. 

I52ZK  -  1524H    Load  register  pair  HL  with  the  value  to  reseed  the 
random  number  seed. 

I525H  Add  the  value  in  register  pair  HL  to  the  NMSB  and 

the  LSB  of  the  random  number  in  register  pair  DE. 

I526H  "  I528H    Save  the  adjusted  value  in  register  pair  HL  as  the 
NMSB  and  the  LSB  of  the  random  number  seed. 

I529H  "  I52BH    Go  set  the  current  number  type  to  single  precision. 

I52CH  -  I52DH    Load  register  A  with  a  value  to  reseed  the  random 
number  seed. 

I52SH  Add  the  MSB  of  the  random  number  in  register  C  to 

the  value  in  register  A. 

152FH  -   I53IH     Save  the  adjusted  value  in  register  A  as  the  MSB  of 
the  random  number  seed. 

1532H  Load  register  pair  DE  with  the  NMSB  and  the  LSB 

of  the  random  number  in  register  pair  HL, 

1533H  -  153to    Load  register  B  with  a  value  for  the  sign  and  the 
exponent. 

1535H  -  1537H    Load  register  pair  HL  with  the  address  for  the  sign 
value  storage  location. 

I538H  Save  the  sign  result  in  register  B  at  the  location  of 

the  memory  pointer  in  register  pair  HL. 

153  9H  Decrement  the  value  of  the  memory  pointer  in 

register  pair  HL. 

I53AH  Save  the  value  of  the  exponent  in  register  B  at  the 

location  of  the  memory  pointer  in  register  pair  HL, 

153BH  Load  register  C  with  the  value  of  the  MSB  for  the 

single  precision  random  number  in  register  A. 

153CH  -   153DH    Zero  the  value  of  the  exponent  in  register  B. 

153EH  -   15^0H    Jump. 
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15^1H  -  15^H   LEVEL  II  BASIC  COS  ROUTINE 

15^1H  -  15^3H  Load  register  pair  HL  with  the  starting  address  of  a 
single  precision  constant  equal  to  L 57079637029. 

15^4-H  -  15^H  Go  add  the  single  precision  constant  poir.ted  to  by 
register  pair  HL  to  the  single  precision  value  in 
REGL 

15^7H  -  158AH   LEVEL  II  BASIC  SIN  ROUTINE 

15^7H  -  15^9H  Go  move  the  current  single  precision  value  in  REGl 
on  to  the  stack. 

IS^AH  -  15^CH  Load  register  pair  BC  with  the  exponent  and  the 
MSB  of  a  single  precision  constant. 

15toH  -  15^FH  Load  register  pair  DE  with  the  NMSB  and  the  LSB 
of  a  single  precision  constant.  Register  pairs  BC  and 
DE  now  hold  a  single  precision  constant  equal  to 
6.2831855. 

I55OH  -  I552H  Go  move  the  single  precision  value  in  register  pairs 
BC  and  DE  into  REGl. 

1553H  Get  the  exponent  and  the  MSB  of  the  single  preci- 

sion value  from  the  stack  and  put  it  in  re^^ster  pair 
BC. 

155^H  Get  the  NMSB  and  the  LSB  of  the  single  precision 

value  from  the  stack  and  put  it  in  register  pair  DE. 

1555H  «  1557H  Go  divide  the  single  precision  value  in  reg:.ster  pairs 
BC  and  DE  by  the  single  precision  value  in  REGl. 
Return  with  the  single  precision  result  in  REGL 

I558H  -  155AH  Go  move  the  single  precision  result  in  REGl  onto 
the  stack. 

155BH  -  155BH  Go  figure  the  integer  portion  for  the  single  precision 
value  in  REGl. 

155EH  Get  the  exponent  and  the  MSB  of  the  single  preci- 

sion value  from  the  stack  and  put  it  in  re^pster  pair 
BC. 

155FH  Get  the  NMSB  and  the  LSB  of  the  single  precision 

value  from  the  stack  and  put  it  in  register  pair  DE. 

I56OH  -  I562H  Go  subtract  the  single  precision  value  in  REGl  from 
the  single  precision  value  in  register  pairs  BC  and 
DE.  Return  with  the  result  in  REGL 

I563H  -  I565H  Load  register  pair  HL  with  the  starting  address  of  a 
single  precision  constant  equal  to  0.25. 

I566H  -  I568H   Go  subtract  the  single  precision  value  in  FlEGl  from 
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the  single  precision  constant  pointed  to  by  register 
pair  HL.  Return  with  the  result  in  REGl. 

I569H  -  I56BH  Go  check  the  sign  for  the  single  precision  value  in 
REGL 

I56CH  Set  the  Carry  flag. 

I56DH  -  I56FH  Jump  if  the  single  precision  value  in  REGl  is  posi- 
tive. 

157 OH  "  I572H  Go  add  .5  to  the  single  precision  value  in  REGl. 
Return  vidth  the  result  in  REGl. 

1573H  -  1575H  Go  check  the  sign  for  the  single  precision  value  in 
REGL 

I576H  Test  the  value  of  the  sign  test  in  register  A. 

1577H  Save  the  value  in  register  pair  AF  on  the  stack. 

I578H  -  157AH  Go  adjust  the  sign  for  the  single  precision  value  in 
REGl  if  necessary. 

157BH  "  157DH  Load  register  pair  HL  with  the  starting  address  of  a 
single  precision  constant  equal  to  0.25. 

157HH  -  I58OH  Go  add  the  single  precision  constant  pointed  to  by 
register  pair  HL  to  the  single  precision  value  in 
REGl.  Return  with  the  result  in  REGL 

I58IH  Get  the  value  from  the  stack  and  put  it  in  register 

pair  AF. 

1582H  -   158^H  Jump  if  the  Carry  flag  wasn't  set  from  above. 

1585H  -  I587H  Load  register  pair  HL  with  the  starting  address  for  a 
series  of  single  precision  values  for  a  set  of  compu- 
tations. 

I588H  "   I58AH   Go  do  the  computations. 

158BH  -  158  EH    SINGLE  PRECISION 

CONSTANT  STORAGE  LOCATION 

I58BH  -  158EH  A  single  precision  constant  equal  to  L 57079637029 
is  stored  here. 

158FH  -   1592H    SINGLE  PRECISION 

CONSTANT  STORAGE  LOCATION 

I58FH  "  I592H  A  single  precision  constant  equal  to  0.25  is  stored 
here. 

1593H  -  15A7H    SINGLE  PRECISION 

CONSTANTS  STORAGE  LOCATION 
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1593H  The  number  of  single  precision  constants  which  fol- 

lows is  stored  here. 

159^H  -   1597H    A  single  precision  constant  equal  to  39.7106704708 
is  stored  here. 

I598H  "  I59BH    A  single  precision  constant  equal  to 
-76.5749816893  is  stored  here. 

I59CH  «   I59FH    A  single  precision  constant  equal  to  81.6022338865 
is  stored  here. 

15A0H  -  15A3H    A  single  precision  constant  equal  to 
-41.3416748045  is  stored  here. 

15A^H  -  15A7H    A  single  precision  constant  equal  to  6. 28318500497 
is  stored  here. 

15A8H  -  15BCH    LEVEL  II  BASIC  TAN  ROUTINE 

15A8H  -  15AAH    Go  move  the  single  precision  value  in  RJiGl  on  to 
the  stack. 

15ABH  -  15ADH    Go  figure  the  SIN  for  the  single  precision  value  in 
REGl.  Return  with  the  result  in  REGl. 

15AEH  Get  the  exponent  and  the  MSB  for  the  single  preci- 

sion value  on  the  stack  and  put  it  in  register  pair  BC. 

15AFH  Get  the  NMSB  and  the  LSB  of  the  single  precision 

value  on  the  stack  and  put  it  in  register  pair  HL. 

15B0H  -  15B2H    Go  move  the  single  precision  value  in  REGl  on  to 
the  stack. 

15B3H  Load  register  pair  DE  with  the  NMSB  and  the  LSB 

of  the  single  precision  value  in  register  pair  HL. 

15B^H  -  15B6H    Go  move  the  single  precision  value  in  register  pairs 
BC  and  DE  into  REGl. 

15B7H  "  15B9H    Go  figure  the  COS  for  the  single  precision  value  in 
REGl.  Return  with  the  result  in  REGl. 

15BAH  -  15BCH  Jump. 

15BDH  -  15E2H    LEVEL  II  BASIC  ATN  ROUTME 

15BDH  -  15BFH    Go  check  the  sign  of  the  single  precisicn  value  in 
REGL 

15C0H  -  15C2H    If  the  single  precision  value  in  REGl  is  negative 
then  put  a  return  address  on  the  stack. 

15C3H  -  15C5H    Go  convert  the  negative  number  in  REGl  to  positive 
if  necessary. 
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15C6H  -  15C8H  Load  register  A  with  the  exponent  of  the  single 
precision  value  in  REGL 

15C9H  -  15CAH  Check  to  see  ifthe  single  precision  value  in  REGl  is 
less  than  one. 

15CBH  -  15CCH  Jump  if  the  single  precision  value  in  REGl  is  less 
than  one. 

15CDH  -  15CFH  Load  register  pair  BC  vtrith  an  exponent  and  a  MSB 
for  a  single  precision  value. 

15D0H  Zero  the  NMSB  of  the  single  precision  value  in 

register  D. 

15D1H  Zero  the  LSB  of  the  single  precision  value  in  register 

E. 

15D2H  -  15D^H  Go  divide  the  single  precision  value  in  REGl  into 
the  single  precision  constant  in  register  pairs  BC 
and  DE. 

15D5H  -   15D7H    Load  register  pair  HL  with  die  return  address. 

15D8H  Save  the  value  of  the  return  address  in  register  pair 

HL  on  the  stack. 

15D9H  -  15DBH  Load  register  pair  HL  with  the  starting  address  for  a 
series  of  single  precision  numbers  for  a  set  of  com- 
putations. 

15D0K  -  15DEH    Go  do  the  set  of  computations. 

15jDFH  -  15E1H  Load  register  pair  HL  vdth  the  starting  address  of  a 
single  precision  constant  equal  to  1.57079637029. 

15E2H  Return. 

15E3H  -  1607H     SINGLE  PRECISION 

CONSTANTS  STORAGE  LOCATION 

15E3H  The  number  of  single  precision  constants  which  fol- 

lows is  stored  here. 

15Bto  -  15E7H  A  single  precision  constant  equal  to  0.00286622549 
is  stored  here. 

15E8H  -  15EBH    A  single  precision  constant  equal  to 
-0.01616573699  is  stored  here. 

15ECH  -  15EFH  A  single  precision  constant  equal  to  0.04290961441 
is  stored  here. 

15F0H  -  15F3H    A  single  precision  constant  equal  to  0.07528963666 

is  stored  here. 
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15F^H  -"  15F7H  A  single  precision  constant  equal  to  0.10656264407 
is  stored  here. 

15F8H  -   15FBH   A  single  precision  constant  equal  to 
"0.14208900905  is  stored  here. 

15FCH  -  15FFH  A  single  precision  constant  equal  to  0. 19993549561 
is  stored  here. 

I6OOH  -  I603H    A  single  precision  constant  equal  to 
-0.33333146561  is  stored  here. 

160^H  -  I6O7H  A  single  precision  constant  equal  to  1.0  is  stored 
here. 

1608H  "  18C8H  LIST  OF  BASIC  RESERVED  WORDS,  TO- 
KENS,  AND  ENTRY  LOCATIONS  AS  FOL- 
LOWS: 

Reserved  words,  and  their  tokens,  and  thedr  entry 
points. 


ABS 

D9 

0977 

AND 

D2 

25FD 

ASC 

F6 

2A0F 

ATN 

E4 

15BD 

AUTO 

B7 

2008 

CDBL 

Fl 

OADB 

CHR${ 

F7 

2A1F 

CINT 

EF 

0A7F 

CLEAR 

B8 

1E7A 

CLOAD 

B9 

2C1F 

CLOSE 

A6 

4185 

CLS 

84 

01C9 

CMD 

85 

4173 

CONT 

B3 

1DE4 

COS 

El 

1541 

CSAVE 

BA 

2BF5 

CSNG 

FO 

OABl 

CVD 

E8 

415E 

CVI 

E6 

4152 

CVS 

E7 

4158 

DATA 

88 

1F05 

DEF 

DD 

415B 

DEFDBL 

9B 

1E09 

DEFINT 

99 

1E03 

DEFSNG 

9A 

1E06 

DEFSTR 

98 

lEOO 

DELETE 

B6 

2BC6 

DIM 

8A 

2608 

EDIT 

9D 

2E60 

ELSE 

95 

1F07 

END 

80 

IDAE 

EOF 

E9 

4161 

ERL 

C2 

24DD 

ERR 

C3 

24CF 

ERROR 

9E 

1FF4 

EXP 

EO 

1439 

FIELD 

A3 

417C 

FIX 

F2 

0B26 

FN 

BE 

4155 

FOR 

81 

ICAl 

FRE 

DA 

27D4 

GET 

A4 

4174 

GOSUB 

91 

lEBl 

GOTO 

8D 

1EC2 

IF 

8F 

2039 

INKEY$ 

C9 

019D 

INP 

DB 

2AEF 

INPUT 

89 

219A 

INSTR 

C5 

419D 

INT 

D8 

0B37 

KILL 

AA 

4191 

LEFT$ 

F8 

2A61 

LEN 

F3 

2A03 

LET 

8C 

1F21 

LINE 

9C 

41A3 

LIST 

B4 

2B2E 

LLIST 

B5 

2B29 

LOAD 

A7 

4188 

LOC 

EA 

4164 

LOF 

EB 

4167 

LOG 

DF 

0809 

LPRINT 

AF 

2067 

LSET 

AB 

4197 

MEM 

C8 

27C9 

MERGE 

A8 

418B 

MID$ 

FA 

2A9A 

MKD$ 

EE 

4170 
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MKI$ 

EC 

416A 

MKS$ 

ED 

416D 

NAME 

A9 

418E 

NEW 

BB 

1B49 

NEXT 

87 

22B6 

NOT 

CB 

25C4 

ON 

Al 

1FC6 

OPEN 

A2 

4179 

OR 

D3 

25F7 

OUT 

AG 

2AFB 

PEEK 

E5 

2CAA 

POINT 

C6 

0132 

POKE 

Bl 

2CB1 

POS 

DC 

27F5 

PRINT 

B2 

206F 

PUT 

A5 

4182 

RANDOM 

86 

01D3 

READ 

8B 

21EF 

REM 

93 

1F07 

RESET 

82 

0138 

RESTORE 

90 

1D91 

RESUME 

9F 

IFAF 

RETURN 

92 

lEDE 

RIGHT$ 

F9 

2A91 

RND 

DE 

14C9 

RSET 

AC 

419A 

RUN 

8E 

1EA3 

SAVE 

AD 

41A0 

SET 

83 

0135 

SGN 

D7 

098A 

SIN 

E2 

1547 

SQR 

CD 

13E7 

STEP 

CC 

2B01 

STOP 

94 

1DA9 

STR$ 

F4 

2836 

STRING$ 

C4 

2A2F 

SYSTEM 

AE 

02B2 

TAB( 

BC 

2137 

TAN 

E3 

15A8 

THEN 

CA 

TIME$ 

C7 

4176 

TO 

BD 

— 

TROFF 

97 

1DF8 

TRON 

96 

1DF8 

USING 

BF 

2CBD 

USR 

CI 

27FE 

VAL 

FF 

2AC5 

VARPTR 

CO 

24EB 

+ 

CD 

249F 

™ 

CE 

2532 

* 

CF 

— 

/ 

DO 

t 

Dl 

— 

> 

D4 



= 

D5 

— 

< 

D6 



& 

26 

4194 

'3A93 

FB 



18C9H  -  18f6H   STORAGE  LOCATION  FOR 

LEVEL  II  BASIC  ERROR  MESSAGES 

18F7H  -  190^H  STORAGE  LOCATION  FOR 
THE  DIVISION  ROUTINE 

1095H  -  191CH   STORAGE  LOCATION  FOR  VALUES 

PLACED  IN  RAM  UPON  INITIALIZATION. 

191BH  -  1923H  MESSAGE  STORAGE  LOCATION 

191DH  -  1923H  The  Level  II  BASIC  ERROR  message  is  stored 
here. 

192^H  -  1928H   MESSAGE  STORAGE  LOCATION 

1924H  -  1928H   The  Level  II  BASIC  IN  message  is  stored  here. 

I929H  -  192PH   MESSAGE  STORAGE  LOCATION 

I929H  -  192FH   The  Level  II  BASIC  READY  message  is  stored 
here. 

I93OH  -  1935H   MESSAGE  STORAGE  LOCATION 

I93OH  -  1935H   The  Level  II  BASIC  BREAK  message  is  stored 
here. 
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1936H  ■ 
1936H  " 
1939H 

193AH 

193BH 

193CH 

193BH 
193FH 

19^0H 

19^1H 

19^2H 

19^3H 
19^^H 

19^5H 

19^6H 

19^7H 

19^8H 

19^9H 

19^BH 

19^CH 


195^H  SCAN  STACK  ROUTINE 

I938H    Load  register  pair  HL  with  4. 

Add  the  current  value  of  the  stack  pointer  to  the 
value  in  register  pair  HL. 

Load  register  A  with  the  value  at  the  location  of  the 
memory  pointer  in  register  pair  HL. 

Bump  the  value  of  the  memory  pointer  in  register 
pair  HL. 

193DH    Check  to  see  if  the  value  in  register  A  is  a  FOR 
token. 

Return  if  the  value  in  register  A  isn't  a  FOR  token. 

Load  register  C  with  the  LSB  of  the  FOR's  variable 
address. 

Bump  the  value  of  the  memory  pointer  in  register 
pair  HL. 

Load  register  B  with  the  MSB  of  the  FOR's  variable 
address. 


Bump  the  value  of  the  memory  pointer  in  register 
pair  HL. 


Save  the  value  in  register  pair  HL  on  the  stack. 

Load  register  L  with  the  LSB  of  the  FOR  variable's 
address  in  register  C. 

Load  register  H  with  the  MSB  of  the  FOR  variable's 
address  in  register  B. 

Load  register  A  with  the  MSB  of  the  variable  ad- 
dress in  register  D. 

Check  to  see  if  the  variable  address  in  register  pair 
DE  is  equal  to  zero. 

Exchange  the  variable  address  in  register  pair  HL 
with  the  variable  address  in  register  pair  DE. 

194'AH  Jump  if  the  variable  address  in  register  pair  DE  was 
equal  to  zero. 

Exchange  the  variable  address  in  register  pair  HL 
with  the  variable  address  in  register  pair  DE. 

Go  check  to  see  if  the  variable  address  in  register 
pair  HL  is  the  same  as  the  variable  address  in  regis- 
ter pair  DE. 
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19WH  - 

19^FH 

1950H 

1951H 

1952H 

1953H  - 

195^H 

1955H  - 

1962H 

1955H  - 

1957H 

1959H 


195BH 

195CH 

195DH 

195EH 

195FH 

I96OH 

I96IH  - 

1962H 

1963H  - 

197DH 

1963H 

196^H  - 

I966H 

I967H  - 

I968H 

Load  register  pair  BC  with  the  value  to  increment 
the  memory  pointer. 

Get  the  memory  pointer  from  the  stack  and  put  it  in 
register  pair  HL. 

Return  if  the  FOR  block  has  been  found. 

Add  the  value  in  register  pair  BC  to  the  value  of  the 
memory  pointer  in  register  pair  HL. 

Loop  till  the  FOR  block  has  been  located. 

DATA  MOVEMENT  ROUTINE 

Go  make  sure  there's  enough  room  in  memory. 

Save  the  value  of  the  memory  pointer  in  register  pair 
BC  on  the  stack. 

Exchange  the  value  of  the  memory  pointer  in  regis- 
ter pair  HL  with  the  value  of  the  memory  pointer  on 
the  stack. 

Get  the  value  of  the  memory  pointer  from  the  stack 
and  put  it  in  register  pair  BC. 

Check  to  see  if  the  memory  pointer  in  register  pair 
HL  is  the  same  as  the  memory  pointer  in  register 
pair  DE. 

Load  register  A  with  the  value  at  the  location  of  the 
memory  pointer  in  register  pair  HL. 

Save  the  value  in  register  A  at  the  location  of  the 
memory  pointer  in  register  pair  BC. 

Return  if  the  memory  pointer  in  register  pair  HL  is 
the  same  as  the  value  of  the  memory  pointer  in 
register  pair  DE. 

Decrement  the  value  of  the  memory  pointer  in 
register  pair  BC. 

Decrement  the  value  of  the  memory  pointer  in 
register  pair  HL, 

Loop  till  done. 

MEMORY  CHECK  ROUTINE 

Save  the  value  in  register  pair  HL  on  the  stack. 

Load  register  pair  HL  with  the  starting  address  of 
free  memory. 

Load  register  B  with  zero. 
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196  9H  Add  the  value  in  register  pair  BC  to  the  value  in 

register  pair  HL. 

I96AH  Add  the  value  in  register  pair  BC  to  the  value  in 

register  pair  HL. 

I96CH  Save  the  value  in  register  pair  HL  on  the  stack. 

I96DH   -  I96EH    Load  register  A  with  the  LSB  of  the  top  of  memory. 

I96FH  Subtract  the  LSB  of  the  value  of  the  new  memory 

pointer  in  register  L  from  the  value  in  register  A. 

I97OH  Load  register  L  with  the  adjusted  value  in  register 

A. 

I97IH  -   I972H    Load  register  A  with  the  MSB  of  the  top  of  memory. 

I973H  Subtract  the  MSB  of  the  new  memory  pointer  in 

register  H  from  the  value  in  register  A. 

I97A1.H  "  1975H    Jump  if  out  of  memory. 

I976H  Load  register  H  with  the  adjusted  value  in  register 

A. 

I977H  Add  the  value  of  the  stack  pointer  to  the  adjusted 

value  in  register  pair  HL. 

I978H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  HL. 

I979H  Return  if  overflow  didn't  occur. 

I97AH  -   197BH    Load  register  E  with  the  OM  ERROR  code. 

I97CH  -  I97DH    Go  to  the  Level  II  BASIC  error  routine  and  display 
an  OM  ERROR  message. 

197EH  -  1AF7H    LEVEL  II  BASIC  COMMAND  MODE 

I97EH  -   I98OH    Load  register  pair  HL  with  the  value  of  the  current 
BASIC  line  number. 

198 IH  Load  register  A  with  the  MSB  of  the  current  BASIC 

line  number  in  register  H. 

I982H  Combine  the  LSB  of  the  current  BASIC  line  number 

in  register  L  with  the  MSB  of  the  current  line 
number  in  register  A. 

I983H  Bump  the  value  of  the  combined  BASIC  line  number 

in  register  A. 

198  to  -  198  5H    Jump  if  Level  II  BASIC  is  stillin  the  command  mode. 

I986H  -  I988H     Load  register  A  with  the  error  flag. 
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198  9H  Check  to  see  if  the  error  flag  is  set. 

I98AH  "  I98BH  Load  register  E  with  a  NR  ERROR  code. 

I98CH  -  I98DH  Jump  if  the  error  flag  is  set. 

I98EH  -  I99OH  Jump. 

I99IH  -  1993H  Load  register  pair  HL  with  the  DATA  line  number. 

199te  -   I996H  Save  the  DATA  line  number  in  register  pair  HL. 

1997H  -  I998H  Load  register  E  with  a  SN  ERROR  code. 

199AH  "   I99BH  Load  register  E  with  a  /O  ERROR  code. 

199DH  -  199EH  Load  register  E  with  a  NF  ERROR  code. 

19A0H  "  19A1H  Load  register  E  with  a  RW  ERROR  code. 

19A2H  -  19A4H    Load  register  pair  HL  with  the  value  of  the  current 
BASIC  line  number. 

19A5H  -  19A7H    Save  the  value  of  the  current  BASIC  line  number  in 
register  pair  HL. 

19A8H  "   I9AAH    Save  the  value  of  the  current  BASIC  line  number  in 
register  pair  HL. 

I9ABH  -  I9ADH    Load  register  pair  BC  with  the  return  address. 

I9AEH  -  I9BOH    Load  register  pair  HL  with  the  value  of  the  stack 
pointer. 

19B1H  -  19B3H    Jump. 

19B^H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  BC. 

19B5H  Load  register  A  wi±  the  value  of  the  error  code  in 

register  E. 

I9B6H  Load  register  C  with  the  value  of  the  error  code  in 

register  E. 

19B7H  -  I9B9H    Save  the  value  of  the  error  code  in  register  A. 

I9BAH  -  I9BCH    Load  register  pair  HL  with  die  value  of  the  current 
BASIC  program  pointer. 

I9BDH  "  I9BFH    Save  the  value  of  the  current  BASIC  program 
pointer  in  register  pair  HL. 

I9COH  Load  register  pair  DE  with  the  value  of  the  current 

BASIC  program  pointer  in  register  pair  HL. 
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19C1H  -  19C3H    Load  register  pair  HL  with  the  value  of  the  current 
BASIC  line  number. 

19C^H  Load  register  A  with  the  MSB  of  the  current  BASIC 

line  number  in  register  H. 

19C5H  Combine  the  LSB  of  the  current  BASIC  line  number 

in  register  L  with  the  MSB  of  the  current  BASIC  Une 
number  in  register  A. 

I9C6H  Bump  the  value  of  the  combined  current  BASIC  Une 

number, 

19C7H  -  I9C8H   Jump  if  Level  II  BASIC  is  in  the  command  mode. 

19C9H  -  I9CBH    Save  the  value  of  the  current  BASIC  line  number  in 
register  pair  HL. 

I9CCH  Load  register  pair  HL  with  the  value  of  the  current 

BASIC  program  pointer  in  register  pair  DE. 

I9CDH  -  I9CFH    Save  the  value  of  the  current  BASIC  program  point- 
er in  register  pair  HL. 

19D0H  "  19D2H    Load  register  pair  HL  with  the  current  ONERROR 

address. 

19D3H  Load  register  A  with  the  MSB  of  the  ONERROR 

address  in  register  H. 

19Dto  Combine  the  LSB  of  the  ONERROR  address  in 

register  L  with  the  MSB  of  the  ONERROR  address 
in  register  A. 

19D5H  Load  register  pair  DE  with  the  ONERROR  address 

in  register  pair  HL. 

19D6H  "  I9D8H    Load  register  pair  HL  with  the  address  of  the  error 
flag. 

19D9H  -  I9DAH    Jump  if  there  isn't  an  ONERROR  address. 

I9DBH  Combine  the  value  of  the  error  flag  at  the  location  of 

the  memorv  pointer  in  register  pair  HL  with  the 
combined  value  of  the  ONERROR  address  in  regis- 
ter A. 

I9DCH  ^  I9DDH    Jump  if  register  A  is  nonzero. 

I9DEH  Decrement  the  value  of  the  error  flag  at  the  location 

of  the  memory  pointer  in  register  pair  HL. 

I9DPH  Load  register  pair  HL  with  the  ONERROR  address 

in  register  pair  DE. 

I9EOH  -  19E2H    Jump. 
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19B3H  Zero  register  A. 

l9Bte  Save  the  value  in  register  A  as  the  current  error  flag 

at  the  location  of  the  memory  pointer  in  register  pair 
HL. 

19E5H  Load  register  E  with  the  value  of  the  error  code  in 

register  C. 

I9E6H  -  I9E8H    Go  display  a  carriage  return  on  the  video  display  if 
necessary. 

19E9H  -   I9BBH    Load  register  pair  HL  with  the  starting  address  for 
the  table  of  error  messages. 

I9ECH  -  19EEH  Go  to  the  DOS  link  at  41A6H. 

I9BFH  Load  register  D  with  zero. 

I9FOH  -  I9FIH  Load  register  A  with  a  question  mark. 

19F2H  -  19F^H  Go  display  the  question  mark  in  register  A. 

19F5H  Add  the  value  of  the  error  code  in  register  pair  DE  to 

the  starting  address  of  the  table  of  error  messages  in 
register  pair  HL. 

I9F6H  Load  register  A  with  the  first  character  of  the  error 

message  at  the  location  of  the  table  pointer  in  regis- 
ter pair  HL. 

19F7H  -  I9F9H    Go  display  the  first  character  of  the  error  message  in 
register  A. 

I9FAH  Go  set  the  second  character  of  the  error  in  register 

A. 

I9FBH  -  I9FDH    Go  display  the  second  character  of  the  error  m.es- 
sage  in  register  A. 

I9FEH  -  lAOOH    Load  register  pair  HL  with  the  starting  address  of 
the  READY  message. 

lAOlH  Save  the  value  in  register  pair  HL  on  the  stack. 

1A02H  -  lAO^-H    Load  register  pair  HL  with  the  value  of  the  current 
BASIC  line  number. 

1A05H  Exchange  the  value  of  the  current  BASIC  line 

number  in  register  pair  HL  with  the  starting  address 
of  the  Level  II  BASIC  ERROR  message  on  the  stack. 

IAO6H  "  1A08H    Go  display  the  Level  II  BASIC  ERROR  message, 

IAO9H  Get  the  value  of  the  current  BASIC  line  number  from 

the  stack  and  put  it  in  register  pair  HL. 
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lAOAH  «  lAOCH   Load  register  pair  DE  with  65534. 

lAODH  Go  compare  the  value  of  the  current  BASIC  line 

number  in  register  pair  HL  with  the  line  number  in 
register  pair  DE. 

lAOEH  -  lAlOH  Jump  if  the  line  numbers  in  register  pairs  HL  and  DE 
are  the  same. 

lAllH  Load  register  A  with  the  MSB  of  the  current  BASIC 

line  number  in  register  H. 

1A12H  Combine  the  LSB  of  the  current  BASIC  line  number 

in  register  L  with  the  MSB  of  the  current  BASIC  line 
number  in  register  A. 

1A13H  Bump  the  combined  value  of  the  current  BASIC  line 

number  in  register  A. 

lAl^H  -  1A16H  Go  display  the  current  BASIC  line  number  in  regis- 
ter pair  HL  if  Level  11  BASIC  isn't  in  the  command 
mode. 

1A18H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  BC. 

1A19H  -  lAlBH  Go  set  the  current  output  device  to  the  video  dis- 
play. 

lAlCH  -  lAlEH    Go  call  the  DOS  link  at  41ACH. 

lAlFH  "  1A21H    Go  turn  off  the  cassette  recorder. 

1A22H  -  1A2^H    Go  display  a  carriage  return  if  necessary. 

1A25H  -  1A27H  Load  register  pair  HL  with  the  starting  address  of 
the  Level  H  BASIC  READY  message. 

1A28H  -"  1A2AH    Go  display  the  Level  II  BASIC  READY  message. 

1A2BH  -  1A2DH  Load  register  A  with  the  value  of  the  current  error 
code. 

1A2EH  -  1A2FH  Check  to  see  if  the  current  error  code  is  a  SN 
ERROR  code. 

1A30H  -  1A32H  Go  to  the  EDIT  mode  if  the  current  error  code  is  a 
SN  ERROR  code. 

1A33H  -  1A35H  Load  register  pair  HL  with  the  command  mode  line 
number. 

1A36H  -  1A38H  Save  the  line  number  in  register  pair  HL  as  the 
current  BASIC  line  number. 

1A39H  -  1A3BH    Load  register  A  with  the  value  of  the  AUTO  flag. 
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1A3CH  Check  to  see  if  in  the  AUTO  mode. 

1A3DH  -  iA3EH   Jump  if  not  in  the  AUTO  mode. 

1A3FH  -  lA^lH   Load  register  pair  HL  with  the  current  AUTO  line 

number. 

1A42H  Save  the  current  AUTO  line  number  in  register  pair 

HL  on  the  stack. 

1A^3H  -  lA^SH    Go  display  the  current  AUTO  line  number  in  regis- 
ter pair  HL  on  the  video  display. 

1A^6H  Get  the  current  AUTO  line  number  from  the  stack 

and  put  it  in  register  pair  DE. 

1A^7H  Save  the  current  AUTO  line  number  in  register  pair 

DE  on  the  stack. 

1A^8H  -   lA^AH  Go  check  to  see  if  there  is  a  matching  line  number  in 
the  BASIC  program. 

lA^BH  -  lA^CH  Load  register  A  with  an  *. 

lA^DH  -  lA^EH  Jump  ifthere  is  a  matching  line  number  in  the  BASIC 
program. 

lA^FH  -  1A50H   Load  register  A  with  a  space. 

1A51H  -  1A53H  Go  display  the  character  in  register  A  on  the  video 
display. 

lA5to  -  1A56H  Go  get  the  input. 

1A57H  Get  the  current  line  number  from  die  stack  and  put  it 

in  register  pair  DE. 

1A58H  -  1A59H  Jump  if  the  BREAK  key  wasn't  pressed. 

1A5AH  Zero  register  A. 

1A5BH  -  1A5DH  Save  the  value  in  register  A  as  the  current  AUTO 
flag. 

1A5SH  "  1A5FH  Jump  to  the  normal  command  mode. 

1A60H  -  1A62H   Load  register  pair  HL  with  die  value  of  the  AUTO 
increment. 

1A63H  Add  the  value  of  the  AUTO  line  number  in  register 

pair  DE  with  the  AUTO  increment  value  in  register 
pair  HL. 

1A6^H  -  1A65H  Jump  if  AUTO  line  number  has  overflowed. 

1A66H  Save  the  current  AUTO  line  number  in  register  pair 

DE  on  the  stack. 
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1A67H  -  1A69H  Load  register  pair  DE  with  the  maximum  BASIC  line 
number. 

1A6AH  Go  compare  the  adjusted  AUTO  line  number  in 

register  pair  HL  with  the  value  of  the  maximum 
BASIC  line  number  in  register  pair  DE. 

1A6BH  Get  the  current  AUTO  line  number  from  the  stack 

and  put  it  in  register  pair  DE. 

1A6CH  -  1A6DH  Jump  if  the  adjusted  AUTO  line  number  in  register 
pair  HL  is  too  large. 

1A6EH  -  1A70H  Save  the  adjusted  AUTO  line  number  in  register  pair 
HL  as  the  current  AUTO  line  number. 

1A71H  "  1A72H    Load  register  A  with  the  AUTO  flag  value. 

1A73H  -  1A75H  Jump  to  the  EDIT  routine  to  save  the  current  BASIC 
line. 

1A76H  «  1A77H    Load  register  A  with  a  >. 

1A78H  -  1A7AH  Go  display  the  Level  II  BASIC  prompt  in  register  A 
on  the  video  display. 

1A7BH  -  1A7DH    Go  get  the  input. 

1A7EH  -  1A80H    Jump  if  the  BREAK  key  was  pressed. 

1A81H  Go  bump  the  current  input  buffer  pointer  in  register 

pair  HL  till  it  points  to  the  first  character. 

1A82H  Bump  the  value  of  the  character  in  register  A. 

1A83H  Decrement  the  value  of  the  character  in  register  A. 

1A84H  "  1A86H   Jump  if  there  wasn't  any  input. 

1A87H  Save  the  value  in  register  pair  AF  on  the  stack. 

1A88H  "  1A8AH  Go  evaluate  the  line  number  at  the  location  of  the 
input  buffer  pointer  in  register  pair  HL  and  return 
with  it's  binary  value  in  register  pair  DE. 

1A8BH  Decrement  the  value  of  the  input  buffer  pointer  in 

register  pair  HL. 

1A8CH  Load  register  A  with  the  value  of  the  character  at  the 

location  of  the  input  buffer  pointer  in  register  pair 
HL. 

1A8DH  -  1A8EH  Check  to  see  if  the  character  at  the  location  of  ±e 
input  buffer  pointer  in  register  A  is  a  space. 

1A8FH  "  IA9OH  Jump  if  the  character  at  the  location  of  the  input 
buffer  pointer  in  register  A  is  a  space. 
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1A91H  Bump  the  value  of  the  input  buffer  pointer  in  register 

pair  HL. 

1A92H  Load  register  A  with  the  character  at  the  location  of 

the  input  buffer  pointer  in  register  pair  HL. 

1A93H  -  lA9to   Check  to  see  if  the  character  at  the  location  of  the 
input  buffer  pointer  in  register  A  is  a  space. 

1A95H  -  1A97H    Go  bump  the  value  of  the  input  buffer  pointer  in 
register  pair  HL  if  necessary. 

IA98H  Save  the  BASIC  line  number  in  register  pair  DE  on 

the  stack. 

1A99H  -   1A9BH    Go  tokenize  the  input. 

1A9CH  Get  the  value  of  the  BASIC  line  number  from  the 

stack. 

1A9DH  Get  the  value  from  the  stack  and  put  it  in  register 

pair  AF. 

1A9EH  -   lAAOH    Save  the  input  buffer  pointer  in  register  pair  HL. 

lAAlH  -  1AA3H    Go  call  the  DOS  line  at  41B2H. 

lAA^H  -  1AA6H   Jump  if  there  wasn't  a  line  number  with  the  input. 

1AA7H  Save  the  BASIC  line  number  in  register  pair  DE  on 

the  stack. 

1AA8H  Save  the  length  of  the  tokenized  input  in  register 

pair  BC  on  the  stack. 

1AA9H  Zero  register  A. 

lAAAH  -  lAAGH   Save  the  value  in  register  A  as  the  input  flag. 

lAADH  Go  bump  the  value  of  the  input  buffer  pointer  in 

register  pair  HL  till  it  points  to  the  next  character. 

lAAEH  Set  the  flags. 

lAAFH  Save  the  value  in  register  pair  AF  on  the  stack. 

lAB  OH  Load  register  pair  HL  with  the  value  of  the  BASIC 

line  number  in  register  pair  DE. 

lABlH  -  1AB3H    Save  the  value  of  the  line  number  in  register  pair 
HL. 

lABto  Exchange  the  value  of  the  input  buffer  pointer  in 

register  pair  DE  with  the  value  of  the  BASIC  line 
number  in  register  pair  HL. 
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1AB5H  -  1AB7H  Go  check  to  see  if  there  is  a  matching  line  number  in 
the  BASIC  program. 

1AB8H  Save  the  address  of  the  Hne  number  in  the  BASIC 

program  in  register  pair  BC  on  the  stack. 

1AB9H  -  lABBH  If  there  wasn't  a  matching  line  number  in  the  BASIC 
program,  go  move  the  closest  line  number  up  in 
memory. 

lABCH  Get  the  address  of  the  BASIC  line  number  from  the 

stack  and  put  it  in  register  pair  DE. 

lABDH  Get  the  value  from  the  stack  and  put  it  in  register 

pair  AF. 

lABEH  Save  the  address  of  the  BASIC  line  number  on  the 

stack. 

lABFH  -  lACOH  Jump  if  there  was  a  matching  line  number  in  the 
BASIC  program. 

lAC  IH  Get  the  address  of  the  BASIC  line  number  from  the 

stack  and  put  it  in  register  pair  DE. 

1AC2H  -  lAC^H  Load  register  pair  HL  with  the  end  of  the  BASIC 
program  pointer. 

1AC5H  Exchange  the  length  of  the  tokenized  input  on  the 

stack  with  the  end  of  the  BASIC  program  pointer  in 
register  pair  HL 

1AC6H  Get  the  end  of  the  BASIC  program  pointer  from  the 

stack  and  put  it  in  register  pair  BC. 

1AC7H  Add  the  end  of  the  BASIC  program  pointer  in  regis- 

ter pair  BC  to  the  value  of  the  length  of  the  tokenized 
input  in  register  pair  HL. 

1AC8H  Save  the  adjusted  end  of  the  BASIC  program  pointer 

in  register  pair  HL  on  the  stack. 

1AC9H  -  lACBH  Go  check  to  see  if  there  is  enough  room  in  memory 
for  the  new  BASIC  line. 

lAGCH  Get  the  new  end  of  the  BASIC  program  pointer  from 

the  stack  and  put  it  in  register  pair  HL. 

lACDH  -  lACFH  Save  the  new  end  of  the  BASIC  program  pointer  in 
register  pair  HL. 

IAD  OH  Load  register  pair  HL  with  the  address  of  the  BASIC 

line. 

lADlH  Save  the  MSB  of  the  address  of  the  BASIC  line  in 

register  H. 
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1AD2H  Get  the  value  of  the  BASIC  line  number  from  the 

stack  and  put  it  in  register  pair  DE. 

1 AD3H  Save  the  value  of  the  memory  pointer  in  register  pair 

HL  on  the  stack. 

lADto  Bump  the  value  of  the  memory  pointer  in  register 

pair  HL 

1AD5H  Bump  the  value  of  the  memory  pointer  in  register 

pair  HL. 

1AD6h  Save  the  LSB  of  the  BASIC  line  number  in  register  E 

at  the  location  of  the  memory  pointer  in  register  pair 
HL. 

1AD7H  Bump  the  value  of  the  memory  pointer  in  register 

pair  HL. 

1AD8H  Save  the  MSB  of  the  BASIC  line  number  in  register 

D  at  the  location  of  the  memory  pointer  in  register 
pair  HL. 

1AD9H  Bump  the  value  of  the  BASIC  line  number  in  register 

pair  HL. 

lADAH  Load  register  pair  DE  with  the  value  of  the  memory 

pointer  in  register  pair  HL. 

lADBH  "•  lADDH    Load  register  pair  HL  with  the  value  of  the  tokenized 
input  pointer, 

lADEH  Exchange  the  value  of  the  memory  pointer  in  regis- 

ter pair  DE  with  the  value  of  the  tokenized  input 
pointer  in  register  pair  HL. 

lADFH  Decrement  the  value  of  the  tokenized  input  buffer 

pointer  in  register  pair  DE. 

lAEOH  Decrement  the  value  of  the  tokenized  input  buffer 

pointer  in  register  pair  DE, 

lAElH  Load  register  A  with  the  value  at  the  location  of  the 

tokenized  input  buffer  pointer  in  register  pair  DE, 

1AE2H  Save  the  value  in  register  A  at  the  location  of  the 

memory  pointer  in  register  pair  HL. 

1AE3H  Bump  the  value  of  the  memory  pointer  in  register 

pair  HL. 

lAEto  Bump  the  value  of  the  tokenized  input  buffer  pointer 

in  register  pair  DE. 

1AE5H  Check  to  see  if  the  character  in  register  A  is  an  end  of 

the  line  character. 
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1AE6H  - 

1   AT??lW 

1AE7H 

1AE9H  - 

lAEBH 

lAECH  - 

lAEEH 

lAEPH  - 

lAFlH 

1AF2H  - 

lAPiJ-H 

1AF5H  - 

1AF7H 

1AF8H  - 

IBOFH 

1AF8H  - 

lAFAH 

lAPBH 

lAFCH 

lAFDH 

lAFEH 

lAFFH 

IBOOH 

IBOIH 

1B02H 

1B03H 

IBO^H 

1B05H 

1B06H 

Loop  till  the  whole  of  the  new  BASIC  line  has  been 
stored  in  memory. 

Get  the  value  from  the  stack  and  put  it  in  register 
pair  DE. 

Go  reset  the  BASIC  line  pointers. 

Go  call  the  DOS  link  at  41B5H. 

Go  reset  the  current  BASIC  program  pointers. 

Go  call  the  DOS  link  at  41B8H. 

Go  get  the  input  again. 

LINE  POINTERS  ROUTINE 

Load  register  pair  HL  with  the  start  of  the  BASIC 
program  pointer. 

Load  register  pair  DE  with  the  start  of  the  BASIC 
program  pointer  in  register  pair  HL. 

Load  register  H  with  the  MSB  of  the  memory 
pointer  in  register  D. 

Load  register  L  with  the  LSB  of  the  memory  pointer 
in  register  E. 

Load  register  A  with  the  value  at  the  location  of  the 
memory  pointer  in  register  pair  HL, 

Bump  the  value  of  the  memory  pointer  in  register 
pair  HL. 

Check  to  see  if  the  character  at  the  location  of  the 
memory  pointer  in  register  pair  HL  is  an  end  of  the 
BASIC  program  character. 

Return  if  done- 
Bump  the  value  of  the  memory  pointer  in  register 
pair  HL. 

Bump  the  value  of  the  memory  pointer  in  register 
pair  HL. 

Bump  the  value  of  the  memory  pointer  in  register 
pair  HL. 

Zero  register  A. 

Check  to  see  if  the  character  at  the  location  of  die 
memory  pointer  in  register  HL  is  an  end  of  the 
BASIC  line  character. 
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1B07H  Bump  the  value  of  the  memory  pointer  in  register 

pair  HL. 

1B08H  -  1B09H  Loop  till  the  end  of  the  BASIC  line  character  is 
found. 

IBOAH  Exchange  the  starting  address  of  the  current  BASIC 

line  in  register  pair  DE  with  the  starting  address  of 
the  next  BASIC  line  in  register  pair  HL. 

IBOBK  Save  the  LSB  of  the  next  BASIC  line's  starting  ad- 

dress in  register  E  at  the  location  of  the  memory 
pointer  in  register  pair  HL. 

IBOCH  IBunip  the  value  of  the  memory  pointer  in  register 

pair  HL. 

IBODH  Save  the  MSB  of  the  next  BASIC  line's  starting 

address  in  register  D  at  the  location  of  the  memory 
pointer  in  register  pair  HL. 

IBOEH  -  IBOFH  Loop  till  done. 

IBIOH  -   1B^8H  evaluate  LINE  NLfMBERS 

IBIOH  "   1B12H  Load  register  pair  DE  with  zero. 

1B13H  Save  the  value  in  register  pair  DE  on  the  stack. 

IBl^H  "  1B15H  Jump  if  there  aren't  any  line  numbers  to  be  eval- 
uated. 

1B16H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  DE. 

1B17H  "  1B19H  Go  evaluate  the  line  number  at  the  location  of  the 
current  BASIC  program  pointer  in  register  pair  HL 
and  return  with  die  line  number's  binary  value  in 
register  pair  DE. 

IBIAH  Save  the  first  line  number's  value  in  register  pair  DE 

on  the  stack. 

IBIBH  -  IBICH  Jump  if  there  isn't  a  second  line  number  to  be 
evaluated. 

IB  IDH  Go  check  the  syntax.  The  character  at  the  location  of 

the  current  BASIC  program  pointer  in  register  pair 
HL  must  be  a  -  token. 

IBIEH  The  character  to  be  checked  for  is  stored  here. 

IBIFH  -  1B21H  Load  register  pair  DE  with  the  default  second  line 
number. 

1B22H  "  1B24H    Go  evaluate  the  second  line  number  at  the  location  of 
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the  current  BASIC  program  pointer  in  register  pair 
HL  and  return  with  the  Une  number's  binary  value  in 
register  pair  DE. 

1B25H  -  1B27H  Go  to  the  Level  11  BASIC  error  routine  and  display  a 
SN  ERROR  message  if  the  data  which  followed  the 
—  token  wasn't  a  line  number, 

1B28H  Load  register  pair  HL  with  the  value  of  the  second 

line  number  in  register  pair  DE  and  load  register 
pair  DE  with  the  value  of  the  current  BASIC  pro- 
gram pointer  in  register  pair  HL. 

1B2  9H  Get  the  value  of  the  first  line  number  from  the  stack 

and  put  it  in  register  pair  DE. 

1B2AH  Exchange  the  return  address  on  the  stack  with  the 

value  of  the  second  line  number  in  register  pair  HL. 

1B2BH  Ssve  the  value  of  the  return  address  in  register  pair 

HL  on  the  stack. 

1B2CH  -  1B2EH  Load  register  pair  HL  with  the  value  of  the  start  of 
the  BASIC  program  pointer. 

1B2FH  Load  register  B  with  the  value  of  the  MSB  of  the 

memory  pointer  in  register  H. 

1B30H  Load  register  C  with  the  LSB  of  the  memory  pointer 

in  register  L. 

1B31H  Load  register  A  with  the  value  at  the  location  of  the 

memory  pointer  in  register  pair  HL. 

1B32H  Bump  the  value  of  the  memory  pointer  in  register 

pair  HL. 

1B33H  Combine  the  value  at  the  location  of  the  memory 

pointer  in  register  pair  HL  with  the  value  in  register 
A. 

1B3^H  Decrement  the  value  of  the  memory  pointer  in 

register  pair  HL. 

1B35H  Return  if  this  is  the  end  of  the  BASIC  program. 

1B36H  Bump  the  value  of  the  memory  pointer  in  register 

pair  HL. 

1B37H  Bump  the  value  of  the  memory  pointer  in  register 

1B38H 


ip  tn 
pair  HL. 

Load  register  A  with  the  LSB  of  the  current  BASIC 
line  number  at  the  location  of  the  memory  pointer  in 
register  pair  HL. 
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1B39H 
1B3AH 

1B3BH 
1B3CH 

1B3DH 
1B3EH 
1B3FH 
IB^OH 
IB^IH 

1B42H 

1B^3H 
IB^^H 

1B^5H 
1B^6H 


Bump  the  value  of  the  memory  pointer  in  register 
pair  hL 

Load  register  H  with  the  MSB  of  the  current  BASIC 
line  number  at  the  location  of  the  memory  pointer  in 
register  pair  HL. 

Load  register  L  with  the  LSB  of  the  current  BASIC 
line  number  in  register  A. 

Go  compare  the  value  of  the  first  line  number  in 
register  pair  DE  with  the  value  of  the  current  BASIC 
line  number  in  register  pair  HL. 

Load  register  H  with  the  MSB  of  the  memory 
pointer  in  register  B. 

Load  register  L  with  the  LSB  of  the  memory  pointer 
in  register  C. 

Load  register  A  with  the  value  at  the  location  of  the 
memory  pointer  in  register  pair  HL. 

Bump  the  value  of  the  memory  pointer  in  register 
pair  HL, 

Load  register  H  with  the  MSB  of  the  next  BASIC 
line  pointer  at  the  location  of  the  memory  pointer  in 
register  pair  HL. 

Load  register  L  with  the  LSB  of  the  next  BASIC  line 
pointer  in  register  A. 

Complement  the  value  of  the  Carry  flag. 

Return  if  the  first  line  number  in  register  pair  DE  is 
the  same  as  the  current  BASIC  line  number. 

Complement  the  value  of  the  Carry  flag. 

Return  if  the  first  line  number  in  register  pair  DE  is 
less  than  the  current  BASIC  line  number. 


1B47H  -   1B48H    Loop  till  the  location  of  the  line  number  has  been 
found  in  the  BASIC  program. 

1B49H  -   1B5CH    LEVEL  II  BASIC  NEW  ROUTINE 

1B^9H  Go  to  the  Level  11  BASIC  error  routine  and  display  a 

SN  ERROR  message  if  there  is  any  input  following 
the  NEW  token. 

IB^AH  -   IB^CH    Go  clear  the  screen. 

IB^DH  -  1B4FH    Load  register  pair  HL  with  the  start  of  the  BASIC 
program. 
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1B50H  "  1B52H    Go  TROFF. 

1B53H  -  1B55H    Reset  the  AUTO  flag. 

1B56H  Save  a  zero  at  the  location  of  the  memory  pointer  in 

register  pair  HL 

1B57H  Bump  the  value  of  the  memory  pointer  in  register 

pair  HL. 

1B58H  Save  a  zero  at  the  location  of  the  memory  pointer  in 

register  pair  HL. 

1B59H  Bump  the  value  of  the  memory  pointer  in  register 

pair  HL. 

1B5AH  -  1B5CH  Save  the  value  in  register  pair  HL  as  the  new  simple 
variables  pointer. 

1B5DH  -  1BB2H    LEVEL  II  BASIC  RUN  ROUTINE 

1B5DH  "  1B5FH  Load  register  pair  HL  with  the  start  of  the  BASIC 
program  pointer. 

1B60H  Decrement  the  value  in  register  pair  HL. 

1B61H  "   1B63H    Save  the  adjusted  value  in  register  pair  HL. 

1B6^H  ~  1B6  5H  Load  register  B  with  the  number  of  variable  names 
to  be  initialized. 

1B66H  -  1B68H  Load  register  pair  HL  with  the  starting  address  of 
the  variable  declaration  table. 

IB69H  -  1B6AH  Set  the  variable  at  the  location  of  the  memory 
pointer  in  register  pair  HL  to  a  single  precision 
variable. 

1B6BH  Bump  the  value  of  the  memory  pointer  in  register 

pair  HL. 

1B6CH  -  1B6DH  Loop  till  all  26  variables  have  been  set  to  single 
precision. 

1B6EH  Zero  register  A. 

1B6FH  -  IB7IH  Save  the  value  in  register  A  as  the  current  value  of 
the  RESUME  flag. 

1B72H  Zero  register  L. 

1B73H  Zero  register  H. 

1B7Z|,H  -  1B76H  Save  the  value  in  register  pair  HL  as  the  current 
ONERROR  address. 
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1B77H  -   1B79H    Save  the  value  in  register  pair  HL  as  the  current 
BREAK  address. 

1B7AH  ~  1B7CH    Load  register  pair  HL  with  the  top  of  the  memory 
pointer. 

1B7DH  -  1B7FH    Save  the  value  in  register  pair  HL  as  the  next  avail- 
able address  in  the  string  space  pointer. 

1B80H  -  1B82H  Go  do  a  RESTORE. 

1B83H  -  1B85H    Load  register  pair  HL  with  the  end  of  the  BASIC 
program  pointer. 

1B86H  -   1B88H    Save  the  value  in  register  pair  HL  as  the  new  simple 
variables  pointer. 

1B89H  "   1B8BH    Save  the  value  in  register  pair  HL  as  the  new  array 
variables  pointer. 

1B8CH  -  1B8EH    Go  call  the  DOS  line  at  41BBH. 

1B8FH  Get  the  return  address  from  the  stack. 

IB9OH  "  1B92H    Load  register  pair  HL  with  the  start  of  string  space 
pointer. 

1B93H  Decrement  the  value  of  the  memory  pointer  in 

register  pair  HL. 

1B9^K  Decrement  the  value  of  the  memory  pointer  in 

register  pair  HL, 

1B95H  -   1B97H    Save  the  value  in  register  pair  HL  as  the  stack 
pointer. 

IB98H  Bump  the  value  of  the  memory  pointer  in  register 

pair  HL. 

1B99H  Bump  the  value  of  the  memory  pointer  in  register 

pair  HL. 

1B9AH  Load  the  stack  pointer  with  the  value  of  the  memory 

pointer  in  register  pair  HL, 

1B9BH  -  1B9DH    Load  register  pair  HL  with  the  start  of  the  string 
work  area. 

1B9EH  -   IBAOH   Save  the  value  in  register  pair  HL  as  the  next  avail- 
able location  in  the  string  work  area  pointer. 

IBAIH  -   1BA3H   Go  set  the  current  output  device  to  the  video  dis- 
play. 

1BA4h  -   1BA6H    Go  turn  off  the  cassette  recorder. 
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1BA7H  Zero  register  A. 

1BA8H  Zero  register  H. 

1BA9H  Zero  register  L. 

IBAAH  -  IBACH    Save  the  value  in  register  A  as  the  current  FOR  flag. 

IBADH  Save  the  value  in  register  pair  HL  on  the  stack. 

IBAEH  Save  the  value  in  register  pair  EC  on  the  stack. 

IBAFH  -  IBBIH    Load  register  pair  HL  with  the  current  value  of  the 
BASIC  program  pointer. 

1BB2H  Return. 

1BB3H  -  IBBPH  KEYBOARD  INPUT  ROUTINE 

1BB3H  -  IBB^H  Loadregister  A  witha?. 

1BB5H  -  1BB7K  Go  display  the  ?  in  register  A  on  the  video  display. 

1BB8H  -  1BB9H  Load  register  A  with  a  space. 

IBBAH  -  IBBCH    Go  display  the  space  in  register  A  on  the  video 
display. 

IBBDH  "  IBBFH   Jump  to  the  keyboard  input  routine. 

IBCOH  -  1C8FH   TOKENIZE  INPUT  ROUTINE 

IBCOH  Zero  register  A. 

IBCIH  -   1BC3H   Save  the  value  in  register  A  as  the  current  value  of 
the  tokenization  flag. 

IBC^H  Zero  register  C. 

1BC5H  Load  register  pair  DE  with  the  start  of  the  input 

address  in  register  pair  HL. 

1BG6H  "   1BC8H   Load  register  pair  HL  with  the  starting  address  of 
the  input  buffer. 

1BC9H  Decrement  the  value  of  the  input  buffer  pointer  in 

register  pair  HL. 

IBCAH  Decrement  the  value  of  the  input  buffer  pointer  in 

register  pair  HL. 

IBCBH  Exchange  the  value  of  the  input  buffer  pointer  in 

register  pair  HL  with  the  value  of  the  input  pointer  in 
register  pair  DE. 

IBCCH  Load  register  A  with  the  character  at  the  location  of 

the  input  pointer  in  register  pair  HL. 
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IBCDH  "  IBCEH  Check  to  see  if  ±e  character  in  register  A  is  a  space. 

IBCFH  -   IBDIH  Jump  if  the  character  in  register  A  is  a  space. 

1BD2H  Load  register  B  with  the  value  of  the  character  in 

register  A. 

1BD3H  -   IBD^H  Check  to  see  if  the  character  in  register  A  is  a  quote. 

1BD5H  -  1BD7H  Jump  if  the  character  in  register  A  is  a  quote. 

1BD8H  Check  to  see  if  the  character  in  register  A  is  an  end  of 

the  input  character. 

1BD9H  -   IBDBH  Jump  if  the  character  in  register  A  is  an  end  of  the 
input  character. 

IBDCH  -   IBDEH   Load  register  A  with  the  value  of  the  tokenization 
flag. 

IBDFH  Check  to  see  if  a  DATA  statement  is  being  pro- 

cessed. 

IBEOH  Load  register  A  with  the  value  of  the  character  at  the 

location  of  the  input  buffer  pointer  in  register  pair 
HL. 

IBEIH  -   1BE3H   Jump  if  a  DATA  statement  is  being  processed 

1BE4H  -   1BE5H    Check  to  see  if  the  character  in  register  A  is  a  ?. 

1BE6H  -   1BE7H    Load  register  A  with  a  PRINT  token. 

1BE8H  -   IBEAH   Jump  if  the  character  at  the  location  of  the  input 
buffer  pointer  in  register  pair  HL  is  a  ?. 

IBEBH  Load  register  A  with  the  character  at  the  location  of 

the  input  buffer  pointer  in  register  pair  HL. 

IBECH  -   IBEDH    Check  to  see  if  the  character  in  register  A  is  less 
than  a  zero  character. 

IBEEH  -   IBEFH  Jump  if  the  character  in  register  A  is  less  than  a  zero 
character. 

IBFOH   -   IBFIH    Check  to  see  if  the  character  in  register  A  is  less 
than  <  character. 

1BF2H  -    IBF^H    Jump  if  the  character  in  register  A  is  less  than  < 
character. 

1BF5H  Save  the  value  of  the  input  buffer  pointer  in  register 

pair  DE  on  the  stack. 

1BF6H  -   1BF8H     Load  register  pair  DE  with  the  starting  address  of 
the  reserved  words  list. 
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1BF9H  Save  the  value  in  register  pair  BC  on  the  stack. 

IBFAH  -  IBFCH    Load  register  pair  BC  with  the  return  address. 

IBFDH  Save  the  return  address  in  register  pair  BC  on  the 

stack. 

IBFEH  "  IBFFH  Load  register  B  with  the  initial  reserved  words 
counter. 

IB  0  OH  Load  register  A  with  the  character  at  the  location  of 

the  input  buffer  pointer  in  register  pair  HL. 

ICOIH  ICOIH  Check  to  see  if  the  character  in  register  A  is  lower- 
case. 

1C03H  "   ICO^H  Jump  if  the  character  in  register  A  isn't  lowercase. 

1C05H  "  1C06H  Check  to  see  if  the  character  in  register  a  is  lower- 
case. 

1C07H  -  1C08H  Jump  if  the  character  in  register  A  isn't  lowercase. 

ICO9H  -  ICOAH  Make  the  lowercase  character  in  register  A  upper- 
case. 

ICOBH  Save  the  adjusted  character  in  register  A  at  the 

location  of  the  input  buffer  pointer  in  register  pair 
HL. 

1 C  0  CH  Load  register  C  with  the  character  at  the  location  of 

the  input  buffer  pointer  in  register  pair  HL. 

ICODH  Exchange  the  input  buffer  pointer  in  register  pair  HL 

with  the  reserved  words  list  pointer  in  register  pair 
DE. 

ICOEH  Bump  the  value  of  the  reserved  words  list  pointer  in 

register  pair  HL, 

ICOFH  Check  to  see  if  bit  7  of  the  character  at  the  location  of 

the  reserved  words  list  pointer  in  register  pair  HL  is 
set. 

ICIOH  "  1C12H  Jump  if  the  character  at  the  location  of  the  reserved 
words  list  pointer  in  register  pair  HL  doesn't  have 
bit  7  set. 

1C13H  Bump  the  value  of  the  reserved  words  counter  in 

register  B. 

1C14H  Load  register  A  with  the  character  at  the  location  of 

the  reserved  words  list  pointer  in  register  pair  HL. 

1C15H  -   ICI6H    Reset  bit  7  of  the  character  in  register  A. 
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1C17H 

1C18H 

1C19H  - 

ICIAH 

ICIBH 

ICICH 

ICIDH 

ICIEH 

ICIFH 

1C20H  - 

1C22H 

1C23H 

ICZkK 

1C25H  - 

1C26H 

1C27H  - 

1C28H 

1C29H 

1C2AH 

1C2BH 

1C2CH 

1C2DH  - 

1C2SH 

1C2FH  - 

1C30H 

1C31H  - 

1C32H 

Return  if  this  is  the  end  of  the  reserved  words  list. 

Check  to  see  if  the  character  in  register  C  is  the 
same  as  the  character  at  the  location  of  the  reserved 
words  list  pointer  in  register  A. 

Jump  if  the  characters  don't  match. 

Exchange  the  value  of  the  reserved  words  list  point- 
er in  register  pair  HL  with  the  value  of  the  input 
buffer  pointer  in  register  pair  DE. 

Save  the  value  of  the  input  buffer  pointer  in  register 
pair  HL  on  the  stack. 

Bump  the  value  of  the  reserved  words  list  pointer  in 
register  pair  DE. 

Load  register  A  with  the  character  at  the  location  of 
the  reserved  words  list  pointer  in  register  pair  DE. 

Check  to  see  if  bit  7  of  the  character  in  register  A  is 
set. 

Jump  if  bit  7  of  the  character  in  register  A  is  set. 

Load  register  C  with  the  character  in  register  A. 

Load  register  A  with  the  value  of  the  reserved  words 
counter  in  register  B. 

Check  to  see  if  the  current  reserved  word  being 
checked  is  GOTO. 

Jump  if  the  current  reserved  word  being  checked 
isn't  GOTO. 

Go  bump  the  input  buffer  pointer  in  register  pair  HL 
till  it  points  to  the  next  character. 

Decrement  the  value  of  the  input  buffer  pointer  in 
register  pair  HL. 

Bump  the  value  of  the  input  buffer  pointer  in  register 
pair  HL. 

Load  register  A  with  the  character  at  the  location  of 
the  input  buffer  pointer  in  register  pair  HL. 

Check  to  see  if  the  character  in  register  A  is  lower- 
case. 

Jump  if  the  character  in  register  A  isn't  lowercase. 

Make  the  character  in  register  A  uppercase. 
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1C3'^H  - 

1C35H 

1C36H 

1G37H  - 

1C38H 

1G39H 

1C3AH 

1C3BH 

1C3CH 

1C3DH 

1C3EH 

1C3M 

ICifOH 

IC^IH 

1C42H  - 

1C^3H 

ICJ^J^H  - 

1C45H 

1C46H  - 

1C^7H 

lCi^8H 

1CJ^9H 

IC^AH  - 

•  1C4BH 

IC^CH  - 

.  IC^DH 

Check  to  see  if  the  character  in  register  A  matches 
the  character  in  register  C. 

Jump  if  the  character  in  the  input  matches  the  re- 
served words  character. 

Get  the  current  input  buffer  pointer  from  the  stack 
and  put  it  in  register  pair  HL. 

Jump. 

Load  re^ster  C  with  the  value  of  the  reserved  words 
counter  in  register  B. 

Get  the  value  from  the  stack  and  put  it  in  register 
pair  AF. 

Exchange  the  input  buffer  pointer  in  register  pair  HL 
with  the  reserved  words  list  pointer  in  register  pair 
DE. 

Return. 

Exchange  the  reserved  words  list  pointer  in  register 
pair  HL  with  the  input  buffer  pointer  in  register  pair 
DE. 

Load  register  A  with  the  value  of  the  reserved  words 
counter  in  register  C. 

Get  the  value  from  the  stack  and  put  it  in  register 
pair  BC. 

Get  the  input  buffer  pointer  from  the  stack  and  put  it 
in  register  pair  DE. 

Exchange  the  input  buffer  pointer  in  register  pair  HL 
with  the  input  buffer  pointer  in  register  pair  DE. 

Check  to  see  if  the  token  in  register  A  is  an  ELSE 
token. 

Save  a  colon  at  the  location  of  the  input  buffer  pointer 
in  register  pair  HL. 

Jump  if  the  token  in  register  A  isn't  an  ELSE  token. 

Bump  the  value  of  the  counter  in  register  C. 

Bump  the  value  of  the  input  buffer  pointer  in  register 
pair  HL. 

Check  to  see  if  the  token  in  register  A  is  a  REM 
token. 

Jump  if  the  token  in  register  A  isn't  a  REM  token. 
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IC^EH  -  IC^FH 
1C50H 


Save  a  colon  at  the  location  of  the  input  buffer  pointer 
in  register  pair  HL. 

Bump  the  value  of  the  input  buffer  pointer  in  register 
pair  HL. 


1C51H  -  1C52H   Load  register  B  with  a  REM  token, 
1C53H 


1C5^H 
1C55H 

1C56H 

1C57H 

1C58H  -  1C59H 

1C5AH 

1C5BH 
1C5CH 

1C5DH 


1C5EH 
1C5FH 
1C61H 
1C63H 

1C65H 
1C67H 

1C6aH 

1C6CH 


1C60K 
1C62H 
1C64H 


Save  the  REM  token  in  register  B  at  the  location  of 
the  input  buffer  pointer  in  register  pair  HL. 

Bump  the  value  of  the  input  buffer  pointer  in  register 
pair  HL. 

Exchange  the  value  of  the  input  buffer  pointer  in 
register  pair  HL  with  the  value  of  the  input  buffer 
pointer  in  register  pair  DE. 

Bump  the  value  of  the  counter  in  register  C. 

Bump  the  value  of  the  counter  in  register  C. 

Jump. 

Exchange  the  value  of  the  input  buffer  pointer  in 
register  pair  HL  with  the  value  of  the  input  buffer 
pointer  in  register  pair  DE. 

Bump  the  value  of  the  input  buffer  pointer  in  register 
pair  HL. 

Save^  the  value  of  the  token  in  register  A  at  the 
location  of  the  input  buffer  pointer  in  register  pair 
DE. 

Bump  the  value  of  the  input  buffer  pointer  in  register 
pair  DE. 

Bump  the  value  of  the  counter  in  register  C. 

Check  to  see  if  the  character  in  register  A  is  a  colon. 

Jump  if  the  character  in  register  A  is  a  colon. 

Check  to  see  if  the  token  in  register  A  is  a  DATA 
token. 


1C66H  Jump  if  the  token  in  register  A  isn*t  a  DATA  token. 

1 C6  9H   Save  the  value  in  register  A  as  the  current  tokeniza- 
tion  flag. 

1C6BH    Check  to  see  if  the  token  in  register  A  is  a  REM 
token. 

1C6EH    Jump  if  the  token  in  register  A  isn't  a  REM  token. 
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Bump  the  value  of  the  input  buffer  pointer  in  register 
pair  DE. 


1C6FH  Load  register  B  with  a  zero. 

1C70H  Load  register  A  with  the  character  at  the  location  of 

the  input  buffer  pointer  in  register  pair  HL. 

1C71H  Checlc  to  see  if  the  character  in  register  A  is  an  end  of 

the  input  character. 

1C72H  -   1C73H    Jump  if  the  character  in  register  A  is  an  end  of  the 
input  character. 

1C7^H  Check  to  see  if  the  character  in  register  B  matches 

the  character  in  register  A. 

1C75H  -  IC76H    Jump  if  the  character  in  register  B  matches  die 
character  in  register  A. 

1C77H  Bump  the  value  of  the  input  buffer  pointer  in  register 

pair  HL. 

IC78H  Save  the  character  in  register  A  at  the  location  of  die 

input  buffer  pointer  in  register  pair  DE. 

1C79H  Bump  the  value  of  the  counter  in  register  C. 

1C7AH  Kumpi 

■d: 

1C7BH  -  1G7CH    Loop  till  a  match  is  found. 

1C7DH  -  1C7FH    Load  register  pair  HL  with  a  five. 

1C80H  Load  register  B  with  zero. 

1C81H  Add  the  length  of  the  input  in  register  pair  BC  to  die 

value  in  register  pair  HL. 

1C82H  Load  register  B  with  the  MSB  of  the  value  in  regis- 

ter H. 

1C83H  Load  register  C  with  the  LSB  of  the  value  in  register 

lC8ta  -  1C86H    Load  register  pair  HL  with  the  address  of  the  input 
buffer. 

1C87H  Decrement  the  value  of  the  input  buffer  pointer  in 

register  pair  HL. 

1C88H  Decrement  the  value  of  the  input  buffer  pointer  in 

register  pair  HL. 

IC89H  Decrement  the  value  of  the  input  buffer  pointer  in 

register  pair  HL. 

1C8AH  2ero  the  location  of  the  input  buffer  pointer  in 

register  pair  DE. 
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1  C8BH  Bump  the  value  of  the  input  buffer  pointer  in  register 

pair  DE. 

1C8CH  Zero  the  location  of  the  input  buffer  pointer  in 

register  pair  DE. 

1C8DH  Bump  the  value  of  the  input  buffer  pointer  in  register 

pair  DE. 

ICBEH  Zero  the  location  of  the  input  buffer  pointer  in 

register  pair  DE. 

1C8FH  Return. 

1C90H  -  1C95H    RST0018HCODE 

IC9OH  Load  register  A  with  the  MSB  of  the  value  in  regis- 

ter H. 

IC9IH  Subtract  the  value  of  the  MSB  of  the  value  in  register 

D  from  the  MSB  of  the  value  in  register  A, 

1C92H  Return  if  the  MSB  of  the  value  in  register  D  doesn't 

equal  the  MSB  of  the  value  in  register  H. 

1C93H  Load  register  A  with  the  LSB  of  the  value  in  register 

1C9^K  Subtract  the  LSB  of  the  value  in  register  E  from  the 

LSB  of  the  value  in  register  A. 


1C95H 

IC96H  -  ICAOH 

IC96H 

1C97H 

IC98H 

1C99H 

1C9AH 


Return. 

RST  0008H  CODE 

Load  register  A  with  the  character  at  the  location  of 
the  current  BASIC  program  pointer  in  register  pair 
HL. 

Exchange  the  value  of  the  current  BASIC  program 
pointer  in  register  pair  HL  with  the  value  of  the 
return  address  on  the  stack. 

Check  to  see  if  the  character  at  the  location  of  the 
return  address  in  register  pair  HL  is  the  same  as  the 
character  in  register  A. 

Bump  the  value  of  the  return  address  in  register  pair 
HL. 

Exchange  the  value  of  the  return  address  in  register 
pair  HL  with  the  value  of  the  current  BASIC  program 
pointer  on  the  stack. 

1C9BH  -  1C9DH    Jump  to  the  RST  OOIOH  code  if  the  characters  match. 
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1C93  -  1C90H  Jump  to  the  Level  II  BASIC  error  routine  and  display 
a  SN  ERROR  message  if  the  characters  don't  match. 

ICAIH  "   IDIDH    Level  II  BASIC  FOR  ROUTINE 

ICAIH  -   1CA2H     Load  register  A  with  the  value  for  the  FOR  flag. 

1CA3H  -  1CA5H  Save  the  value  in  register  A  as  the  current  value  of 
the  FOR  flag. 

1CA6H  -   1CA8H    Go  evaluate  the  N=M  portion  of  the  expression. 

1CA9H  Exchange  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL  with  the  value  on  the 
stack. 

ICAAH  -  ICACH  Go  check  to  see  if  there  is  a  FOR  statement  on  the 
stack  already  using  the  same  variable  name. 

ICADH  Get  the  current  BASIC  program  pointer  from  the 

stack  and  put  it  in  register  pair  DE. 

ICAEH  -  ICAFH  Jump  if  there  isn't  a  matching  FOR  statement  on  the 
stack. 

ICBOH  Add  the  value  in  register  pair  BC  to  the  value  in 

register  pair  HL. 

ICBIH  Load  register  pair  SP  with  the  value  in  register  pair 

HL. 

1CB2H  -  1CB4H  Save  the  value  in  register  pair  HL  as  the  stack 
pointer. 

1CB5H  Exchange  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  DE  with  the  value  of  the 
stack  pointer  address  in  register  pair  HL. 

1CB6H  -  1CB7H  Load  register  C  with  the  number  of  words  of  mem- 
ory to  check  for. 

1CB8H  -  ICBAH    Go  check  to  see  if  there  is  enough  memory  left. 

ICBBH  Save  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL  on  the  stack. 

ICBCH  -  ICBEH  Go  bump  the  current  BASIC  program  pointer  in 
register  pair  HL  till  it  points  to  the  end  of  the  BASIC 
statement. 

ICBFH  Exchange  the  adjusted  value  of  the  current  BASIC 

program  pointer  in  register  pair  HL  with  the  value  of 
the  current  BASIC  program  pointer  on  the  stack. 

ICCOH  Save  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL  on  die  stack. 
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ICCIH  "  1CC3H  Load  register  pair  HL  with  the  value  of  the  current 
BASIC  line  number. 

IGC^H  Exchange  the  value  of  the  current  BASIC  line  num- 

ber in  register  pair  HL  with  the  value  of  the  current 
BASIC  program  pointer  on  the  stack. 

1CC5H  Go  check  the  syntax.  The  character  at  the  location  of 

the  current  BASIC  program  pointer  in  register  pair 
HL  must  be  TO  token(BD). 

ICGoH  The  value  to  be  checked  for  by  the  syntax  check  is 

stored  here. 

1CC7H  Go  check  the  current  value  of  the  number  type  flag. 

1CC8H  -  ICCAH  Go  to  the  Levelll  BASIC  error  routine  and  display  a 
TM  ERROR  message  if  the  current  value  of  the 
number  type  flag  is  a  string. 

ICCBH  -  ICCDH  Go  to  the  Level  II  BASIC  error  routine  and  display  a 
TM  ERROR  message  if  the  current  value  of  tiie 
number  type  flag  is  double  precision. 

ICCEH  Save  the  value  in  register  pair  AF  on  the  stack, 

ICCFH  -  ICDIH  Go  evaluate  the  expression  at  the  location  of  the 
current  BASIC  program  pointer  in  register  pair  HL 
and  return  with  the  result  in  REGl. 

1CD2H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  AF. 

1CD3H  Save  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL  on  the  stack. 

ICD^H  "   1CD6H    Jump  if  the  current  number  type  is  single  precision. 

1CD7H  -  1CD9H    Go  convert  the  current  value  in  REGl  to  an  integer. 

1  CD  AH  Exchange  the  integer  value  in  register  pair  HL  with 

the  value  of  the  current  BASIC  program  pointer  on 
the  stack. 

ICDBH  "   ICCDH     Load  registerpair  DE  with  the  default  STEP  value. 

ICDEH  Load  register  A  with  the  character  at  the  location  of 

the  current  BASIC  program  pointer  in  register  pair 
HL. 

ICDFH  •  ICEOH  Check  to  see  if  the  character  in  register  A  is  a  STEP 
token, 

ICEIH  -  1CE3H  Go  evaluate  the  expression  at  the  location  of  the 
current  BASIC  program  pointer  in  register  pair  HL 
and  return  with  the  integer  value  in  register  pair  DE 
if  the  character  in  register  A  is  a  STEP  token. 
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ICE^H  Save  the  integer  value  in  register  pair  DE  on  the 

stack. 

1CE5H  Save  the  current  BASIC  program  pointer  in  register 

pair  HL  on  the  stack. 

1CE6H  Exchange  the  integer  value  in  register  pair  DE  with 

the  value  of  the  current  BASIC  program  pointer  in 
register  pair  HL. 

1CE7H  -  1CE9H    Go  load  register  A  with  the  value  of  the  sign  for  the 
STEP  value  in  register  pair  HL. 

ICEAH  -  ICEBH   Jump. 

ICSCH  -  ICESH  Go  convert  the  current  value  in  REGl  to  single 
precision. 

ICEFH  •»  ICFIH  Go  move  the  single  precision  value  in  REGl  into 
register  pairs  BC  and  DE. 

1CF2H  Get  the  value  of  the  current  BASIC  program  pointer 

from  the  stack  and  put  it  in  register  pair  HL. 

1CF3H  Save  the  exponent  and  the  MSB  for  the  single  preci- 

sion value  in  register  pair  BC  on  the  stack. 

ICFJ^H  Save  the  NMSB  and  the  LSB  for  the  single  precision 

value  in  register  pair  DE  on  the  stack. 

1CF5H  -  1CF7H  Load  register  pair  BC  with  the  exponent  and  the 
MSB  for  a  single  precision  constant. 

1CF8H  Zero  the  NMSB  for  the  single  precision  constant  in 

register  D. 

1CF9H  Zero  the  LSB  for  the  single  precision  constant  in 

register  E.  Register  pairs  BC  and  DE  now  hold  a 
single  precision  constant  equal  to  one. 

ICFAH  Load  register  A  with  the  character  at  the  location  of 

the  current  BASIC  program  pointer  in  register  pair 
HL. 

ICFBH  «  ICFCH  Check  to  see  if  the  character  in  register  A  is  a  STEP 
token. 

ICFDH  -  ICFEH  Load  register  A  with  the  default  sign  for  the  STEP 
value. 

ICFFH  -  IDOOH  Jump  if  the  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  A  isn't  a  STEP 
token. 

IDOIH  -  1D03H  Go  evaluate  the  expression  at  the  location  of  the 
current  BASIC  program  pointer  and  return  with  the 
result  in  REGl. 
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IDO^H  Save  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL  on  the  stack. 

1D05H  -  1D07H    Go  convert  the  current  value  in  REGl  to  single 
precision  and  return  with  the  result  in  REGl. 

1D08H  -  IDOAH    Go  move  the  single  precision  value  in  REGl  into 
register  pairs  BC  and  DE. 

IDOBH  -  IDODH    Go  get  the  sign  for  the  value  in  REGl  into  register 
A. 

IDOEH  Get  the  value  of  the  current  BASIC  program  pointer 

from  the  stack  and  put  it  in  register  pair  HL. 

IDOFH  Save  the  exponent  and  the  NMSB  for  the  single 

precision  value  in  register  pair  BC  on  the  stack. 

IDIOH  Save  the  NMSB  and  the  LSB  for  the  single  precision 

value  in  register  pair  DE  on  the  stack. 

IDllH  Load  register  C  with  the  sign  value  in  register  A. 

1D12H  Go  check  the  current  value  of  the  number  type  flag. 

1D13H  Load  register  B  with  the  value  of  the  number  type 

flag  test  in  register  A. 

IDlte  Save  the  value  in  register  pair  BC  on  the  stack. 

1D15H  Save  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL  on  the  stack. 

1D16H  -   1D18H    Load  register  B  with  a  FOR  token. 

IDI9H  Exchange  the  value  of  the  variable  address  in  regis- 

ter pair  HL  with  the  value  of  the  current  BASIC 
program  pointer  on  the  stack. 

IDIAH    -  IDIBH   Load  register  B  with  the  FOR  token. 
IDICH  Save  the  value  in  register  pair  BC  on  the  stack. 

IDIDH  Bump  the  value  of  the  stack  pointer. 

IDIEH  -  1D77H   LEVEL  II  BASIC  INTERPRETER 

IDIEH  -  1D20H   Go  check  to  see  if  a  key  has  been  pressed. 

1D21H  Set  the  flags. 

1D22H  -  1D24h  Go  check  to  see  if  the  key  pressed  was  a  shift®. 

1D25H  -   1D27H  Save  the  value  of  the  current  BASIC  program  point- 
er, 

1D28H  "  1D2BH  Save  the  value  of  the  stack  pointer. 
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lj)2CH  Load  register  A  with  the  value  at  the  location  of  the 

current  BASIC  program  pointer  in  register  pair  HL. 

1D2DH  "  1D2EPI    Check  to  see  if  the  character  in  register  A  is  a  colon. 

1D2FH  -   1D30H    Jump  if  the  character  in  register  A  is  a  colon, 

1D31H  Check  to  see  if  the  character  in  register  A  is  an  end  of 

die  BASIC  line  character. 

1D32H  -  1D3j4'H  Go  to  the  Level  II  basic  error  routine  and  display  a 
SN  ERROR  message  if  the  character  in  register  A 
isn't  an  end  of  the  BASIC  line  character. 


1D35H 
1D36H 

1D37H 
1D38H 


Bump  the  value  of  the  current  BASIC  program  point- 
er in  register  pair  HL. 

Load  register  A  with  the  LSB  of  the  next  BASIC  line 
pointer  at  the  location  of  the  current  BASIC  program 
pointer  in  register  pair  HL. 

Bump  the  value  of  the  current  BASIC  program 
pointer  in  register  pair  HL. 

Check  to  see  if  the  next  BASIC  line  pointer  is  equal 
to  zero. 


1D39H  -   1D3BH  Jump  if  this  is  the  end  of  the  BASIC  program. 
1D3CH 


1D3DH 

1D3EH 
1D3FH 

ID^I-OH 

ID^IH  "  1D43H 

ID^^H  "  1D^6H 

1D47H 

1D^8H  -  1D^9H 


Bump  the  value  of  the  current  BASIC  program 
pointer  in  register  pair  HL. 

Load  register  E  with  the  LSB  of  the  BASIC  line 
number  at  the  location  of  the  current  BASIC  pro- 
gram pointer  in  register  pair  HL 

Bump  the  value  of  the  current  BASIC  program 
pointer  in  register  pair  HL. 

Load  register  D  with  the  MSB  of  the  BASIC  line 
number  at  the  location  of  the  current  BASIC  pro- 
gram pointer  in  register  pair  HL. 

Exchange  the  value  of  the  BASIC  line  number  in 
register  pair  DE  with  the  value  of  the  current  BASIC 
program  pointer  in  register  pair  HL. 

Save  the  value  of  the  BASIC  line  number  in  register 
pair  HL. 

Load  register  A  with  the  value  of  the  TRON  flag. 

Check  for  TRON. 

Jump  if  TROFF. 
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ID^AH  Save  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  DE  on  the  stack. 

ID^BH  -   1D4CH    Load  register  A  with  a  <. 

1D4DH  -  ID^FH  Go  display  the  character  in  register  A  on  the  video 
display. 

1D50H  -  1D52H  Go  display  the  current  BASIC  line  number  in  regis- 
ter pair  HL  on  the  video  display. 

1D53H  -  lD5te    Load  register  A  with  a  >. 

1D55H  "  1D57H  Go  display  the  character  in  register  A  on  the  video 
display, 

^^58H  Get  the  value  of  the  current  BASIC  program  pointer 

from  the  stack  and  put  it  in  register  pair  DE. 

^^59H  Load  register  pair  HL  with  the  value  of  the  current 

BASIC  program  pointer  in  register  pair  DE. 

1D5AH  Go  bump  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL  till  it  points  to  the  next 
character. 

1D5BH  -  1D5DH   Load  register  pair  DE  with  the  return  address. 

1D5EH  Save  the  return  address  in  register  pair  DE  on  the 

stack. 

1D5FH  Return  if  the  character  at  the  location  of  the  current 

BASIC  program  pointer  in  register  pair  HL  is  an  end 
of  the  BASIC  line  character. 

1D60H  -  1D61H  Check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is  a 
token. 

1D62H  -  1D6^H  Jump  if  the  character  in  register  A  isn't  a  BASIC 
token. 

1D65H  -  1D66H  Check  to  see  if  the  token  in  register  A  is  less  than  a 
TAB(  token. 

1D67H  -  ID69H  Jump  if  the  token  in  register  A  is  greater  than  or 
equal  to  a  TAB(  token. 

1D6AH  Multiply  the  token  value  in  register  A  by  two. 

1D6BH  Load  the  adjusted  token  value  in  register  C  from 

register  A. 

1D6CH  -  1D6DH  Load  register  B  with  zero. 
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1D6EH  Load  register  pair  DE  with  the  value  of  the  current 

BASIC  program  pointer  in  register  pair  HL. 

1D6FH  -  1D71H    Load  register  pair  HL  with  the  Ust  of  BASIC  execu- 
tion adc&esses. 

1D72H  Add  the  value  of  the  token  offset  in  register  pair  BC 

to  the  starting  address  of  the  list  of  BASIC  execution 
addresses  in  register  pair  HL. 

1D73H  Load  register  C  with  the  LSB  of  the  execution  ad- 

dress at  the  location  of  the  memory  pointer  in  reg- 
ister pair  HL. 

lD7te  Bump  the  value  of  the  memory  pointer  in  register 

pair  HL. 

1D75H  Load  register  B  with  the  MSB  of  the  execution 

address  at  the  location  of  the  memory  pointer  in 
register  pair  HL. 

ID76H  Save  the  value  of  the  execution  address  in  register 

pair  BC  on  the  stack. 

1D77H  Load  register  pair  HL  with  the  value  of  the  current 

BASIC  program  pointer  in  register  pair  DE. 


1D78H  -  ID9OH    RSTOOIOHCODE 

1D78H 


Bump  the  value  of  the  current  BASIC  program 
pointer  in  register  pair  HL. 

1D79H  Load  register  A  with  the  value  of  the  character  at  the 

location  of  the  current  BASIC  program  pointer  in 
register  pair  HL. 

1D7AH  -  1D7BH  Check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  m  register  A  is 
greater  than  or  equal  to  a  colon. 

1D7CH  Return  if  the  character  at  the  location  of  the  current 

BASIC  program  pointer  in  register  A  is  greater  than 
or  equal  to  a  colon. 

1D7DH  -  1D7EH  Check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is  a 
space. 

1D7FH  -  1D81H  Loop  if  the  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  A  is  a  space. 

1D82H  «-  1D83H  Check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is 
greater  than  or  equal  to  OBH. 

1D8^H  -  1D85H    Jump  if  the  character  at  the  location  of  the  current 
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BASIC  program  pointer  in  register  A  if  greater  than 
or  equal  to  OBH. 

1D86H  -  1D87H  Check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is 
greater  than  or  equal  to  09H. 

1D88H  "  1D8AH  Loop  if  the  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  A  is  greater  than 
or  equal  to  09H. 

1D8BH  -  1D8CH  Check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is 
greater  than  or  equal  to  a  zero  character. 

1D8DH  Complement  the  value  of  the  Carry  flag. 

1D8EH  Bump  the  value  of  the  character  at  the  location  of  the 

current  BASIC  program  pointer  in  register  A. 

1D8FH  Decrement  the  value  of  the  character  at  the  location 

of  the  current  BASIC  program  pointer  in  register  A. 

1D90H  Return. 

1D91H  -  1D9AH    LEVEL  II  BASIC  RESTORE  ROUTINE 

ID9IH  Load  register  pair  DE  with  the  value  of  the  current 

BASIC  program  pointer  in  register  pair  HL. 

1D92H  -  lD9te  Load  register  pair  HL  with  the  start  of  the  BASIC 
program  pointer. 

1D95H  Decrement  the  start  of  the  BASIC  program  pointer 

in  register  pair  HL. 

ID96H  -  ID98H  Save  the  adjusted  value  in  register  pair  HL  as  the 
current  DATA  pointer. 

1D99H  Load  register  pair  HL  with  the  value  of  the  current 

BASIC  program  pointer  in  register  pair  DE. 

1D9AH  Return. 

1D9BH  -  IDADH   SCAN  KEYBOARD  ROUTINE 

1D9BH  -  1D9DH   Go  scan  the  keyboard. 

ID9EH  Check  to  see  if  a  key  was  pressed. 

ID9FH  Return  if  a  key  wasn't  pressed. 

IDAOH  -  IDAIH  Check  to  see  if  the  key  pressed  in  register  A  is  a 
shift  @  key. 

1DA2H  -  IM^H  Go  wait  for  another  key  to  be  pressed  if  the  key 
pressed  in  register  A  was  a  shift  @  key. 
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1DA5H  -  1DA7H  Save  the  key  pressed  in  register  A  as  the  value  of  the 
last  key  pressed. 

1DA8H  Check  to  see  if  the  BREAK  key  was  pressed. 

1DA9H  Return  if  the  BREAK  key  wasn't  pressed. 

IDAAH  Readjust  the  value  of  the  key  pressed  in  register  A. 

IDABH  -  IDADH  Jump. 

IDAEH  -  1DE3H  LEVEL  II  BASIC  END  ROUTINE 

IDAEH  Return  and  display  a  SN  ERROR  message  if  there  is 

anything  following  the  END  token. 

IDAFH  Save  the  value  in  register  pair  AF  on  the  stack. 

IDBOH  -  1DB2H  Go  call  the  DOS  link  at  41BBH. 

1DB3H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  AF. 

IDBto  -  1DB6H  Save  the  value  of  the  current  BASIC  program 
pointer  in  register  pair  HL. 

1DB7H  -  1DB9H  Load  register  pair  HL  with  the  starting  address  of 
the  temporary  string  work  area. 

IDBAH  -   IDBCH   Save  the  value  in  register  pair  HL  as  the  new  tem- 
porary string  work  area  pointer, 

IDBEH  -  IDBFH  Set  the  flags. 

IDCOH  Get  the  value  from  the  stack  and  put  it  in  register 

pair  BC. 

IDCIH  -  1DC3H   Load  register  pair  HL  with  the  value  of  the  current 
BASIC  line  number. 

IDC^H  Save  the  value  of  the  current  BASIC  line  number  in 

register  pair  HL  on  the  stack. 

1DC5H  Save  the  value  in  register  pair  AF  on  the  stack. 

1DC6H  Load  register  A  with  the  LSB  of  the  current  BASIC 

line  number  in  register  L. 

1DC7H  Combine  the  MSB  of  the  current  BASIC  line  number 

in  register  H  with  the  LSB  of  the  current  BASIC  line 
number  in  register  A. 

1DC8H  Bump  the  combined  value  of  the  current  BASIC  line 

number  in  register  A. 

1DC9H  -  IDCAH    Jump  if  Level  II  BASIC  is  in  the  command  mode. 
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IDCBH  -  IDCDH    Save  the  value  of  the  current  BASIC  line  number  in 
register  pair  HL. 

IDCEH  -   IDDOH    Load  register  pair  HL  with  the  value  of  the  current 
BASIC  program  pointer. 

IDDIH  -  1DD3H   Save  the  value  of  the  current  BASIC  program 
pointer  in  register  pair  HL. 

IDDto  -  1DD6H   Go  set  the  current  output  device  to  the  video  dis- 
play. 

1DD7H  -  1DD9H  Go  display  a  carriage  return  if  necessary. 

IDDAH  Get  the  value  from  the  stack  and  put  it  in  register 

pair  AF. 

IDDBH  -   IDDDH   Load  register  pair  HL  with  the  starting  address  of 
the  BREAK  message. 

IDDEH  "  IDEOH  Jump  if  it  was  a  BREAK  or  a  STOP  that  halted 
program  execution. 

IDEIH  -  1DE3H  Jump. 

IDEto  -  1DF6H  LEVEL  II  BASIC  CONT  ROUTINE 

IDE^H  -   1DE6H  Load  register  pair  HL  with  the  value  of  the  continu- 
ation address. 

1DE7H  Load  register  A  with  the  MSB  of  the  continuation 

address  in  register  H. 

1DE8H  Combine  the  LSB  of  the  continuation  address  in 

register  L  with  the  MSB  of  the  continuation  address 
in  register  A. 

1DE9H  -  IDEAH    Load  register  E  with  a  CN  ERROR  code. 

IDEBH  -  IDEDH    Go  to  the  Levelll  BASIC  error  routine  and  display  a 
CN  ERROR  message  if  CONT  isn't  possible. 

IDEEH  Load  register  pair  DE  with  the  value  of  the  continu- 

ation address  in  register  pair  HL, 

IDEFH  "  IDFIH   Load  register  pair  HL  with  the  value  of  the  last 
BASIC  line  number  executed. 

1DF2H  -  IDFte  Save  the  last  line  number  executed  in  register  pair 
HL  as  the  current  BASIC  line  number. 

1DF5H  Load  register  pair  HL  with  the  value  of  the  continu- 

ation address  in  register  pair  DE. 

1DF6H  Return. 

1DF7H  -  1DF8H  TRON  ENTRY  POINT 
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1DF7H  "  1DF8H  Load  register  A  with  a  nonzero  value. 
1DF8H  TROFF  ENTRY  POINT 

1DF8H  Zero  register  A. 

1DF9H  «  IDFCH  COMMON  CODE  SHARED 
BY  TRON  AND  TROFF 

1DF9H  -  IDFBH  Save  the  value  in  register  A  as  the  current  value  of 
the  TRON/TROFF  flag. 

IDFCH  Return. 

IDFDH  "   IDFFH  DISK  ROUTINE  NOT 

USED  BY  LEVEL  II  BASIC. 

lEOOH  "  1E02H  DEFSTR  ENTRY  POINT 

lEOOH  -  lEOlH  Load  register  E  with  the  string  number  type  flag 
(03H). 

1E03H  "  1E05H  DEFINT  ENTRY  POINT 

1E03H  -  lEO^H  Load  register  E  with  the  integer  number  type  flag 
(02H). 

1E06h  -  lEOBH  DEFSNG  ENTRY  POINT 

1E06H  -  1E07H  Load  register  E  with  the  single  precision  number 
type  flag  (04H). 

1E09H  -  lEOAH  DEFDBL  ENTRY  POINT 

IEO9H  -  lEOAH  Load  register  E  with  the  double  precision  number 
type  flag  (08H). 

lEOBH  -  1E3CH  COMMON  CODE  SHARED  BY 

DEFSTR,  DEFINT,  DEFSNG,  AND  DEFDBL 

lEOBH  -  lEODH  Go  check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is 
alphabetic. 

lEOEH  -  lElOH  Load  register  pair  EC  with  a  return  address  which 
will  return  to  the  SN  ERROR  routine. 

lEllH  Save  the  value  of  the  return  address  in  register  pair 

EC  on  the  stack. 

1E12H  Return  if  the  character  at  the  location  of  the  current 

BASIC  program  pointer  in  register  A  isn't  alpha- 
betic. 

1E13H  -  lEl^H  Subtract  41H  from  the  letters  value  in  register  A  so 
that  it  will  be  in  the  range  of  0-25. 
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1E15H  Load  register  C  with  the  adjusted  value  in  register 

A. 

1E16H  Load  register  B  with  the  adjusted  value  in  register 

A. 

1E17H  Go  bump  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL  until  it  points  to  the  next 
character. 

1E18H  "  IEI9H    Check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is  a  -. 

lElAH  -  lElBH  Jump  if  the  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  A  isn't  a  -. 

lElCH  Go  bump  the  current  BASIC  program  pointer  in 

register  pair  HL  until  it  points  to  the  next  character. 

lElDH  -  lElFH   Go  check  to  see  if  the  character  in  register  A  is 
alphabetic. 

1E2  OH  Return  if  the  character  at  the  location  of  the  current 

BASIC  program  pointer  in  register  A  isn't  alpha- 
betic. 

1E21H  -   1E22H    Subtract  41H  from  the  letter's  value  in  register  A  so 
that  it  will  be  in  the  range  of  0-25. 

1E23H  Load  register  B  with  the  adjusted  value  in  register 

A. 

1E24H  Go  bump  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL  until  it  points  to  the  next 
character. 

1E25H  Load  register  A  with  the  value  of  the  second  letter  in 

register  B. 

1E26H  Subtract  the  value  of  the  first  letter  in  register  C 

from  the  value  of  the  second  letter  in  register  A. 

1E27H  Return  if  the  letter  values  are  in  descending  order. 

1E28H  Bump  the  value  in  register  A  so  that  it  holds  the 

number  of  variable  names  to  be  changed. 

1E29H  Exchange  the  value  of  the  return  address  on  the 

stack  widi  the  value  of  the  current  BASIC  program 
pointer  in  register  pair  HL, 

1E2AH  -  1E2CH    Load  register  pair  HL  with  the  starting  address  of 
the  variable  declaration  table. 

1E2DH  -  1E2EH   Load  register  B  with  zero. 

1E2  FH  Add  the  value  of  the  first  letter  in  register  pair  BC  to 
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the  value  of  the  starting  address  of  the  variable 
declaration  table  in  register  pair  HL. 

1E3  OH  Save  the  number  type  flag  in  register  E  at  the  loca- 

tion of  the  memory  pointer  in  register  pair  HL. 

1E31H  Bump  the  value  of  the  memory  pointer  in  register 

pair  HL. 

1E32H  Decrement  the  count  of  the  number  of  variables  to 

be  changed  in  register  A. 

1E33H  -  1E3^H   Loop  until  all  of  the  variables  have  been  changed. 

1E35H  Get  the  value  of  the  current  BASIC  program  pointer 

from  the  stack  and  put  it  in  register  pair  HL. 

1E36H  Load  A  with  the  character  at  the  location  of  the 

current  BASIC  program  pointer  in  register  pair  HL. 

1E37H  -  1E38H  Check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is  a 
comma. 

1E39H  Return  if  the  character  at  the  location  of  the  current 

BASIC  program  pointer  in  register  A  isn't  a  comma. 

1E3AH  Go  bump  the  current  BASIC  program  pointer  in 

register  pair  HL  until  it  points  to  the  next  character. 

1E3BH  -  1E3CH   Loop  until  done. 

1E3DH  -  lEkkK   EXAMINE  VARIABLE 

1E3DH  Load  register  A  with  the  character  at  the  location  of 

the  current  BASIC  program  pointer  in  register  pair 
HL. 

1E3EH  -  1E3FH  Check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is  less 
than  an  A, 

lE^OH  Return  if  the  character  at  the  location  of  the  current 

BASIC  program  pointer  in  register  A  is  less  than  an 
A. 

lE^lH  "  1E^2H  Check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is 
greater  than  a  Z. 

1E^3H  Complement  the  value  of  the  Carry  flag.  On  exit  this 

routine  will  have  the  Carry  flag  set  if  the  character  at 
the  location  of  the  current  BASIC  program  pointer  in 
register  A  isn't  alphabetic  and  will  have  the  Carry 
flag  cleared  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is 
alphabetic. 
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1E44H  Return. 

1E^5H  -  lE^EH  EXAMINE  VARIABLE 

1E45H  Go  bump  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL  till  it  points  to  the  next 
character. 

1E46H  "  1E48H  Go  evaluate  the  expression  at  the  current  location  of 
the  BASIC  program  pointer  in  register  pair  HL  and 
return  with  the  integer  result  in  register  pair  DE. 

1E49H  Return  if  the  integer  result  in  register  pair  DE  is 

positive. 

1E4AH  "  1E4BH   Load  register  E  with  an  FC  ERROR  code. 

lE^CH  -  lE^EH  Go  to  the  Level  II  BASIC  error  routine  and  display  a 
FC  ERROR  message  if  the  integer  result  in  register 
pair  DE  is  negative. 

lE^FH  -  1E79H  ASCII  TO  BINARY 

lE^FH  Load  register  A  with  the  character  at  the  location  of 

the  current  BASIC  program  pointer  in  register  pair 
HL. 

1E50H  -  1E51H  Check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is  a 
period. 

1E52H  Load  register  pair  DE  with  the  value  of  the  current 

BASIC  program  pointer  in  register  pair  HL. 

1E53H  -  1E55H  Load  register  pair  HL  with  the  current  BASIC  line 
number. 

1E56H  Exchange  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  DE  with  the  current  BASIC 
line  number  in  register  pair  HL. 

1E57H  -  1E59H  Jump  if  the  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  A  is  a  period. 

1E5AH  Decrement  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL. 

1E5BH  -  1E5DH  Load  register  pair  DE  with  zero. 

1E5EH  Go  bump  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL  until  it  points  to  the  next 
character. 

1E5FH  Return  if  the  character  at  the  location  of  the  current 

BASIC  program  pointer  in  register  A  isn't  numeric. 

1E60H  Save  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL  on  the  stack. 
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1E61H  Save  the  value  in  register  pair  AF  on  the  stack. 

1E62H  -  1E6^H  Load  register  pair  HL  with  6552. 

1E65H  Check  to  see  if  the  integer  value  in  register  pair  DE 

is  greater  than  6552. 

1E66H  -  1E68H  Go  to  the  Level  II  BASIC  error  routine  and  display  a 
SN  ERROR  message  if  the  value  in  register  pair  DE 
is  greater  than  6552. 

IE69H  Load  register  H  with  the  MSB  of  the  integer  total  in 

register  D. 

1E6AH  Load  register  L  with  the  LSB  of  the  integer  total  in 

register  E. 

1E6BH  Multiply  the  integer  value  in  register  pair  HL  by 

two. 

1E6CH  Multiply  the  integer  value  in  register  pair  HL  by 

two.  The  integer  result  in  register  pair  HL  is  now 
equal  to  the  integer  value  in  register  pair  DE  times 
four. 

1E6DH  Add  the  integer  value  in  register  pair  DE  to  the 

integer  value  in  register  pair  HL.  The  integer  result 
in  register  pair  HL  is  now  equal  to  the  integer  value 
in  register  pair  DE  times  five. 

1E6EH  Multiply  the  integer  value  in  register  pair  HL  by 

two.  The  integer  result  in  register  pair  HL  is  now 
equal  to  the  integer  value  in  register  pair  DE  times 
ten. 

1E6FH  Get  the  value  from  the  stack  and  put  it  in  register 

pair  AF. 

IS7OH  "   1E71H  Convert  the  ASCII  digit  in  register  A  to  binary. 

1E72H  Load  register  E  with  the  binary  value  of  the  charac- 

ter in  register  A. 

1E73H  -  lE7te  Load  register  D  with  zero. 

1E75H 


1E76H 

1E77H 
1E78H 

388 


Add  the  binary  value  of  the  character  in  register  pair 
DE  to  the  integer  value  in  register  pair  HL. 

Load  register  pair  DE  with  the  integer  result  in 
register  pair  HL. 

Get  the  value  of  the  current  BASIC  program  pointer 
from  the  stack  and  put  it  in  register  pair  HL. 

"  1E79H  Loop  till  the  ASCII  to  binary  conversion  has  been 
completed. 


1E7AH  -  lEAOH  LEVEL  II  BASIC  CLEAR  ROUTINE 

1E7AH  -  1E7CH  Jump  if  there  isn*t  a  number  of  bytes  specified  to 
clear  for  string  space. 

1E7DH  "  1D7FH  Go  evaluate  the  number  of  bytes  to  be  reserved  for 
string  space  and  return  with  the  integer  result  in 
register  pair  DE. 


1D80H 
1E81H 

1E82H 

1E83H 

1E84H  -  1E86H 

1E87H 

1E88H 

1E89H 
1E8AH 
1E8BH 

1E8CH 

1E8DH  "  1E8FH 


1E90H 
1E93H 
IE96H 


Decrement  the  current  BASIC  program  pointer  in 
register  pair  HL. 

Go  bump  the  value  of  the  current  BASIC  program 
pointer  in  register  pair  HL  until  it  points  to  the  next 
character. 

Return  if  the  character  at  the  location  of  the  current 
BASIC  program  pointer  isn't  an  end  of  the  BASIC 
statement  character. 

Save  the  value  of  the  current  BASIC  program 
pointer  in  register  pair  HL  on  the  stack. 

Load  register  pair  HL  with  the  top  of  memory 
pointer. 

Load  register  A  with  the  LSB  of  the  top  of  memory 
pointer  in  register  L. 

Subtract  the  LSB  of  the  number  of  bytes  for  string 
space  in  register  E  from  the  LSB  of  the  top  of 
memory  pointer  in  register  A. 

Load  register  E  with  the  LSB  of  the  start  of  string 
space  in  register  A. 

Load  register  A  with  the  MSB  of  the  top  of  memory 
pointer  in  register  H. 

Subtract  the  MSB  of  the  number  of  bytes  for  string 
space  in  register  D  from  the  MSB  of  the  top  of 
memory  pointer  in  register  A. 

Load  re^ster  D  with  the  MSB  of  the  start  of  string 
space  pointer  in  register  A. 

Go  to  the  Level  II  BASIC  error  routine  and  display 
an  OM  ERROR  message  if  there  isn't  enough  mem- 
ory for  the  amount  of  string  space  specified. 

1E92H  Load  register  pair  HL  with  the  end  of  the  BASIC 
program  pointer. 

1E95H   Load  register  pair  BC  with  the  least  amount  of  space 
needed  for  BASIC  program  variables. 

Add  the  value  in  register  pair  BC  to  the  end  of 
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BASIC  program  pointer  in  register  pair  HL. 

1E97H  Go  compare  the  adjusted  end  of  the  BASIC  program 

pointer  in  register  pair  HL  to  the  start  of  string  space 
pointer  in  register  pair  DE. 

1E98H  "  1E9AH  Go  to  the  Level  II  BASIC  error  routine  and  display 
an  OM  ERROR  message  if  the  start  of  stnng  space 
pointer  in  register  pair  DE  is  less  than  the  adjusted 
end  of  the  BASIC  program  pointer  in  register  pair 
HL. 

1E9BH  Load  register  pair  HL  with  the  start  of  string  space 

pointer  in  register  pair  DE. 

1E9CH  -  1E9EH  Save  the  start  of  string  space  pointer  in  register  pair 
HL. 

1E9FH  Get  the  value  of  the  current  BASIC  program  pointer 

from  the  stack  and  put  it  in  register  pair  HL. 

lEAOH  -  1EA2H  Jump. 

1EA3H  -  lEBOH  LEVEL  II  BASIC  RUN  ROUTINE 

1EA3H  -  1EA5H  Jump  if  there  isn't  a  line  number  specified  after  the 
RUN  token. 

iEA6H  -  1EA8H  Call  the  DOS  line  at  41C7H. 

1EA9H  -  lEABH  Go  initialize  the  BASIC  variables  and  pointers. 

lEACH  -   lEAEH  Load  register  pair  BC  with  the  return  address. 

lEAFH  -  lEBOH  Jump. 

lEBlH  -  lEClH  LEVEL  II  BASIC  GOSUB  ROUTINE 

lEBlH  -  1EB2H  Load  register  B  with  the  number  of  bytes  needed  for 
the  GOSUB  push. 

1EB3H  -  1EB5H  Go  make  sure  that  there's  enough  memory  for  the 
GOSUB  push. 

1EB6H  Get  the  return  address  from  the  stack  and  put  it  in 

register  pair  BC. 

1EB7H  Save  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL  on  the  stack. 

1EB8H  Save  the  value  of  the  current  BASIC  program 

pointer  on  the  stack. 

1EB9H  -  lEBBH  Load  register  pair  HL  with  the  value  of  the  current 
BASIC  hne  number. 
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lEBCH  Exchange  the  value  of  the  current  BASIC  program 

pointer  on  the  stack  with  the  value  of  the  current 
BASIC  line  number  in  register  pair  HL. 

Load  register  A  with  a  GOSUB  token. 

Save  the  value  in  register  pair  AF  on  the  stack. 

Bump  the  value  of  the  stack  pointer. 

Save  the  return  address  in  register  pair  BC  on  the 
stack. 

LEVEL  II  BASIC  GOTO  ROUTINE 

Go  evaluate  the  line  number  at  the  location  of  the 
current  BASIC  program  pointer  in  register  pair  HL 
and  return  with  the  result  in  register  pair  DE. 

1EC5H  -  1EC7H  Go  bump  the  current  BASIC  program  pointer  in 
register  pair  HL  till  it  points  to  the  end  of  the  current 
BASIC  line. 


lEBDH  - 

lEBEH 

lEBFH 

lECOH 

lEClH 

1EG2H  - 

lEDDH 

1EC2H  - 

1EC4H 

1EC8H 

1EC9H  -  lECBH 

ISCCH 

lECDH 
lECEH 
lECFH  -  lEDl 

1ED2H  -  1ED4H 

1ED5H 
1ED6H 
1ED7H 


Save  the  value  of  the  current  BASIC  program  point- 
er in  register  pair  HL  on  the  stack. 

Load  register  pair  HL  with  the  value  of  the  current 
BASIC  line  number. 

Go  compare  the  value  of  the  current  BASIC  line 
number  in  register  pair  HL  with  the  value  of  the  line 
number  to  branch  to  in  register  pair  DE. 

Get  the  value  of  the  current  BASIC  program  pointer 
from  the  stack  and  put  it  in  register  pair  HL. 

Bump  the  value  of  the  current  BASIC  program 
pointer  in  register  pair  HL. 

If  the  line  number  to  branch  to  in  register  pair  DE  is 
greater  than  the  current  BASIC  line  number  then  go 
find  where  the  line  number  is  located. 

If  the  line  number  to  branch  to  in  register  pair  DE  is 
less  than  the  current  BASIC  line  number,  then  go 
find  where  the  line  number  is  located. 

Load  register  H  with  the  MSB  of  the  new  BASIC 
program  pointer  in  register  B. 

Load  register  L  with  the  LSB  of  the  new  BASIC 
program  pointer  in  register  C. 

Decrement  the  value  of  the  current  BASIC  program 
pointer  in  register  pair  HL. 
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1ED8H  Jump  if  the  new  line  number  was  found. 

1ED9H  -  lEDAH  Load  register  E  with  an  UL  ERROR  code. 

lEDBH  -  lEDDH  Go  to  the  Level  II  BASIC  error  routine  and  display 
an  UL  ERROR  message  if  the  line  number  wasn't 
found. 

lEDEH  "  lEO^H  LEVEL  II  BASIC  RETURN  ROUTINE 

lEDEH  Go  to  the  Level  II  BASIC  error  routine  and  display  a 

SN  ERROR  message  if  there  is  anything  following 
the  RETURN  token. 

lEDPH  -  lEEOH  Load  register  D  with  FFH 

lEElH  -  1EE3H  Go  backspace  the  stack  pointer  by  four  and  return 
with  the  value  at  the  location  of  the  stack  pointer  in 
register  A. 

lEE^H  Load  the  stack  pointer  with  the  new  value  in  register 

pair  HL. 

1EE5H  -  1EE7HS  Save  the  stack  pointer  position  in  register  pair  HL. 

1EE8H  -  1EE9H  Check  to  see  if  the  value  in  register  A  is  a  GOSUB 
token. 

lEEAH  -  lEEBH  Load  register  E  with  a  RG  ERROR  code. 

lEECH  "  lEEEH  Go  to  the  Level  II  BASIC  error  routine  and  display  a 
RG  ERROR  message  if  there  isn't  a  GOSUB  push  on 
the  stack. 

lEEFH  Get  the  value  of  the  GOBUS  line  number  from  the 

stack  and  put  it  in  register  pair  HL. 

lEFOH  -  1EF2H  Save  the  GOSUB  line  number  in  register  pair  HL  as 
the  current  BASIC  line  number. 

1EF3H  Bump  the  value  of  the  current  BASIC  line  number  in 

register  pair  HL. 

lEF^H  Load  register  A  with  the  MSB  of  the  adjusted  cur- 

rent BASIC  line  number  in  register  pair  HL. 

1EF5H  Combine  the  LSB  of  the  adjusted  current  BASIC  line 

number  in  register  L  with  the  adjusted  MSB  of  the 
current  BASIC  line  number  in  register  A. 

1EF6H  -  1EF7H  Jump  if  Level  II  BASIC  is  in  the  command  mode. 

1EF8H  "  lEFAH   Load  register  A  with  the  command  mode  flag. 

lEFBH  Check  for  the  command  mode. 
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lEFEH 
IFOIH 


1F20H 
1F08H 
IFOAH 


lEFCH 

lEFFH 
1F02H 

1F05H 
1F07H 
1F09H 
IFOBH 

IFOCH 

IFODH 

IFOEH 

IFOFH 
IFIOH 
IFllH 
1F12H 

1F13H 

IFlte  -  1F15H 


1F16H 
1F18H 


1F17H 
1F19H 


Jump  if  Level  II  BASIC  is  in  the  command  mode. 

Load  register  pair  HL  with  the  return  address. 

Exchange  the  value  of  the  current  BASIC  program 
pointer  on  the  stack  with  the  return  address  in  reg- 
ister pair  HL. 

SCAN  ROUTINE 

Load  register  C  with  zero. 

Load  register  B  with  zero. 

Load  register  A  with  the  stop  scan  character  in 
register  C. 

Load  register  C  with  the  stop  scan  character  in 
register  B. 

Load  register  B  with  the  stop  scan  character  in 
register  A. 

Load  register  A  with  the  character  at  the  location  of 
the  current  BASIC  program  pointer  in  register  pair 
HL. 

Check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is  an 
end  of  the  BASIC  line  character. 

Return  if  the  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  A  is  an  end  of  the 
BASIC  line  character. 

Check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is  the 
same  as  the  stop  scan  character  in  register  B. 

Return  if  the  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  A  is  the  same  as 
the  stop  scan  character  in  register  B. 

Bump  the  value  of  the  current  BASIC  program 
pointer  in  register  pair  HL. 

Check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is  a 
quote. 

Loop  if  the  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  A  is  a  quote. 

Check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is  an  IF 
token. 
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IFIAH  -  IFIBH  Loop  if  the  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  A  isn't  an  IF 
token. 

IPICH  Check  to  see  if  the  character  at  the  location  of  the 

current  BASIC  program  pointer  in  register  A  is  the 
same  as  the  character  in  register  B. 

IFIDH  Add  the  value  in  register  D  to  the  value  in  register  A. 

IFIEH  Load  register  D  with  the  value  in  register  A. 

IFIFH  -   1F20H   Loop  until  scan  is  completed. 

1F21H  -  1F6BH    LEVEL  11  BASIC  LET  ROUTINE 

1F21H  -  1F23H  Go  examine  the  variable  at  the  location  of  the  cur- 
rent BASIC  program  pointer  in  register  pair  HL  and 
return  with  the  variable's  address  in  register  pair 
DE. 

1F24H  Go  check  the  syntax.  The  character  at  the  location  of 

the  current  BASIC  program  pointer  in  register  pair 
HL  must  be  an  equal  token  (D5). 

1F25H  The  character  to  be  checked  for  is  stored  here. 

1P26H  Exchange  the  address  of  the  variable  in  register  pair 

DE  with  the  value  of  the  current  BASIC  program 
pointer  in  register  pair  HL. 

1F27H  -   1F29H    Save  the  address  of  the  variable  in  register  pair  HL. 

1F2AH  Exchange  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  DE  with  the  address  of  the 
variable  in  register  pair  HL. 

1F2BH  Save  the  address  of  the  variable  in  register  pair  DE 

on  the  stack. 

1F2CH  Go  check  the  current  value  of  the  number  type  flag. 

1F2DH  Save  the  value  in  register  pair  AF  on  the  stack. 

1F2EH  "  1F30H  Go  evaluate  the  expression  at  the  location  of  the 
current  BASIC  program  pointer  in  register  pair  HL 
and  return  with  the  result  in  REGl. 

1^3  {LH  Get  the  value  from  the  stack  and  put  it  in  register 

pair  AF. 

1F32H  Exchange  the  address  of  the  variable  on  the  stack 

with  the  value  of  the  current  BASIC  program  pointer 
in  register  pair  HL. 

1F33H  -  1F3^H  Adjust  the  value  in  register  A  so  that  it  will  hold  the 
correct  number  type  flag. 
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1F35H  -  1F37H  Go  convert  the  result  in  REGl  to  the  same  number 
type  for  the  variable. 

1F38H  -   1F3AH  Go  save  the  result  of  the  expression. 

1F3BH  Save  the  address  of  the  variable  in  register  pair  DE 

on  the  stack. 

1F3CH  -  1F3DH  Jumpiftheresultof  the  expression  wasn't  a  string. 

1F3EH  -  IF^OH  Load  register  pair  HL  with  the  starting  address  of 
the  string's  VARPTR  in  REGl. 

IF^IH  Save  the  VARPTR  for  the  string  result  in  register 

pair  HL  on  the  stack. 

1F42H  Bump  the  value  of  the  VARPTR  for  the  string  result 

in  register  pair  HL. 

1F^3H  Load  register  E  with  the  LSB  of  the  address  for  the 

string  at  the  location  of  the  VARPTR  for  the  string  in 
register  pair  HL. 

IF^^H  Bump  the  value  of  the  VARPTR  for  the  string  result 

in  register  pair  HL. 

1F^5H  Load  register  D  with  the  MSB  of  the  address  for  the 

string  at  the  location  of  the  VARPTR  for  the  string  in 
register  pair  HL. 

1F^6H  -  1F^8H  Load  register  pair  HL  with  the  start  of  the  BASIC 
program. 

1F^9H  Go  compare  the  start  of  the  BASIC  program  area  in 

register  pair  HL  with  the  address  of  the  string  result 
in  register  pair  DE. 

IF^AH  -  IF^BH  Jump  if  the  address  of  the  string  result  in  register 
pair  DE  is  less  than  the  start  of  the  BASIC  program 
area  in  register  pair  HL. 

IF^CH  -  IF^EH  Load  register  pair  HL  with  the  start  of  the  string 
space  pointer. 

IF^FH  Go  compare  the  start  of  the  string  spacer  pointer  in 

register  pair  HL  with  the  address  of  tiie  string  result 
in  register  pair  DE. 

1F50H  Get  the  VARPTR  for  the  string  result  from  the  stack 

and  put  it  in  register  pair  DE. 

1F51H  "  1F52H  Jump  if  the  address  of  the  string  result  in  register 
pair  DE  was  less  than  the  start  of  the  string  space 
pointer  in  register  pair  HL. 

1F53H  -  1F55H  Load  register  pair  HL  with  the  simple  variables 
pointer. 
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1F56H  Go  compare  the  address  of  the  VARPTR  for  the 

string  result  in  register  pair  DE  with  the  simple 
variables  pointer  in  register  pair  HL. 

1F57H  -  1F58H  Jump  if  the  address  of  the  VARPTR  for  the  string 
result  in  register  pair  DE  is  less  than  the  simple 
variables  pointer  in  register  pair  HL. 

1F5AH  Get  the  VARPTR  for  the  string  result  from  the  stack 

and  put  it  in  register  pair  DE. 

1F5BH  -  1F5DH  Go  adjust  the  temporary  string  work  area  pointers. 

1F5EH  Exchange  the  VARPTR  for  the  string  in  register  pair 

DE  with  the  string's  address  in  register  pair  HL. 

1F5FH  -  1F61H  Go  move  the  string  into  string  space. 

1F62H  •«•  1F64'H  Go  adjust  the  temporary  string  work  area  pointers. 

1F6  5H  Exchange  the  address  of  the  variable  in  register  pair 

HL  with  the  address  of  the  variable  on  the  stack. 

1F66  -  1F68H  Go  move  the  result  to  it's  proper  location  in  mem- 
ory, 

IF69H  Get  the  address  of  the  variable  from  the  stack  and 

put  it  in  register  pair  DE. 

1F6  AH  Get  the  value  of  the  current  BASIC  program  pointer 

from  the  stack  and  put  it  in  register  pair  HL. 

1F6BH  Return. 

1F6CH  "  IFAKH  LEVEL  II  BASIC  ON  ROUTINE 

1F6CH  -  1F6DH  Check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is  an 
ERROR  token. 

1F6EH  -  1F6FH  Jump  if  the  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  A  isn't  an 
ERROR  token. 

1F70H  Bump  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL  till  it  points  to  the  next 
character. 

1F71H  -  1F72K  Go  check  the  syntax.  The  character  at  the  location  of 
the  current  BASIC  program  pointer  in  register  pair 
HL  must  be  a  GOTO  token. 

1F73H  -  1F75PI  Go  evaluate  the  line  number  to  branch  to  at  the 
location  of  the  current  BASIC  program  pointer  in 
register  pair  HL  and  return  with  the  result  in  regis- 
ter pair  DE. 
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1F76H  Load  register  A  with  the  MSB  of  the  line  number  in 

register  D. 

1F77H  Combine  the  LSB  of  the  line  number  in  register  E 

with  the  MSB  of  the  line  number  in  register  A. 

1F78H  -  1F79H  Jump  if  the  Hne  number  in  register  pair  DE  is  equal 
to  zero. 

1F7AH  -  1F7CH  Go  find  the  location  of  the  line  number  in  register 
pair  DE  and  return  with  the  location  of  the  line 
number  in  register  pair  BC. 

1F7DH  Load  register  D  with  the  MSB  of  the  location  of  the 

BASIC  line  in  register  B. 

1F7EH  Load  register  E  with  the  LSB  of  the  location  of  the 

BASIC  line  in  register  C. 

1F7FH  Get  the  value  of  the  current  BASIC  program  pointer 

from  the  stack  and  put  it  in  register  pair  HL, 

1F80H  -  1F82H  Go  to  the  Level  11  BASIC  error  routine  and  display 
an  UL  ERROR  message  if  the  BASIC  line  doesn't 
exist. 

1F83H  Exchange  the  location  of  the  BASIC  line  in  register 

pair  DE  with  the  value  of  the  current  BASIC  pro- 
gram pointer  in  register  pair  HL. 

lF8te  -  1F86H  Save  the  location  of  the  BASIC  line  in  register  pair 
HL. 

1F87H  Exchange  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  DE  with  the  location  of  the 
BASIC  line  in  register  pair  HL. 

1F88H  Return. 

1F89H  -  1F8BH   Load  register  A  with  the  value  of  the  error  flag. 

1F8CH  Check  to  see  if  the  error  flag  is  set. 

1F8DH  Return  if  the  error  flag  is  set. 

1F8EH  -  1F9*^H    Load  register  A  with  the  error  code. 

IF9IH  Load  register  E  with  the  value  of  the  error  code  in 

register  A. 

1F92K  -  1F9^H  Go  to  the  Level  II  error  routine  and  display  the  error 
message  for  the  error  code  in  register  E. 

1F95H  -  1F97H  Go  evaluate  the  expression  at  the  location  of  the 
current  BASIC  program  pointer  and  return  with  the 
result  in  register  pair  DE. 
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1P98H  Load  register  A  with  the  character  at  the  location  of 

the  current  BASIC  progrann  pointer  in  register  pair 
HL. 

1F99H  Load  register  B  with  the  character  at  the  location  of 

the  current  BASIC  program  pointer  in  register  A. 

1F9AH  -  1F9BH  Check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is  a 
GOSUB  token. 

1P9CH  -  1F9DH  Jump  if  the  character  at  the  location  of  current 
BASIC  program  pointer  in  register  A  is  a  GOSUB 
token. 

1F9EH  -  1F9PH  Go  check  the  syntax.  The  character  at  the  location  of 
the  current  BASIC  program  pointer  in  register  pair 
HL  must  be  a  GOTO  token. 

IFAOH  Decrement  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL. 

IFAIH  Load  register  C  with  the  LSB  of  the  expression  after 

the  ON  token  in  register  E. 

1FA2H  Decrement  the  line  number  counter  in  register  C. 

1FA3H  Load  register  A  with  the  token  in  register  B. 

IFA^H  -   1FA6H  Jump  if  the  line  number  has  been  found. 

1FA7H  -  1FA9H  Evaluate  tlie  line  number  at  the  location  of  the  cur- 
rent BASIC  program  pointer  and  return  with  the 
result  in  register  pair  DE. 

IFAAH  -  IFABH  Check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pomter  in  register  A  is  a 
comma. 

IFACH  Return  if  the  character  at  the  location  of  the  current 

BASIC  program  pointer  in  register  A  isn't  a  comma. 

IFADH  -   IFAEH  Loop  until  the  line  number  has  been  located. 

IFAFH  -  1FF3H   LEVEL  II  BASIC  RESUME  ROUTINE 

IFAFH  -  IFBIH  Load  register  pair  DE  with  the  address  of  the  Level 
II  BASIC  error  flag. 

1FB2H  Load  register  A  with  the  error  flag  at  the  location  of 

the  memory  pointer  in  register  pair  DE. 

1FB3H  Check  for  an  error. 

IFB^H  -  1FB6H  Go  to  the  Level  II  BASIC  error  routine  and  display 
an  RW  ERROR  message  if  an  error  hasn't  occurred. 
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1FB7H  Clear  the  error  flag  in  register  A. 

1PB8H  -   IFBAH  Save  the  new  error  flag  in  register  A. 

IFBBH  Save  the  new  error  flag  in  register  A  at  the  location 

of  the  memory  pointer  in  register  pair  DE. 

IFBCH  Load  register  A  with  the  character  at  the  location  of 

the  current  BASIC  program  pointer  in  register  pair 
HL. 

IPBDH  "  IFBEH  Check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is  a 
NEXT  token. 

IFBFH  "  IFCOH  Jump  if  the  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  A  is  a  NEXT 
token. 

IFCIH  -  1FC3H  Go  evaluate  the  line  number  at  the  location  of  the 
current  BASIC  program  pointer  and  return  with  the 
result  in  register  pair  DE. 

1  PCh-H  Return  if  there  wasn't  a  line  number  at  the  location  of 

the  current  BASIC  program  pointer, 

1FC5H  Load  register  A  with  the  MSB  of  the  line  number  in 

register  D. 

1FC6H  Combine  the  LSB  of  the  line  number  in  register  E 

with  the  MSB  of  the  line  number  in  register  A. 

1FC7H  -  1FC9H  Jump  if  the  line  number  in  register  pair  DE  isn't 
equal  to  zero. 

IFGAH  Bump  the  value  in  register  A  so  that  it  will  indicate 

RESUMED. 

IFCBH  -  IFCCH  Jump  to  the  RESUMED  code. 

IFCDH  Go  bump  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL  till  it  points  to  the  next 
character. 

IFCEH  Return  if  this  is  die  end  of  the  BASIC  statement. 

IFCFH  -  IFDIH  Get  the  value  of  the  current  BASIC  program  pointer 
and  put  it  in  register  pair  HL. 

1FD2H  Load  register  pair  DE  with  the  value  of  the  current 

BASIC  program  pointer  in  register  pair  HL. 

1FD3H  -  1FD5H  Load  register  pair  HL  with  the  current  BASIC  line 
number. 

1FD6H  -  1FD8H  Save  the  value  of  the  current  BASIC  line  number  in 
register  pair  HL. 
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1FD9H 

IFDAH 
IFDBH 

IFDCH 


Load  register  pair  HL  with  the  value  of  the  current 
BASIC  program  pointer  in  register  pair  DE. 

Return  if  this  is  RESUMEO. 

Get  the  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  pair  HL  and  put  it 
in  register  A. 

Check  the  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  A  to  see  if  it's  an 
end  of  the  BASIC  line  character. 


IFDDH  -  IFDEH  Jump  if  the  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  A  isn't  an  end  of 
the  BASIC  line  character. 

IFDFH  Bump  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL. 

IFEOH  Bump  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL. 

IFEIH  Bump  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL. 

1FE2H  Bump  the  value  of  the  current  BASIC  program 

pointer  in  register  HL. 

1FE3H  Bump  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL. 

IFE^H  Load  register  A  with  the  MSB  of  the  line  number 

with  the  error  in  register  D. 

1FE5H  Combine  the  LSB  of  the  line  number  with  the  error 

in  register  E  with  the  MSB  of  the  line  number  with 
the  error  in  register  A. 

1FE6H  Bump  the  combined  value  of  the  line  number  with 

the  error  in  register  A. 

1FE7H  -  1FE9H  Jump  if  Level  11  BASIC  isn't  in  the  command  mode. 
IFEAH  -  IFECH  Load  register  A  with  the  command  mode  flag. 

IFEDH  Check  to  see  if  the  command  mode  flag  in  register  A 

is  set. 

IFEEH  "  IFFOH  Jump  if  Level  II  Basic  is  in  the  command  mode. 

IFFIH  -  1FF3H  Return. 

IFFte  -  2007H  LEVEL  II  BASIC  ERROR  ROUTINE 

IFF^^H  -  1FF6H  Go  evaluate  the  expression  at  the  location  of  the 
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current  BASIC  program  pointer  in  register  pair  HL 
and  return  with  the  result  in  A. 

1PF7H  Return  if  this  isn^t  the  end  of  the  BASIC  statement. 

1FF8H  Check  to  see  if  the  error  number  in  register  A  is 

equal  to  zero. 

1FF9H  -  IFFBH  Go  to  the  Level  11  BASIC  error  routine  and  display 
an  PC  ERROR  message  if  the  error  code  in  register 
A  is  equal  to  zero. 

IFFCH  Subtract  one  from  the  error  code  in  register  A. 

IFFDH  Multiply  die  error  code  in  register  A  by  two. 

IFFEH  Load  register  E  with  the  value  of  the  error  code  in 

register  A. 

IFFFH  -  2000H  Check  to  see  if  the  error  code  in  register  A  is  less 
than  45. 

2001H  -  2002H  Jump  if  the  error  code  in  register  A  is  less  than  45. 

2003H  -  200to  Load  register  E  with  an  UE  ERROR  code. 

2005H  -  2007H  Go  to  the  Level  II  BASIC  error  routine  and  display 
the  appropriate  error  message. 

2008H  --  2038H  LEVEL  II  BASIC  AUTO  ROUTINE 

2008H  -  200AH  Load  register  pair  DE  with  a  default  line  number  of 
ten. 

200BH  Save  the  default  line  number  in  register  pair  DE  on 

the  stack. 

200CH  -  200DH  Jump  if  this  is  the  end  of  the  BASIC  statement. 

200EH  "  2010H  Go  evaluate  the  line  number  at  the  current  location 
of  the  BASIC  program  pointer  in  register  pair  HL 
and  return  with  the  result  in  register  pair  DE. 

2011H  Exchange  the  value  of  the  line  number  in  register 

pair  DE  with  the  value  of  the  current  BASIC  pro- 
gram pointer  in  register  pair  HL, 

2012H  Exchange  the  default  line  number  on  the  stack  with 

the  line  number  in  register  pair  HL. 

2013H  -  201^H  Jump  if  this  is  the  end  of  the  BASIC  statement. 

2015H  Load  register  pair  HL  with  the  value  of  the  current 

BASIC  program  pointer  in  register  pair  DE. 

2016H  "  2017H  Go  check  the  syntax.  The  character  at  the  location  of 
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the  current  BASIC  program  pointer  in  register  pair 
HL  must  be  a  comma. 

2018H  Load  register  pair  DE  with  the  value  of  the  current 

BASIC  program  pointer  in  register  pair  HL. 

201 9H  -  201 BH  Load  register  pair  HL  with  the  last  AUTO  increment 
value. 

201CH  Exchange  die  value  of  the  current  BASIC  program 

pointer  in  register  pair  DE  mth  the  last  AUTO 
increment  value  in  register  pair  HL. 

201DH  -   201EH  Jump  if  this  is  the  end  of  the  BASIC  statement. 

201FH  -  2021H  Go  evaluate  the  AUTO  increment  number  at  the 
location  of  the  current  BASIC  program  pointer  in 
register  pair  HL  and  return  with  the  result  in  regis- 
ter pair  DE. 

2022H  -  2024H  Go  to  the  Level  II  BASIC  error  routine  and  display  a 
SN  ERROR  message  if  this  isn't  the  end  of  the 
BASIC  statement. 

2025H  Exchange  the  AUTO  increment  number  in  register 

pair  DE  with  the  value  of  the  current  BASIC  pro- 
gram pointer  in  register  pair  HL. 

2026H  Load  register  A  with  the  MSB  of  the  AUTO  incre- 

ment number  in  register  H. 

2027H  Combine  the  LSB  of  the  AUTO  increment  number  in 

register  L  with  the  MSB  of  the  AUTO  increment 
number  in  register  A. 

2028H  -  202AH  Go  to  the  Level  11  BASIC  error  routine  and  display  a 
PC  ERROR  message  if  the  AUTO  increment 
number  in  register  pair  HL  is  equal  to  zero. 

202BH  -  202DH  Save  the  value  of  the  AUTO  increment  number  in 
register  pair  HL. 

202EH  -  2030H  Set  the  AUTO  flag. 

203IH  Get  the  line  number  from  the  stack  and  put  it  in 

register  pair  HL. 

2032H  "  203^H  Save  the  line  number  in  register  pair  HL  as  the  next 
AUTO  line  number. 

2035H  Clean  up  the  stack. 

2036H  -   2038H  Jump  to  the  Level  II  BASIC  command  mode. 

2039H  -   2O66H  LEVEL  II  BASICIF  ROUTINE 

2039H  -   203BH  Go  evaluate  the  expression  at  the  location  of  the 

402 


current  BASIC  program  pointer  and  return  with  the 
result  in  REGl. 

^  03  CH  Load  register  A  with  the  character  at  the  location  of 

the  current  BASIC  program  pointer  in  register  pair 
HL. 

203DH  -  203EH  Check  to  see  if  the  character  ai  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is  a 
comma. 

203FH  -  20^1H  If  the  character  at  the  location  of  the  current  BASIC 
program  pointer  in  register  A  is  a  comma  then  go 
bump  the  value  of  the  current  BASIC  program 
pointer  in  register  pair  HL  till  it  points  to  the  next 
character. 

20^2H  "  20^3H  Check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is  a 
THEN  token. 

20^^H  -  2046H  If  die  character  at  the  location  of  the  current  BASIC 
program  pointer  in  register  A  is  a  THEN  token,  dien 
go  bump  die  value  of  the  current  BASIC  program 
pointer  till  it  points  to  the  next  character. 

2  0^7H  Decrement  die  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL. 

2  0^8H  Save  the  value  of  die  current  BASIC  program  point- 

er on  the  stack. 

20^9H  -  20^BH  Check  to  see  if  the  expression  after  the  IF  token  was 
true  or  false. 

^O^^H  Get  die  value  of  the  current  BASIC  program  pointer 

from  the  stack  and  put  it  in  register  pair  HL. 

20toH  -  204EH  Jump  if  die  expression  was  false. 

20^PH  Go  bump  the  value  of  die  current  BASIC  program 

pointer  in  register  pair  HL  till  it  points  to  die  next 
character. 

205OH  -  2052H  Jump  to  die  GOTO  roudne  if  die  character  at  die 
location  of  die  current  BASIC  program  pointer  in 
register  pair  HL  is  numeric. 

2053H  -  2055H  Jump. 

2056H  -  2057H  Load  register  D  with  the  scan  counter. 

2058H  -  2  05AH  Go  scan  die  BASIC  statement. 

205BH  Check  to  see  if  this  is  the  end  of  die  BASIC  instruc- 

tion. 
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205CH  Return  if  this  is  the  end  of  the  BASIC  statement. 

205DH  Go  bump  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL  till  it  points  to  the  next 
character. 

205EH  "  205FH  Check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is  an 
ELSE  token. 

206OH  -  2O6IH    Loop  till  an  ELSE  token  is  found. 

2062H  Decrement  the  value  of  the  scan  counter. 

2063H  -   2064H    Loop  till  all  of  the  ELSE  tokens  have  been  found. 

2065H  "  2O66H   Jump. 

206 7H  -  206EH   LEVEL  II  BASIC  LPRINT  ROUTINE 

2067H  -  2O68H    Load  register  A  with  the  output  device  code  for  the 

printer. 

2069H  -  206BH  Save  the  value  in  register  A  as  the  current  output 
device  type  number. 

2O6CH  -   2O6EH    Jump. 

206FH  -  2177H    LEVEL  II  BASIC  PRINT  ROUTINE 

206PH  -  207IH    Call  the  DOS  link  at  41CAH. 

2072H  "  2073H  Check  the  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  A  to  see  if  it's  an 
@. 

207^H  "  2075H  Jump  if  the  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  A  isn't  an  @. 

2076H  "  2078H  Go  evaluate  the  expression  at  the  location  of  the 
current  BASIC  program  pointer  in  register  pair  HL 
and  return  with  the  result  in  register  pair  DE. 

2079H  -  207AH  Check  to  see  if  the  location  in  register  pair  DE  is 
greater  than  1023H. 

207AH  -  207DH  Go  to  the  Level  II  BASIC  error  routine  and  display  a 
FC  ERROR  message  if  the  location  in  register  pair 
DE  is  greater  than  1023. 

2  0  7EH  Save  the  value  of  the  current  BASIC  program  point- 

er in  register  pair  HL  on  the  stack. 

207FH  -  2O8IH  Load  register  pair  HL  with  the  starting  address  of 
video  memory. 
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2082H  Add  the  location  in  register  pair  DE  to  the  starting 

address  of  video  memory  in  register  pair  HL. 

2083H  -  2085H  Save  the  adjusted  value  in  register  pair  HL  as  the 
current  cursor  position. 

2086H  Load  register  A  with  the  LSB  of  the  new  cursor 

position  in  register  L, 

2087H  -  2088H  Mask  the  LSB  ofthe  cursor  position  in  register  A  to 
determine  the  cursor's  line  position. 

2O89H  -  208BH  Save  the  new  cursor  line  position  in  register  A. 

208CH  Get  the  value  of  the  current  BASIC  program  pointer 

from  the  stack  and  put  it  in  register  pair  HL. 

208DH  "  208EH  Go  check  the  syntax.  The  character  at  the  location  of 
the  current  BASIC  program  pointer  in  register  pair 
HL  must  be  a  comma. 

208FH  -  2O9OH  Check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is  a  #. 

2O9IH  -  2O92H  Jump  if  the  character  at  the  location  of  the  current 
BASIC  pointer  in  register  A  isn't  a  #. 

2093H  -  2O95H  Go  set  the  specified  cassette  drive  number  as  the 
current  cassette  drive. 

2096H  -  2O97H  Load  register  A  with  the  output  device  type  code  for 
the  cassette  recorder. 

2098H  -  2O9AH  Save  the  value  in  register  A  as  the  current  output 
device  type  code. 

2O9BH  Decrement  the  value  ofthe  current  BASIC  program 

pointer  in  register  pair  HL, 

2O9CH  Go  bump  the  value  of  the  current  BASIC  program 

pointer  till  it  points  to  the  next  character. 

209DH  "  209FH  If  the  character  at  the  location  of  the  current  BASIC 
program  pointer  in  register  A  is  an  end  of  the  BASIC 
statement  character  then  go  print  a  carriage  return 
on  the  video  display  if  necessary. 

20A0H  -  20A2H  Jump  if  the  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  A  is  an  end  of  the 
BASIC  statement  character. 

20A3H  -  20Ate  Check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is  a 
USING  token. 
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20A5H  -  20A7H  Jump  if  the  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  A  is  a  USING 
token. 

20A8H  -  20A9H  Check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is  a 
TAB(  token. 

20AAH  ••  20ACH  Jump  if  the  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  A  is  a  TAB( 
token, 

20ADH  Save  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL  on  the  stack. 

20AEH  -  20AFH  Check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is  a 
comma. 

20B0H  -  20B2H  Jump  if  the  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  A  is  a  comma. 

20B3H  "  20B^H  Check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is  a 
semicolon. 

20B5H  "  20B7H  Jump  if  the  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  A  is  a  semicolon. 

20B8H  Get  the  value  of  the  current  BASIC  program  point- 

er from  the  stack  and  put  it  in  register  pair  BC. 

20B9H  -  20BBH  Go  evaluate  the  expression  at  the  location  of  the 
current  BASIC  program  pointer  in  register  pair  HL 
and  return  with  the  result  in  REGL 

20BCH  Save  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL  on  the  stack. 

20BDH  Go  check  the  current  value  of  the  number  type  flag. 

20BEH  -  20BFH  Jump  if  the  result  in  REGl  is  a  string. 

20C0H  -  20C2H  Go  convert  the  numeric  value  in  REGl  to  an  ASCII 
string. 

20C3H  -  20C5H  Go  set  up  pointers  in  the  temporary  string  area. 

20C6H  -  20C8H  Call  the  DOS  link  at  location  41CDH. 

20C9H  -  20CBH  Load  register  pair  HL  with  the  VARPTR  for  the 
string  to  be  sent  to  the  current  output  device. 

20CCH  "  20CEH  Load  register  A  with  the  current  value  of  the  output 
device  flag. 
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20CFH  Test  the  value  of  the  current  output  device  code  in 

register  A. 

20D0H  -  20D2H  Jump  if  the  current  output  device  is  the  cassette  re- 
corder. 

20D3H  -   20D^H  Jump  if  the  current  output  device  is  the  video  dis- 
play. 

20D5H  -  20D7H  Load  register  A  with  the  current  carriage  position. 

20D8H  Add  the  length  of  the  string  to  be  sent  to  the  printer 

at  the  location  of  the  memory  pointer  in  register  pair 
HL  to  the  current  carriage  position  in  register  A. 

20D9H  "   20DAH  Check  to  see  if  the  adjusted  length  in  register  A  is 
greater  dian  132. 

20DBH  -  20DCH  Jump. 

20DDH  -  20DFH  Load  register  A  with  the  video  line  size. 

20E0H  Load  register  B  with  the  video  line  size  in  register 

A. 

20E1H  -  20E3H  Load  register  A  with  the  current  video  line  position. 

20E^H  Add  the  length  of  the  string  to  be  sent  to  the  video 

display  at  the  location  of  the  memory  pointer  in 
register  pair  HL  to  the  value  of  the  current  video  line 
position  in  register  A. 

20E5H  Check  to  see  if  the  length  in  register  A  is  greater 

than  the  video  line  length. 

20E6H  -  20E8H  Go  send  a  carriage  return  to  the  current  output 
device  if  necessary. 

20E9H  -  20EBH   Go  send  the  string  to  the  current  output  device. 

20ECH  -  20EDH   Load  register  A  with  a  space. 

20EEH  -  20F0H  Go  send  the  space  in  register  A  to  the  current  output 
device. 

20P1H  Check  to  see  if  register  A  is  equal  to  zero. 

20F2H  "»  20F^H  If  necessary  go  send  the  string  to  the  current  output 
device. 

20F6H  -  20F8H  Loop  till  done. 

20F9H  -  20FBH  Load  register  A  with  the  number  of  characters 
printed  on  the  current  line. 

20FCH  Check  to  see  if  any  characters  have  been  printed  on 

the  current  line. 
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20FDK  Return  if  no  characters  have  been  printed  on  the 

current  line. 

20FEH  -  20FFH  Load  register  A  with  a  carriage  return. 

21C0H  ~  2102H  Go  send  the  carriage  return  in  register  A  to  the 
current  output  device. 

2103H  -  2105H  Call  the  DOS  link  at  41D0H. 

2106H  2ero  register  A. 

2107H  Return. 

2108H  -  210AH  Call  the  DOS  link  at  41D3H. 

210BH  ~  210DH   Load  register  A  with  the  value  of  the  current  output 
device  flag. 

210EH  Test  the  value  of  the  current  output  device  flag  in 

register  A. 

210FH  -  2111H  Jump  if  the  printer  or  the  video  display  is  the  current 
output  device, 

2112H  -  2113H  Load  register  A  with  a  comma. 

ZllkK  «  2116H  Send  the  comma  in  register  A  to  the  cassette  re- 
corder. 

2117H  -  2118H  Loop  till  done. 

2119H  -  211AH  Jump  if  the  video  display  is  the  current  output  de- 
vice. 

211BH  -  211DH  Load  register  A  with  the  current  carriage  position. 

211EH  «  211FH  Check  to  see  if  the  current  carriage  position  in 
register  A  is  greater  than  112, 

2120H  -  2122H  Jump. 

2123H  -  2125H  Load  register  A  with  the  video  line  length. 

2126H  Load  register  B  with  the  video  line  length  in  register 

A, 

2127H  -  2129H  Load  register  A  with  the  current  video  line  position. 

212AH  Check  to  see  if  the  current  video  line  position  in 

register  A  is  equal  to  the  video  line  length  in  register 
B. 

212BH  -  212DH  Go  print  a  carriage  return  on  the  current  output 
device  if  necessary. 
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212EH  -  212FH  Jump  if  this  is  the  end  of  the  hne  on  the  current 
output  device. 

213OH  -  213IH  Check  to  see  if  there  is  at  least  16  spaces  left  on  the 
current  line  for  the  current  output  device. 

2132H  -  2133H  Loop  till  there  are  at  least  16  spaces  left  on  the 
current  line. 

213^H  Figure  the  number  of  spaces  to  be  sent  to  the  current 

output  device. 

2135H  -  2136H   Jump. 

213  7H  -  213  9H  Go  evaluate  the  tab  number  at  the  location  of  the 
current  BASIC  program  pointer  in  register  pair  HL 
and  return  with  the  result  in  register  A. 

213AH  -  213BH  Mask  the  tab  number  in  register  A  so  that  it  doesn't 
exceed  63, 

^13CH  Load  register  B  with  the  value  of  the  tab  number  in 

register  A. 

213DH  -  213EH  Go  check  the  syntax.  The  character  at  the  location  of 
the  current  BASIC  program  pointer  in  register  pair 
HL  must  be  a  ). 

213FH  Decrement  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL. 

2l40H  Save  the  value  of  the  current  BASIC  program  point- 

er in  register  pair  HL  on  the  stack. 

2141H  -  21^3H  Call  the  DOS  link  at  41DCH. 

21^'^'E  -  21^6H  Load  register  a  with  the  value  of  the  current  output 
device  flag. 

21^7H  Test  the  value  of  the  current  output  device  flag  in 

register  A. 

2148H  -  21^AH  Go  to  the  Level  II  BASIC  error  routine  and  display  a 
FC  ERROR  message  if  the  current  output  device  is 
the  cassette  recorder, 

21^BH  -  21toH  Jump  if  the  current  output  device  is  the  video  dis- 
play. 

214EH  -  215OH    Load  register  A  with  the  current  carriage  position. 
215IH  -  2152H  Jump. 

215^H  -  2155H   Load  register  A  with  the  current  video  line  position. 
2156H  Complement  the  current  line  position  in  register  A. 
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2157H  Add  the  tab  number  in  register  B  to  the  adjusted  line 

position  in  register  A. 

2158H  -  2159H  Jump  if  the  tab  number  in  register  B  is  less  than  the 
line  position  in  register  A. 

215AH  Bump  the  number  of  spaces  to  be  printed  in  register 

A. 

215BH  Load  register  B  with  the  number  of  spaces  to  be 

printed  in  register  A. 

215CH  -  215DH  Load  register  A  with  a  space. 

215EH  -•  2I6OH  Send  the  space  in  register  A  to  the  current  output 
device. 

216IH  Decrement  the  value  of  the  space  counter  in  register 

B. 

2162H  -  2163H  Loop  until  all  of  the  spaces  have  been  printed. 

2l6^H  Get  the  value  of  the  current  BASIC  program  pointer 

from  the  stack  and  put  it  in  register  pair  HL. 

2165H  Go  bump  the  value  of  the  current  BASIC  program 

pointer  m  register  pair  HL  till  it  points  to  the  next 
character. 

2166H  -  2l68'H  Loop  until  done. 

2169H  -  216BH  Load  register  A  with  the  current  output  device  flag. 

216CH  Test  the  value  of  the  current  output  device  flag  in 

register  A. 

2I6DH  -  2I6FH  If  the  current  output  device  flag  is  the  cassette  re- 
corder, then  go  turn  it  off. 

217  OH  Load  register  A  with  the  video  display  output  device 

code. 

217IH  -  2173H  Save  the  value  in  register  A  as  the  current  value  of 
the  output  device  flag. 

217^H  -  2176H  Call  the  DOS  link  at  41BEH. 

2177H  Return. 

2178H  "  217EH  MESSAGE  STORAGE  LOCATION 

2178H  -  2I7EH  The  REDO  message  is  stored  here. 

217FH  <-  2285H  LEVEL  II  BASIC 

INPUT  AND  READ  ROUTINES 

217FH  -  2181H  Load  register  A  with  the  read  flag. 
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2182H  Check  to  see  if  the  read  flag  is  set. 

2183H  "  2185H  Jump  to  the  Level  II  BASIC  error  routine  if  the  read 

flag  is  set. 

2186H  "  2188H  Load  register  A  with  the  input  type  flag. 

^i89H  Check  to  see  if  the  cassette  recorder  is  the  current 

input  device. 

218AH  "  218BH  Load  register  E  with  the  FD  ERROR  code. 

218CH  -  218EH  Go  to  the  Level  II  BASIC  error  routine  and  display  a 
FD  ERROR  message  if  the  current  input  device  is 
the  cassette  recorder, 

218  FH  Clean  up  the  stack. 

2I9OH  -  2I92H  Load  register  pair  HL  with  the  starting  address  of 
the  REDO  message. 

2193H  -  2195H  Go  display  the  REDO  message. 

2I96H  -  2I98H  Get  the  value  of  the  current  BASIC  program  pointer 
in  register  pair  HL. 

2199H  Return. 

219AH  -  2I9CH  Check  to  see  if  there  is  an  illegal  direct  in  the  input 
statement. 

2I9DH  Load  register  A  with  the  character  at  the  location  of 

the  current  BASIC  program  pointer  in  register  pair 
HL. 

219EH  -  21A0H  Call  the  DOS  link  at  41D6H. 

21A1H  "  21A2H  Check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is  a  #. 

21A3H  -  21A5H  Set  the  current  input  device  flag  for  the  cassette  re- 
corder. 

21A6H  Load  register  A  with  the  character  at  the  location  of 

the  current  BASIC  program  pointer  in  register  pair 
HL, 

21A7H  -  21A8H  Jump  if  there  is  keyboard  input. 

21A9H  -  21ABH  Go  read  the  cassette  leader  and  find  the  sync  byte. 

21ACH  Save  the  current  BASIC  program  pointer  in  register 

pair  HL  on  the  stack. 

21ADH  -  21AEH  Load  register  B  with  the  size  of  the  input  buffer. 

411 


21AFH  -  21B1H  Load  register  pair  HL  with  the  starting  address  of 
the  input  buffer. 

21B2H  -  ZIB^K  Go  read  a  byte  from  the  cassette  recorder  and  return 
with  it  in  register  A. 

21B5H  Save  the  byte  read  from  the  cassette  recorder  in 

register  A  at  ±e  location  of  the  input  buffer  pomter 
in  register  pair  HL. 

21B6H  Bump  the  value  of  the  input  buffer  pointer  in  register 

pair  HL. 

21B7H  -  21B8H  Check  to  see  if  the  character  read  from  the  cassette 
recorder  in  register  A  is  a  carriage  return. 

21B9H  -  21BAH  Jump  if  the  character  read  from  the  cassette  recorder 
in  register  A  is  a  carriage  return. 

21BBH  -  21BCH  Loop  till  the  input  buffer  is  full 

21BDH  Decrement  the  value  of  the  input  buffer  pointer  in 

register  pair  HL. 

21BEH  -  21BFH  Save  a  zero  at  the  location  of  the  input  buffer  pointer 
in  register  pair  HL. 

21C0H  -  21C2H  Go  turn  the  cassette  recorder  off. 

21C3H  "  21C5H  Load  register  pair  HL  with  the  starting  address  of 
the  input  buffer. 

21C6H  Decrement  the  value  of  the  input  buffer  pointer  in 

register  pair  HL. 

21C7H  -  21C8H  Jump. 

21G9H  -  21CBH  Load  register  pair  EC  with  the  return  address. 

21CCH  Save  the  value  of  the  return  address  in  register  pair 

EC  on  the  stack. 

21GDH  -  21CEH  Check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is  a 
quote. 

21 CFH  Return  if  the  character  at  the  location  of  the  current 

BASIC  program  pointer  in  register  A  isn't  a  quote. 

21D0H  "  21D2H  Go  set  up  pointers  for  the  prompting  message  in  the 
temporary  string  work  area. 

21D3H  -  ZlDkE  Go  check  the  syntax.  The  character  at  the  location  of 
the  current  BASIC  program  pointer  in  register  pair 
HL  must  be  a  semicolon. 
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21D5H  Save  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL  on  the  stack. 

21D6H  -  21D8H  Go  display  the  prompting  message. 

21D9H  Get  the  value  of  the  current  BASIC  program  pointer 

from  the  stack  and  put  it  in  register  pair  HL. 

21DAH  Return. 

21DBH  Save  the  value  of  the  current  BASIC  program 

pomter  in  register  pair  HL  on  the  stack. 

21DCH  -  21DEH  Go  get  the  input  from  the  keyboard. 

21DFH  Get  the  value  of  the  current  BASIC  program  pointer 

from  the  stack  and  put  it  in  register  pair  BC. 

21E0H  -  21E2H  Jump  if  the  BREAK  key  was  pressed. 

21E3H  Bump  the  value  of  the  input  buffer  pointer  in  register 

pair  HL. 

21E^H  Load  register  A  with  the  character  at  the  location  of 

the  input  buffer  pointer  in  register  pair  HL. 

21E5H  Test  the  value  of  the  character  at  the  location  of  the 

input  buffer  pointer  in  register  A. 

21E6H  Decrement  the  value  of  the  input  buffer  pointer  in 

register  pair  HL. 

21E7H  Save  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  BC  on  the  stack. 

21E8H  -  21EAH  Jump  if  the  character  at  the  location  of  the  input 
buffer  pointer  in  register  A  is  an  end  of  the  input 
character. 

21EBH  -  21ECH  Save  a  comma  at  the  location  of  the  current  input 
buffer  pointer  in  register  pair  HL. 

21EDH  -  21EEH  Jump. 

21EFH  Save  the  current  BASIC  program  pointer  in  register 

pair  HL. 

21F0H  -  21F2H  Load  register  pair  HL  with  the  location  of  the  last 
DATA  statement  read. 

21F3H  Set  register  A  to  a  nonzero  value  if  entered  from  the 

READ  routine. 

21F4H  This  sets  register  A  to  zero  if  entered  from  the 

INPUT  routine. 
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21F5H  -  21F7H  Save  the  value  of  the  input  type  flag  in  register  A. 

21F8H  Exchange  the  start  of  the  input  pointer  in  register 

pair  HL  with  the  current  BASIC  program  pointer  on 
the  stack. 

21F9H  "  21FAH  Jump. 

21FBH  -  21FCH  Go  check  the  syntax.  The  character  at  the  location  of 
the  current  BASIC  program  pointer  in  register  pair 
HL  must  be  a  comma. 

21FDH  -  21FFH  Go  get  the  address  of  the  variable  at  the  location  of 
the  current  BASIC  program  pointer  in  register  pair 
HL  and  return  with  it  in  register  pair  DE. 

2200H  Exchange  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL  with  the  start  of  the  input 
buffer  pointer  on  the  stack. 

2201H  Save  the  variable's  address  in  register  pair  DE  on 

the  stack. 

2202H  Load  register  A  with  the  character  at  the  location  of 

the  input  buffer  pointer  in  register  pair  HL. 

2203H  "  220to  Check  to  see  if  the  character  at  the  location  of  the 
input  buffer  pointer  register  A  is  a  comma. 

2205H  -  2206H  Jump  if  the  character  at  the  location  of  the  input 
buffer  pointer  in  register  A  is  a  comma. 

2207H  -  22O9H  Load  register  A  with  the  input  type  flag. 

220AH  Check  for  READ  or  INPUT. 

220BH  -  220DH  Jump  if  the  input  type  flag  in  register  A  indicates 
READ. 

220EH  -  2210H  Load  register  A  with  the  value  of  the  cassette  input 
flag. 

2211H  Check  to  see  if  the  input  is  from  the  cassette  re- 

corder. 

2212H  "  2213H  Load  register  E  with  an  OD  ERROR  code. 

221^H  -  22I6H  Go  to  the  Level  II  BASIC  error  routine  and  display 
an  OD  ERROR  message  if  the  input  is  from  the 
cassette  recorder. 

2217H  -  22I8H  Load  register  A  with  a  ?. 

22I9H  -  221BH  Go  display  the  ?  in  register  A. 

221CH  -  221EH  Go  get  the  keyboard  input. 
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221FH  Get  the  address  of  the  variable  to  be  set  from  the 

stack  and  put  it  in  register  pair  DE. 

222  OH  Get  the  value  of  the  current  BASIC  program  pointer 

from  the  stack  and  put  it  in  register  pair  BC. 

2221H  "  2223H  Jump  if  the  BREAK  key  was  pressed. 

222^H  Bump  the  value  of  the  input  buffer  pointer  in  register 

pair  HL. 

2225H  Load  register  A  with  the  character  at  the  location  of 

the  input  buffer  pointer  in  register  pair  HL. 

2226H  Check  to  see  if  the  character  at  the  location  of  the 

input  buffer  pointer  in  register  A  is  an  end  of  the 
input  character. 

2227H  Decrement  the  value  of  the  input  buffer  pointer  in 

register  pair  HL. 

2228H  Save  the  value  of  the  current  BASIC  program  point- 

er in  register  pair  BC  on  the  stack. 

222  9H  -  222BH  Jump  if  the  character  at  the  location  of  the  input 
buffer  pointer  in  register  A  is  an  end  of  the  input 
character. 

222  CH  Save  the  variable's  address  in  register  pair  DE  on 

the  stack. 

222DH  -  ZZ2FE  Call  the  DOS  link  at  41DCH. 

223  OH  Go  check  the  current  value  of  the  number  type  flag. 

223IH  Save  the  number  type  of  the  variable  on  the  stack. 

2232H  -    2233H  Jump  if  the  variable  to  be  set  is  numeric. 

223to  Bump  the  value  of  the  input  buffer  pointer  in  register 

pair  HL. 

223  5  H  Load  register  D  with  the  character  at  the  location  of 

the  input  buffer  pointer  in  register  A. 

2236H  Load  register  B  with  the  character  at  the  location  of 

the  input  buffer  pointer  in  register  A. 

2237H  -  2238H  Check  to  see  if  the  character  at  the  location  of  the 
input  buffer  pointer  in  register  A  is  a  quote. 

223AH  -  223CH  Jump  if  the  character  at  the  location  of  the  input 
buffer  pointer  in  register  A  is  a  quote. 

223DH  -  223EH  Load  register  B  with  the  scan  character. 
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223FH  Decrement  the  value  of  the  input  buffer  pointer  in 

register  pair  HL 

22^0H  -  224'2H  Go  set  up  the  pointers  for  the  temporary  string  work 
area. 

22^3H  Get  the  number  type  for  the  variable  from  the  stack 

and  put  it  in  register  A. 

22^^'K  Load  register  pair  DE  with  the  value  of  the  input 

buffer  pointer  in  register  pair  HL. 

22j^5H  "  22^7H  Load  register  pair  HL  with  the  value  of  ±e  return 
address. 

2248H  Exchange  the  value  of  the  return  address  in  register 

pair  HL  with  the  value  of  the  current  BASIC  program 
pointer  on  the  stack. 

22^9H  Save  the  value  of  the  input  buffer  pointer  in  register 

pair  DE  on  the  stack. 

22^AH  -  224CH  Go  set  the  variable  to  the  value  of  the  string. 

224DH  Go  bump  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL  till  it  points  to  the  next 
character. 

224EH  Load  register  A  with  the  number  type  for  the  vari- 

able to  be  set. 

224FH  Save  the  value  in  register  pair  AF  on  the  stack. 

225OH  -  2252H  Load  register  pair  BC  with  the  value  of  the  return 
address. 

2253H  Save  the  return  address  in  register  pair  BC  on  the 

stack. 

225^H  -  2256H  Go  convert  the  ASCII  string  at  the  location  of  the 
input  buffer  pointer  in  register  pair  HL  if  the  current 
number  type  is  integer  or  single  precision. 

2257H  -  2259H  Go  convert  the  ASCII  string  at  the  location  of  the 
input  buffer  pointer  in  register  pair  HL  to  binary  if 
the  current  number  type  is  double  precision. 

225AH  Decrement  the  value  of  the  input  buffer  pointer  in 

register  pair  HL. 

225BH  Go  bump  the  value  of  the  input  buffer  pointer  in 

register  pair  HL  till  it  points  to  the  next  character. 

225CH  -  225DH  Jump  if  the  character  at  the  location  of  the  input 
buffer  pointer  in  register  pair  HL  is  an  end  of  the 
input  character. 
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225EH  "  225FH  Check  to  see  if  the  character  at  the  location  of  the 
input  buffer  pointer  in  register  A  is  a  comma. 

2260H  -  2262H  Jump  if  the  character  at  the  location  of  the  input 
buffer  pointer  in  register  A  isn't  a  comma. 

2263H  Exchange  the  value  of  the  input  buffer  pointer  in 

register  pair  HL  with  the  value  of  the  current  BASIC 
program  pointer  on  the  stack. 

226^H  Decrement  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL. 

2265H  Bump  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL. 

2266H  -  2268H  Go  examine  the  next  variable  if  the  character  at  the 
location  of  the  current  BASIC  program  pointer  in 
register  pair  HL  isn't  an  end  of  the  BASIC  state- 
ment character. 

226  9H  Clean  up  the  stack. 

226AH  -  226CH  Load  register  A  with  the  error  flag. 

226DH  Check  to  see  if  the  error  flag  in  register  A  indicates 

an  error. 

2263H  Return  to  the  BASIC  interpreter  if  the  error  flag  in 

register  A  doesn't  indicate  an  error. 

226FH  "  227IH  Load  register  A  with  the  value  of  the  input  type  flag. 

2272H  Check  to  see  if  the  input  type  is  READ  or  INPUT. 

2273H  Load  register  pair  DE  with  the  value  of  the  current 

BASIC  program  pointer  in  register  pair  HL. 

2Z7kE  -  22?6H  Jump  if  the  input  type  flag  is  set  for  READ. 

2277H  Save  the  current  BASIC  program  pointer  in  register 

pair  DE  on  the  stack. 

2278H  -  227AH  Call  the  DOS  link  at  41DFH. 

227BH  Check  to  see  if  this  is  the  end  of  the  input. 

227CH  -  227EH  Load  register  pair  HL  with  the  starting  address  of 
the  EXTRA  IGNORED  message. 

227PH  -  2281H  Go  display  the  EXTRA  IGNORED  message. 

2282H  Get  the  value  of  the  current  BASIC  program  pointer 

from  the  stack  and  put  it  in  register  pair  HL. 

2283H  -  2285H  Go  turn  off  the  cassette  recorder  and  return  to  the 
BASIC  interpreter. 
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2295H  MESSAGE  STORAGE  LOCATION 

2295H  The  EXTRA  IGNORED  message  is  stored  here. 

22B5H    FIND  THE  NEXT 

DATA  STATEMENT  ROUTINE 

2298H  Go  find  the  next  DATA  statement. 

Check  to  see  if  this  is  the  end  of  the  BASIC  line. 

229BH  Jump  if  the  BASIC  statement  is  terminated  with  a :. 

Bump  the  value  of  the  current  BASIC  program  point- 
er in  register  pair  HL. 

Load  register  A  with  the  LSB  of  the  line  address  at 
the  location  of  the  current  BASIC  program  pointer  in 
register  pair  HL. 

Bump  the  value  of  the  current  BASIC  program 
pointer  in  register  pair  HL. 

Combine  the  MSB  of  the  line  address  at  the  location 
of  the  current  BASIC  program  in  register  pair  HL 
with  the  LSB  of  the  line  address  in  register  A. 

.  22A1K  Load  register  E  with  an  OD  ERROR  code. 

•  22A^H  Go  to  the  Level  II  BASIC  error  routine  and  display 
an  OD  ERROR  message  if  this  is  the  end  of  the 
BASIC  program. 

Bump  the  value  of  the  current  BASIC  program 
pointer  in  register  pair  HL. 

Load  register  E  with  the  LSB  of  the  BASIC  line 
number  at  the  location  of  the  current  BASIC  pro- 
gram pointer  in  register  pair  HL. 

Bump  the  value  of  the  current  BASIC  program 
pointer  in  register  pair  HL. 

Load  register  D  with  the  MSB  of  the  BASIC  line 
number  at  the  location  of  the  current  BASIC  pro- 
gram pointer  in  register  pair  HL. 

Exchange  the  value  of  the  current  BASIC  program 
pointer  in  register  pair  HL  with  tlie  value  of  the 
BASIC  line  number  in  register  pair  DE. 

22AAH  "  22ACH  Save  the  BASIC  line  number  in  register  pair  HL. 

22ADH  Exchange  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  DE  with  the  value  of  the 
BASIC  line  number  in  register  pair  HL. 


2286H  - 
2286H  - 
2296H  - 

2296H  - 
2299H 
229AH  - 
229CH 

229DH 

229EH 
229FH 

22A0H  • 
22A2H 

22A5H 
22A6H 

22A7H 
22A8H 

22A9H 
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22AEH  Go  bump  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL  till  it  points  to  the  next 
character. 

22AFH  «-  22B0H  Check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is  a 
DATA  token. 

22B1H  -  22B2H  Jump  if  the  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  A  isn't  a  DATA 
token. 

22B3H  -  22B5H  Jump. 

22B6H  -  2336H  LEVEL  II  BASIC  NEXT  ROUTINE 

22B6H  -  22B8H  Load  register  pair  DE  with  the  default  variable  ad- 
dress. 

22B9H  -  22BBH  Go  examine  the  variable  if  one  follows  the  NEXT 
token. 

22BCH  -  22BEH  Save  the  value  of  the  current  BASIC  program  point- 
er in  register  pair  HL. 

22BFH  -  22C1H  Go  search  the  stack  for  the  appropriate  FOR  push. 

ZZOZK  -  22Cta  Go  to  the  Level  II  BASIC  error  routine  and  display  a 
NF  ERROR  message  if  the  appropriate  FOR  push 

wasn't  found. 

22C5H  Load  the  stack  pointer  with  the  value  of  the  memory 

pointer  in  register  pair  HL. 

22C6H  -  22C8H  Save  the  value  in  register  pair  HL 

22  C9H  Save  the  variable's  address  in  register  pair  DE  on 

the  stack. 

22  CAH  Load  register  A  with  the  value  of  the  sign  for  the 

STEP  value. 

22  CBH  Bump  the  value  of  the  memory  pointer  in  register 

pair  HL. 

22CCH  Save  the  value  of  the  sign  for  the  STEP  value  in 

register  A  on  the  stack. 

22CDH  Save  the  variable's  address  in  register  pair  DE  on 

the  stack. 

22CEH  Load  register  A  with  the  number  type  flag  for  the 

STEP  value. 


22CFH 


Bump  the  value  of  the  memory  pointer  in  register 
pair  HL. 

419 


22D0H  Check  the  value  of  the  number  type  flag  for  the 

STEP  flag  in  register  A. 

22D1H  -  22D3H  Jump  if  the  STEP  value  is  an  integer. 

22D^H  -  22D6H  Go  move  the  single  precision  value  at  the  location  of 
the  memory  pointer  in  register  pair  HL  into  register 
pairs  BC  and  DE. 

22D7H  Exchange  the  value  of  the  variable's  address  on  the 

stack  with  the  value  of  the  memory  pointer  in  regis- 
ter pair  HL. 

22D8H  Save  the  value  of  the  variable's  address  in  register 

pair  HL  on  the  stack. 

22D9H  -  22DBH  Go  add  the  single  precision  value  at  the  location  of 
the  memory  pointer  in  register  pair  HL  to  the  single 
precision  STEP  value  in  register  pairs  BC  and  DE. 
Return  with  the  result  in  REGl. 

22DCH  Get  the  value  of  the  variable's  address  from  the  stack 

and  put  it  in  register  pair  HL. 

22DDH  -  22DFH  Go  move  the  single  precision  result  from  REGl  to 
the  variable's  address  in  register  pair  HL. 

22E0H  Get  the  value  of  the  memorv  pointer  from  the  stack 

and  put  it  in  register  pair  HL. 

22E1H  "  22E3H  Go  move  the  single  precision  TO  value  at  the  1903- 
tion  of  the  memory  pointer  in  register  pair  HL  into 
register  pairs  BC  and  DE. 

22E^H  Save  the  value  of  the  memory  pointer  in  register  pair 

HL  on  the  stack. 

22E5H  -  22E7H  Go  compare  the  single  precision  result  in  REGl  to 
the  single  precision  TO  value  in  register  pairs  BC 
andDE. 


22E8H  - 

22E9H  Jump. 

22EAH 

Bump  the  value  of  the  memory  pointer  in  register 
pair  HL. 

22EBH 

Bump  the  value  of  the  memory  pointer  in  register 
pair  HL. 

22ECH 

Bump  the  value  of  the  memory  pointer  in  register 
pair  HL. 

22EDH 

Bump  the  value  of  the  memory  pointer  in  register 
pair  HL. 

22EEH 

Load  register  C  with  the  LSB  of  the  STEP  value  at 
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the  location  of  the  memory  pointer  in  register  pair 
HL. 

22EFH  Bump  the  value  of  the  memory  pointer  in  register 

pair  HL. 

22F0H  Load  register  B  with  the  MSB  of  the  STEP  value  at 

the  location  of  the  memory  pointer  in  register  pair 
HL. 

22F1H  Bump  the  value  of  the  memory  pointer  in  register 

pair  HL. 

22P2H  Exchange  the  value  of  the  variable's  address  on  the 

stack  with  the  value  of  the  memory  pointer  in  regis- 
ter pair  HL 

22F3H  Load  register  E  with  the  LSB  of  the  integer  variable 

at  the  location  of  the  memory  pointer  in  register  pair 
HL. 

22F4H  Bump  the  value  of  the  memory  pointer  in  register 

pair  HL. 

22F5H  Load  register  D  with  the  MSB  of  the  integer  variable 

at  the  location  of  the  memory  pointer  in  register  pair 
HL. 

22F6H  Save  the  value  of  the  memory  pointer  in  register  pair 

HL  on  the  stack. 

22F7H  Load  register  L  with  the  LSB  of  the  STEP  value  in 

register  C. 

22F8H  Load  register  H  with  the  MSB  of  the  STEP  value  in 

register  B. 

22F9H  -  22FBH  Go  add  the  STEP  value  in  register  pair  HL  to  the 
integer  value  in  register  pair  DE. 

22FCH  "  22FEH  Load  register  A  with  the  current  value  of  the  number 
type  flag. 

22  FFH  Check  to  see  if  the  current  value  in  REGl  is  single 

precision. 

23OIH  -  2303H  Go  to  the  Level  II  BASIC  error  routine  and  display 
an  OV  ERROR  message  if  the  current  value  in  REGl 
is  single  precision. 

230^H  Load  register  pair  DE  with  the  integer  result  in 

register  pair  HL. 

2305H  Get  the  value  of  the  memory  pointer  from  the  stack 

and  put  it  in  register  pair  HL. 
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2306H  Save  the  MSB  of  the  result  in  register  D  at  the 

location  of  the  memory  pointer  in  register  pair  HL. 

2307H  Decrement  the  value  of  the  memory  pointer  in  reg- 

ister pair  HL. 

23O8H  Save  the  LSB  of  the  result  in  register  E  at  the 

location  of  the  memory  pointer  in  register  pair  HL, 

2309H  Get  the  value  of  the  memory  pointer  from  the  stack 

and  put  it  in  register  pair  HL. 

23OAH  Save  the  integer  value  in  register  pair  DE  on  the 

stack. 

23  OBH  Load  register  E  with  the  LSB  of  the  TO  value  at  the 

location  of  the  memory  pointer  in  register  pair  HL. 

23OCH  Bump  the  value  of  the  memory  pointer  in  register 

pair  HL. 

23ODH  Load  register  D  with  the  MSB  of  the  TO  value  at  the 

location  of  the  memory  pointer  in  register  pair  HL. 

23OEH  Bump  the  value  of  the  memory  pointer  in  register 

pair  HL. 

23OFH  Exchange  the  integer  value  on  the  stack  with  the 

value  of  the  memory  pointer  in  register  pair  HL. 

23IOH  •-  2312H  Go  compare  the  integer  result  in  register  pair  HL 
with  the  TO  value  in  register  pair  DE. 

2313H  Get  the  value  of  the  memory  pointer  from  the  stack 

and  put  it  in  register  pair  HL. 

231^H  Get  the  value  of  the  sign  from  the  stack  and  put  it  in 

register  pair  BC, 

2315H  Subtract  the  value  of  the  sign  in  register  B  from  the 

value  in  register  A. 

2316H  -»  23I8H  Go  load  register  pair  BC  with  the  FOR  statement's 
BASIC  program  pointer. 

2319H  -  23IAH  Jump  if  the  FOR.  .NEXT  loop  has  been  competed. 

23 IBH  Load  register  pair  HL  with  the  BASIC  line  number  in 

register  pair  DE. 

23IGH  -  23IBH  Save  the  BASIC  line  number  in  register  pair  HL  as 
the  current  BASIC  line  number. 

23IFH  Load  register  L  with  the  LSB  of  the  current  BASIC 

program  pointer  in  register  C. 
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2320H  Load  register  H  with  the  MSB  of  the  current  BASIC 

program  pointer  in  register  B. 

232IH  -  2323H  Jump. 

2324H  Load  the  stack  pointer  with  the  value  of  the  memory 

pointer  in  register  pair  HL. 

Z325E  "  2327H  Load  register  pair  HL  with  the  vaiue  of  the  current 
BASIC  program  pointer. 

2328H  -  232AH  Save  the  value  of  the  current  BASIC  program  point- 
er in  register  pair  HL. 

232BH  Load  register  A  with  the  character  at  the  location  of 

the  current  BASIC  program  pointer  in  register  pair 
HL. 

232CH  "  232DH  Check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is  a 
comma. 

232EH  -  233OH  Jump  if  the  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  A  isn't  a  comma. 

233 IH  Go  bump  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL  till  it  points  to  the  next 
character. 

2332H  -  233^H  Go  do  NEXT. 

2335H  -  2336H  Go  check  the  syntax.  The  character  at  the  location  of 
the  current  BASIC  program  pointer  in  register  pair 
HL  must  be  a  left  parenthesis. 

2337H  -  27C8H  EVALUATE  EXPRESSION 

2337H  Decrement  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL. 

2338H  -  2339H  Load  register  D  with  zero. 

233AH  Save  the  value  in  register  pair  DE  on  the  stack. 

233BH  ~  233CH  Load  register  C  with  the  number  of  bytes  of  memory 
required. 

233DH  -   233FH  Go  do  a  memory  check. 

23^0H  -  23^2H  Go  get  the  value  of  the  next  part  of  the  expression  at 
the  location  of  the  current  BASIC  program  pointer  in 
register  pair  HL. 

23^3H  -  23^5H  Save  the  vaiue  of  the  current  BASIC  program  point- 
er in  register  pair  HL. 
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23^6H  -  aS'^'SH  Load  register  pair  HL  with  the  value  of  the  current 
BASIC  program  pointer. 

23if'9H  Get  the  last  precedence  value  from  the  stack  and  put 

it  in  register  pair  BC. 

234AH  Load  register  A  with  the  character  at  the  location  of 

the  current  BASIC  program  pointer  in  register  pair 
HL. 

234BH   -  23^CH  Load  register  D  with  zero. 

23toH  -  234-BH  Check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is  an 
arithmetic  or  logical  token. 

23^FH  -  235OH  Jump  if  the  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  A  is  an  arithme- 
tic or  logical  token. 

2351H  -  2352H  Check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is  a 
greater  than,  less  than,  or  equal  to  token. 

2353H  -  235^H  Jump  if  the  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  A  isn't  a  greater 
than,  less  than,  or  equal  to  token. 

2355H  "  2356H  Set  the  Carry  flag  according  to  the  token  at  the 
location  of  the  current  BASIC  program  pointer  in 
register  A. 

2357H  Adjust  the  value  in  register  A  to  indicate  greater 

than,  less  than,  or  equal  to. 

2358H  Combine  the  current  value  in  register  A  with  the 

value  of  the  last  token  examined  to  see  if  this  is  an 
illegal  combination  of  operators. 

2359H  Check  for  an  illegal  combination  of  operators. 

235AH  Load  register  D  with  the  value  in  register  A. 

235BH  -  235DH  Go  to  the  Level  II  BASIC  error  routine  and  display  a 
SN  ERROR  message  if  this  is  an  illegal  combination 
of  operators. 

235EH  -  236OH  Save  the  value  of  the  current  BASIC  program 
pointer  in  register  pair  HL. 

236IH  Bump  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL  till  it  points  to  the  next 
character. 

2362H  -  2363H  Jump. 
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236^H  Load  register  A  with  the  vaiue  of  the  operator  in 

register  D. 

2365H  Test  the  value  of  the  operator  in  register  A. 

2366H  -  2368H  Jump  if  the  operator  in  register  A  is  a  greater  than, 
less  than,  or  equal  to. 

2369H  Load  register  A  with  the  character  at  the  location  of 

the  current  BASIC  program  pointer  in  register  pair 
HL, 

236AH  -  236OK  Save  the  address  of  the  current  BASIC  program 
pointer  in  register  pair  HL. 

236BK  -  236EH  Check  to  see  if  the  operator  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is  an 
arithmetic  token. 

236FH  Return  if  the  character  at  the  location  of  the  current 

BASIC  program  pointer  in  register  A  isn't  an  arith- 
metic token, 

237OH  -  237IH  Check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is  a  -f 
to  OR  token. 

2372H  Return  if  the  character  at  the  location  of  the  current 

BASIC  program  pointer  in  register  A  isn't  a  +  to  OR 
token. 

2373H  Load  register  E  with  the  operator  value  in  register 

A.. 

237^H  -  2376H  Load  register  A  with  the  current  value  of  the  number 
type  flag. 

2377H  -  2378H   Adjust  the  value  of  the  number  type  flag. 

2379H  Combine  the  operator  value  in  register  E  with  the 

adjusted  number  type  flag  in  register  A. 

237AH  -  237CH  Jump  if  the  combination  of  the  adjusted  number  type 
flag  in  register  A  and  the  operator  value  in  register  E 
indicates  string  addition, 

237DH  -  237FH  Load  register  pair  HL  with  the  starting  address  of 
the  table  of  precedence  values. 

238OH  Add  the  value  of  the  operator  in  register  pair  DE  to 

the  table  of  precedence  values  pointer  in  register 
pair  HL, 

238IH  Load  register  A  with  the  precedence  value  for  the 

last  operator  in  register  B. 
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2382H  Load  register  D  with  the  precedence  value  for  the 

current  operator. 

2383H  Compare  the  precedence  value  for  the  current  op- 

erator in  register  D  with  the  precedence  value  for 
the  last  operator  in  register  A. 

238^H  Return  if  the  precedence  value  for  the  current  oper- 

ator in  register  D  is  greater  than  the  precedence 
value  for  Sie  last  operator  in  register  A. 

2385H  Save  the  precedence  value  and  the  token  for  the  last 

operator  in  register  pair  BC  on  the  stack, 

2386H  -  2388H  Load  register  pair  BC  with  the  return  address. 

2389H  Save  the  return  address  in  register  pair  BC  on  the 

stack. 

238AH  Load  register  A  with  the  precedence  value  for  the 

current  operator  in  register  D. 

238BH  -  238CH  Check  to  see  if  the  precedence  value  for  the  current 
operator  in  register  A  indicates  an  exponential 
operator. 

238DH  -  238FH  Jump  if  the  precedence  value  for  the  current  op- 
erator in  register  A  indicates  an  exponential 
operator. 

239OH  -  239IH  Check  to  see  if  the  precedence  value  for  the  current 
operator  in  register  A  indicates  a  logical  operator. 

2392H  -  239^H  Jump  if  the  precedence  value  for  the  current  op- 
erator in  register  A  indicates  a  logical  operator. 

2395H  -  2397H  Load  register  pair  HL  with  the  address  of  REGl. 

2398H  Clear  the  flags. 

2399H  -  239BH  Load  register  A  with  the  current  value  of  the  number 
type  flag. 

239CH  Adjust  the  current  number  type  flag  in  register  A. 

239DH  Adjust  the  current  number  type  flag  in  register  A. 

239EH  Adjust  the  current  number  type  flag  in  register  A. 

239FH  -  23A1H  Go  to  the  Levelll  BASIC  error  routine  and  display  a 
TM  ERROR  message  if  the  current  value  in  REGl  is 
a  string. 

23A2H  Get  the  value  at  the  location  of  the  memory  pointer 

in  register  pair  HL  and  put  it  in  register  C. 
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23A3H  Bump  the  value  of  the  memory  pointer  in  register 

pair  HL. 

23A^H  Load  register  B  with  the  value  at  the  location  of  the 

memory  pointer  in  register  pair  HL. 

23A5H  Save  the  value  in  register  pair  BC  on  the  stack. 

23A6H  -  23A8H    Jump  if  the  current  number  type  is  an  integer. 

23A9H  Bump  the  value  of  the  memory  pointer  in  register 

pair  HL. 

23AAH  Load  register  C  with  the  value  at  the  location  of  the 

memory  pointer  in  register  pair  HL. 

23ABH  Bump  the  value  of  the  memory  pointer  in  register 

pair  HL. 

23AGH  Load  register  B  with  the  value  at  the  location  of  the 

memory  pointer  in  register  pair  HL. 

23ADH  Save  the  value  in  register  pair  BC  on  the  stack. 

23AEH  Save  the  value  in  register  pair  AF  on  the  stack. 

23AFH  Check  to  see  if  the  current  number  type  is  double 

precision. 

23B0H  -   23B2H  Jump  if  the  current  number  type  is  single  precision. 

23B3H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  AF. 

23B^H  Bump  the  value  of  the  memory  pointer  in  register 

pair  HL. 

23B5H    -  23B6H  Jump  if  the  current  number  type  is  single  precision. 

23B7H  "  23B9H    Load  register  pair  HL  with  the  starting  address  of 
REGL 

23BAH  Load  register  C  with  the  value  at  the  location  of  the 

memory  pointer  in  register  pair  HL. 

23BBH  Bump  the  value  of  the  memory  pointer  in  register 

pair  HL. 

23BCH  Load  register  B  with  the  value  at  the  location  of  the 

memory  pointer  in  register  pair  HL. 

23BDH  Bump  the  value  of  the  memory  pointer  in  register 

pair  HL. 

23BEH  Save  the  value  in  register  pair  BC  on  the  stack. 
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23BFH  Load  register  C  with  the  value  at  the  location  of  the 

memory  pointer  in  register  pair  HL. 

23  c  OH  Bump  the  value  of  the  memory  pointer  in  register 

pair  HL. 

23CIH  Load  register  B  with  the  value  at  the  location  of  the 

memory  pointer  in  register  pair  HL. 

23C2H  Save  the  value  in  register  pair  BC  on  the  stack. 

23C^H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  AF. 

23C5H  -  23C6H   Adjust  the  number  type  in  register  a. 

23C7H  Load  register  C  with  the  value  of  the  current  op- 

erator token  in  register  E. 

23C8H  Load  register  B  with  the  number  type  flag  in  register 

A. 

23C9H  Save  the  value  in  register  pair  BC  on  the  stack. 

23GAH  "  23CCH   Load  register  pair  BC  with  the  return  address. 

23CDH  Save  the  return  address  in  register  pair  BC  on  the 

stack. 

23CEH  -  23D0H  Load  register  pair  HL  with  the  value  of  the  current 
BASIC  program  pointer. 

23D1H  -  23D3H  Jump. 

23Dto  -   23D6H   Go  convert  the  integer  result  in  REGl  to  single 
precision. 

23D7H  "  23D9H  Go  move  the  single  precision  result  in  REGl  onto 
the  stack, 

23DAH  -  23DCH  Load  register  pair  BC  with  the  address  of  the  expo- 
nential routine. 

23DDH  -  23DEH  Load  register  D  with  the  precedence  value  for  an 
exponential  operator. 

23DFH  -  23B0H  Jump. 

23EIH  Save  the  precedence  value  and  the  operator  token  in 

register  pair  DE  on  the  stack. 

23E2H  -  23S^H  Go  convert  the  current  result  in  REGl  to  an  integer. 

23E5H  Get  the  precedence  value  and  the  operator  token 

from  the  stack  and  put  it  in  register  pair  DE. 
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23E6H  Save  the  integer  value  in  register  pair  HL  on  the 

stack. 

23E7H  -  23E9H   Load  register  pair  BC  with  the  return  address. 

23MH  -  23EBH  Jump. 

23ECH  Load  register  A  with  the  precedence  value  for  the 

last  operator  in  register  B. 

23EDH  "  23BEH  Check  to  see  if  the  last  operator  was  a  logical 
operator. 

23EFH  Jump  if  the  last  operator  was  a  logical  operator. 

23P0H  Save  the  precedence  value  and  the  operator  token 

for  the  last  operator  in  register  pair  BC  on  the  stack. 

23F1H  Save  the  precedence  value  and  the  token  for  the 

current  operator  in  register  pair  DE  on  the  stack. 

23F2H  -  23F^H  Load  register  pair  DE  with  the  precedence  value  and 
the  token  for  the  new  operator. 

23F5H  -  23F7H  Load  register  pair  HL  with  the  address  to  perform 
the  current  operation. 

23F8H  Save  the  value  of  the  address  in  register  pair  HL  on 

the  stack. 

23F9H  Go  check  the  value  of  the  current  number  type  flag. 

23FAH  -  23FCH  Jump  if  the  current  value  in  E^Gl  is  numeric. 

23FDH  -  23FFH   Load  register  pair  HL  with  the  string  address  in 
REGL 

2^00H  Save  the  string's  address  in  register  pair  HL  on  the 

stack. 

2^01H  -  2303H  Load  register  pair  BC  with  the  address  of  the  string 
comparison  routine. 

24o4H  "  2^05H  Jump. 

2406H  Get  the  precedence  value  and  the  token  for  the  last 

operator  from  the  stack  and  put  it  in  register  pair 
BC. 

2407H  Load  register  A  with  the  operator  token  in  register 

C. 

2408H  ^  2^0AH  Save  the  operator  token  in  register  A. 

2^0BH  Load  register  A  with  the  precedence  value  in  regis- 

ter B. 
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ZkOOE  -  2^0DH  Check  the  number  type  for  the  precedence  value  in 
register  A. 

240EH  -  2^0FH  Jump  if  the  number  type  in  register  A  is  double 
precision. 

2^1  OH  "  2412H  Load  register  A  with  the  number  type  for  the  current 
result  in  REGl. 

2^13H  -  2^1^H  Check  to  see  if  the  current  result  in  REGl  is  double 
precision. 

2^15H  "  2^17H  Jump  if  the  current  value  in  REGl  is  double  preci- 
sion. 

2^18H  Load  register  D  with  the  current  number  type  flag  in 

register  A. 

2J^19H  Load  register  A  with  the  precedence  value  for  the 

last  operator  in  register  B. 

23IAH  -  2^1BH  Check  to  see  if  the  number  type  for  the  precedence 
value  in  register  A  is  single  precision. 

241CH  "  2^1EH  Jump  if  the  number  type  for  the  precedence  value  in 
register  A  is  single  precision. 

2j^1FH  Load  register  A  with  the  number  type  flag  for  the 

value  in  REGl. 

2420H  -   2421H   Check  to  see  ifthe  current  value  in  REGl  is  a  string. 

2^22H  "  2^2^H  Go  to  the  Level  II  BASIC  error  routine  and  display  a 
TM  ERROR  message  if  the  current  value  in  REGl  is 
a  string. 

2325H  -  2^27H  Jump  if  the  current  value  in  REGl  is  single  preci- 
sion. 

2428H  -  2^2AH  Load  register  pair  HL  with  the  starting  address  of 
the  arithmetic  jump  table. 

2/|.2BH  -  242  OH  Load  register  B  with  zero. 

242DH  Add  the  operator's  token  in  register  pair  BC  to  the 

value  of  the  arithmetic  jump  table  pointer  in  register 
pair  HL. 

ZkZEE  Add  the  operator's  token  in  register  pair  BC  to  the 

value  of  the  arithmetic  jump  table  pointer  in  register 
pair  HL. 

242FH  Load  register  C  with  the  LSB  of  the  jump  address  at 

the  location  of  the  arithmetic  jump  table  pointer  in 
register  pair  HL. 
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243  OH  Bump  the  value  of  the  arithmetic  jump  table  pointer 

in  register  pair  HL. 

243IH  Load  register  B  with  the  MSB  of  the  jump  address  at 

the  location  of  the  arithmetic  jump  table  pointer  in 
register  pair  HL. 

2^3  2H  Get  the  value  for  the  previous  result  from  the  stack 

and  put  it  in  register  pair  DE. 

2433H  -  2^3 5H  Get  the  value  for  the  current  result  from  REGl  and 
put  it  in  register  pair  HL. 

2436H  Save  the  arithmetic  routine's  jump  address  in  regis- 

ter pair  BC  on  the  stack. 

2437H  Return. 

2438H  -  2k3AK  Go  convert  the  result  in  REGl  to  double  precision. 

243BH  -  243DH  Go  convert  the  current  result  in  REGl  to  single 
precision. 

243SH  Get  the  value  from  the  stack  and  put  it  in  register 

pair  HL. 

243  FH  -  2441H  Save  the  value  in  register  pair  HL  in  REGL 

ZkkZR  Get  the  value  from  the  stack  and  put  it  in  register 

pair  HL. 

2443H  "   2445H  Save  the  value  in  register  pair  HL  in  REGl. 

2446H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  BC. 

2447H  Get  the  value  from  the  stack  and  put  it  in  register 

pafr  DE. 

2448H  -  244AH  Go  move  the  32-bit  value  in  register  pairs  BC  and 
DE  into  REGl. 

244BH  -  244DH  Go  convert  the  previous  value  to  double  precision. 

244EH  -   ZkSO}i  Load  register  pair  HL  with  die  double  precision 
arithmetic  jump  table's  starting  address. 

245IH  -  2453H  Load  register  A  with  the  operator  token  in  register 

A. 

2454H  Multiply  the  value  of  the  operator  token  in  register  A 

by  two. 

2455H  Save  the  value  in  register  pair  BC  on  the  stack. 

2456H  Load  register  C  with  the  adjusted  value  of  the 

operator  token  in  register  A. 
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2457H  -   2^58H  Load  register  B  with  zero. 

2^59H  Add  the  value  of  the  adjusted  operator  token  in 

register  pair  BC  to  the  value  of  the  double  precision 
arithmetic  jump  table  pointer  in  register  pair  HL. 

2^5AH  Get  the  value  from  the  stack  and  put  it  in  register 

pair  BC. 

2J^5BH  Load  register  A  with  the  LSB  of  the  jump  address  at 

the  location  of  the  arithmetic  jump  table  pointer  m 
register  pair  HL. 

2^5  CH  Bump  the  value  of  the  arithmetic  jump  table  pointer 

in  register  pair  HL. 

2^'5DK  Load  register  H  with  the  MSB  of  the  jump  address  at 

the  location  of  the  arithmetic  jump  table  pointer  m 
register  pair  HL. 

245EH  Load  register  L  with  the  LSB  of  the  jump  address  in 

register  A. 

Z^-SFK  Jui^P  to  the  arithmetic  routine  whose  address  is  in 

register  pair  HL. 

2^6  OH  ^^^^  the  precedence  value  and  the  operator  token  in 

register  pair  BC  on  the  stack. 


2^6lH  -  2^63H  Move  the  current  result  to  the  a  storage  area. 
2^6^H 


Load  register  A  with  the  value  of  the  current  number 
type  flag. 

2^6 5H  "  2k67K  Save  the  value  of  the  current  number  type  flag  in 
register  A. 

2468H  -   2469H  Check  to  see  if  the  current  result  in  REGl  is  single 
precision. 

2^6AH  -   246BH  Jump  if  the  current  result  in  REGl  is  single  preci- 
sion. 

2^6  CH  Get  the  integer  value  from  the  stack  and  put  it  in 

register  pair  HL. 

2^6DH  -   2^6FH  Save  the  integer  value  in  register  pair  HL  in  REGl. 

2^4-7  OH  -  2^7  IH  Jump. 

2^72H  -   2^7^H  Go  convert  the  current  result  in  REGl  to  single 
precision. 

2^75H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  BC. 
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2^76H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  DE. 

2^7  7H   -  2479H  Load  register  pair  HL  with  the  starting  address  of 
the  single  precision  arithmetic  jump  table. 

2^7AH  -  2^7BH  Jump. 

2^7  GH  Get  the  integer  value  from  the  stack  and  put  it  in 

register  pair  HL 

2^7DH  -  247FH  Save  the  current  single  precision  result  in  REGl  on 
the  stack. 

2480H  -   2482H  Go  convert  the  integer  valuein  register  pair  HL  to 
single  precision. 

2^83H  -  2^85H  Save  the  single  precision  value  in  REGl  in  register 
pairs  BC  and  DE. 

2^86H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  HL. 

2^8  7H  "   2^8  9H  Save  the  value  in  register  pair  HL  in  REGl. 

248AH  Get  the  value  from  the  stack  and  put  it  in  register 

pair  HL. 

248BH  -  248DH  Save  the  value  in  register  pair  HL  in  REGl. 

2^8EH  -  2^8FHJump. 

2^90H  Save  the  integer  value  in  register  pair  HL  on  the 

stack. 

2^91H  Load  register  pair  HL  with  the  integer  value  in 

register  pair  DE. 

2492H  -   2^9to  Go  convert  the  integer  value  in  register  pair  HL  to 
single  precision  and  return  with  the  result  in  REGl. 

2^95H  Get  the  integer  value  from  the  stack  and  put  it  in 

register  pair  HL. 

2^96H  -  2498H  Go  move  the  single  precision  value  in  REGl  on  to 
the  stack. 

2^99H  -  249BH  Go  convert  the  integer  value  in  register  pair  HL  to 
single  precision  and  return  with  the  result  in  REGl. 

2^9CJH  -  249EH  Go  do  a  single  precision  divide. 

249FH  Go  bump  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL  till  it  points  to  the  next 
character. 
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24A0H  -  ZkAlK  Load  register  E  with  a  MO  ERROR  code. 

2^A2H  -  E^A^H  Go  to  the  Level  11  BASIC  error  routine  and  display  a 
MO  ERROR  message  if  this  is  the  end  of  the  expres- 
sion. 

24A5H  "  2^A7H  Jump  if  the  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  pair  HL  is 
numeric. 

2^A8H  -  2^AAH  Check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  pair  HL 
is  alphabetic, 

24ABH  -  2^ADH  Jump  if  the  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  pair  HL  is  alpha- 
betic. 

2^AEH  -  2^AFH  Check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is  a  -f 
token. 

2^B0H  -  2^B1H  Jump  if  the  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  A  is  a  H-  token. 

2^B2H  "  2^B3H  Check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is  a 
decimal  point. 

2^B^H  -  2^B6H  Jump  if  the  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  A  is  a  decimal 
point. 

24B7H  "  2^B8H  Check  to  see  if  the  character  at  ±e  location  of  the 
current  BASIC  program  pointer  in  register  A  is  a  - 
token. 

2^B9H  -  2^BBH  Jump  if  the  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  A  is  a  -  token. 

2^BCH  -  2^BDH  Check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is  a 
quote. 

2^BEH  "•  2^C0H  Jump  if  the  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  A  is  a  quote. 

2^C1H  -  2^C2H  Check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is  a 
NOT  token. 

2k05E  Jump  if  the  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  A  is  a  NOT 
token. 


2^C3H  " 

2^C6H  - 
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2^C7H  Check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is  a  &. 


2^C8H  -  2^CAH  Jump  if  the  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  A  is  a  &. 

24CBH  -  24CCH  Check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is  an 
ERR  token. 

2^CDH  -  ZkCEK  Jump  if  the  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  A  isn't  an  ERR 
token. 

24CFH  Go  bump  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL  till  it  points  to  the  next 
character. 

2  to  OH  -  24D2H  Load  register  A  with  the  value  of  the  current  error 
number. 

2to3H  Save  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL  on  the  stack. 

2tote  -  2to6H  Go  save  the  value  of  the  current  error  number  in 
register  A  as  the  current  result  in  REGL 

2to7H  Get  the  value  of  the  current  BASIC  program  pointer 

from  the  stack  and  put  it  in  register  pair  HL 

2to8H  Return. 

2to9H  -  2toAH  Check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is  a 
ERL  token. 

24DBH  -  24DCH  Jump  if  the  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  A  isn't  an  ERL 
token. 

2toDH  Go  bump  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL  till  it  points  to  the  next 
character. 

2  toEH  Save  the  value  of  the  current  BASIC  program  point- 

er in  register  pair  HL  on  the  stack. 

2kDFK  "  ZkElK  Load  register  pair  HL  with  the  current  error  line 
number. 

Z^'E2K  -  24E3H  Go  save  the  error  line  number  in  register  pair  HL  as 
the  current  result  in  REGl. 

2te5H  Get  the  value  of  the  current  BASIC  program  pointer 

from  the  stack  and  put  it  in  register  pair  HL. 

2^E6H  Return. 

24E7H  -  24E8H  Check  to  see  if  the  character  at  the  location  of  the 
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current  BASIC  program  pointer  in  register  A  is  a 
VARPTR  token. 

24E9H  -  24EAH  Jump  if  the  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  A  isn't  a  VAR- 
PTR token. 

2^EBH  Go  bump  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL  till  it  points  to  the  next 
character. 

24ECH  -  2^EDH  Go  check  the  syntax.  The  character  at  the  location  of 
the  current  BASIC  program  pointer  in  register  pair 
HL  must  be  a  (. 

2^EEH  "  2^F0H  Go  evaluate  the  variable  name  at  the  location  of  the 
current  BASIC  program  pointer  in  register  pair  HL. 

2^F1H  -  2^F2H  Go  check  the  syntax.  The  character  at  the  location  of 
the  current  BASIC  program  pointer  in  register  pair 
HL  must  be  a  ). 

2^F3H  Save  the  value  of  the  current  BASIC  program  point- 

er in  register  pair  HL  on  the  stack. 

2^'FkK  Load  register  pair  HL  with  the  variable's  address  in 

register  pair  DE. 

2^F5H  Load  register  A  with  MSB  of  the  variable's  address 

in  register  H. 

24f6H  Combine  the  LSB  of  the  variable's  address  in  regis- 

ter L  with  the  MSB  of  the  variable's  address  in 
register  A. 

2^F7H  -  2^F9H  Go  to  the  Level  II  BASIC  error  routine  and  display  a 
PC  ERROR  message  if  the  variable's  address  in 
register  pair  HL  is  equal  to  zero. 

24FAH  -  24'FCH  Save  the  variable's  address  in  register  pair  HL  as  the 
current  result  in  REGL 

2^FDH  Get  the  value  of  the  current  BASIC  program  pointer 

from  the  stack  and  put  it  in  register  pair  HL. 

24FEH  Return. 

2^FFH  -  25OOH  Check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is  a 
USR  token. 

25OIH  «-  2503H  Jump  if  the  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  A  is  a  USR 
token. 

250^H  -  2505H  Check  to  see  if  the  character  at  the  location  of  the 
436 


current  BASIC  program  pointer  in  register  A  is  a 
INSTR  token. 

2506H  "  2508H  Jump  if  the  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  A  is  an  INSTR 
token. 

2509H  -  25OAH  Check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is  a 
MEM  token. 

25OBH  -  25ODH  Jump  if  the  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  A  is  a  MEM 
token. 

25OEH  -  25OFH  Check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is  a 
TIME$  token. 

25IOH  -  2512H  Jump  if  the  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  A  is  a  TIME$ 
token. 

2513H  -  25lto  Check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is  a 
POINT  token. 

2515H  "  2517H  Jump  if  the  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  A  is  a  POINT 
token. 

25I8H  -  25I9H  Check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is  an 
INKEY$  token. 

25IAH  -  25ICH  Jump  if  the  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  A  is  an  INKEY$ 
token. 

25IDH  -  25IEH  Check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is  a 
STRING!  token. 

2^1FH  -  2^21H  Jump  if  die  character  at  the  location  of  the  current 
BASIC  program  pomter  in  register  A  is  a  STRING$ 
token. 

ZSZZK  -  2523H  Check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is  a  FN 
token. 

2524H  -  2526H  Jump  if  the  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  A  is  a  FN  token. 

ZSZ^l:i  -  2528H  Check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is  a 
SGN  to  MID$  token. 
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2529H  -  252BH  Jump  if  the  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  A  is  a  SGN  to 
MID$  token. 

252CH  «  252EH  Go  evaluate  the  expression  at  the  location  of  the 
current  BASIC  program  pointer  in  register  pair  HL. 

2^2FH  -  253OH  Check  the  syntax.  The  character  at  the  location  of 
the  current  BASIC  program  pointer  in  register  pair 
HL  must  be  a  ). 

2^31H  Return. 

2532H  Load  register  D  with  the  precedence  value. 

253^H  -  2536H  Go  evaluate  the  variable  at  the  location  of  the  cur- 
rent BASIC  program  pointer  in  register  pair  HL. 

2537H  -  2539H  Load  register  pair  HL  with  the  value  of  the  current 
BASIC  program  pointer. 

253AH  Save  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL  on  the  stack. 

253BH  "  253DH    Invert  the  sign  of  the  current  value  in  REGl. 

253EH  Get  the  value  of  the  current  BASIC  program  pointer 

from  the  stack  and  put  it  in  register  pair  HL. 

253FH  Return. 

25^0H  -  25^2H  Get  the  address  of  the  variable  at  the  location  of  the 
current  BASIC  program  pointer  in  register  pair  HL 
and  return  with  it  in  register  pair  DE. 

254'3H  Save  the  value  of  the  current  BASIC  program  point- 

er in  register  pair  HL  on  the  stack. 

Z^kkR  Load  register  pair  HL  with  the  variable's  address  in 

register  pair  DE. 

25^5H  -"  25^7H  Save  the  variable's  address  in  register  pair  HL  in 
REGL 

25^8H  Go  check  the  current  value  of  the  number  type  flag. 

25J^9H  "  25^BH  Go  move  data  if  the  current  number  type  flag  indi- 
cates a  numeric  value  in  REGl. 

2  5^CH  Get  the  value  of  the  current  BASIC  program  pointer 

from  the  stack  and  put  it  in  register  pair  HL. 

25^DH  Return. 

25^EH  -   25^FH    Load  register  B  with  zero. 
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2  5  5  OH  Multiply  the  value  of  the  operator  token  in  register  A 

by  two. 

255IH  Load  register  C  with  the  adjusted  value  of  the 

operator  token  in  register  A. 

2552H  Save  the  value  of  the  token  in  register  pair  BC  on  the 

stack. 

2553H  Go  bump  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL  till  it  points  to  the  next 
character. 

2  55^H  Load  register  A  with  the  value  of  the  operator  token 

in  register  C. 

2555H  "  2556H    Check  the  value  of  the  operator  token  in  register  C. 

2557H  "  2558H  Jump  if  the  value  of  the  operator  token  in  register  A 
is  SGN  to  CHR$. 

2559H  -  255BH    Go  evaluate  the  expression. 

255CH  -  255DH  Go  check  the  syntax.  The  character  at  the  location  of 
the  current  BASIC  program  pointer  in  register  pair 
HL  must  be  a  comma. 

255EH  -  2  56  OH  Go  display  an  error  message  if  the  current  result 
isn't  a  string. 

256IH  Exchange  the  address  of  the  string  in  register  pair 

DE  with  the  value  of  the  current  BASIC  program 
pointer  in  register  pair  HL. 

2562H  -  256^H    Load  register  pair  HL  with  the  VARPTR  for  the 

string. 

2565}i  Exchange  the  string's  VARPTR  in  register  pair  HL 

with  the  value  on  the  stack. 

2566H  Save  the  value  in  register  pair  HL  on  the  stack. 

2567H  Load  register  pair  HL  with  the  value  of  the  current 

BASIC  program  pointer  in  register  pair  DE. 

2568H  -  256AH  Go  evaluate  the  expression  at  the  location  of  the 
current  BASIC  program  pointer  in  register  pair  HL. 

256BH  Exchange  the  integer  value  in  register  pair  DE  with 

the  value  of  the  current  BASIC  program  pointer  in 
register  pair  HL. 

256  CH  Exchange  the  integer  value  in  register  pair  HL  with 

the  value  on  the  stack. 

256DH  -   256EH  Jump. 
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256FH  -  2571H    Evaluate  the  expression  at  the  location  of  the  cur- 
rent BASIC  program  pointer  in  register  pair  HL. 

2572H  Exchange  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL  with  the  operator  value 
on  the  stack. 

2573H  Load  register  A  with  the  operator  token  in  register 

257^H  -  2575H    Check  to  see  if  the  operator  token  in  register  A  is 
SGN  to  SQR. 

2576H  -  2577H    Jump  if  the  operator  token  in  register  A  is  SGN  to 
SQR. 

25  78H  -  2579H    Check  the  value  of  the  operator  token  in  register  A. 

257AH  Save  the  operator  value  in  register  pair  HL  on  the 

stack. 

257BH  "  257DH    Go  convert  the  result  in  REGl  to  single  precision  if 
the  operator  token  in  register  A  is  SQR  to  ATN. 

257EH  Get  the  operator  value  from  the  stack  and  put  it  in 

register  pair  HL. 

257FH  -  258IH    Load  register  pair  DE  with  the  value  of  the  return 
address. 

2582H  Save  the  value  of  the  return  address  in  register  pair 

DE  on  the  stack. 

2583H  -  2585H    Load  register  pair  BC  with  the  SGN  to  MID$  jump 
table  address. 

2586H  Add  the  jump  table  pointer  in  register  pair  BC  with 

the  value  of  the  operator  token  in  register  pair  HL. 

2587H  Load  re^ster  C  with  the  LSB  of  the  jump  address  at 

the  location  of  the  jump  table  pointer  in  register  pair 
HL. 

2588H  Bump  the  value  of  the  jump  table  pointer  in  register 

pair  HL. 

2589H  Load  re^ster  H  with  the  MSB  of  the  jump  address  at 

the  location  of  the  Jump  table  pointer  in  register  pair 
HL. 

258AH  Load  register  L  with  the  LSB  of  the  jump  address  in 

register  C. 

258BH  J^^P  t^  ^^  address  in  register  pair  HL. 

258CH  -  258EH    Go  check  to  see  if  there  is  enough  memory  for  the 
string. 
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258FH 
2590H 
2591H 

2592H 
259^H 

2595H 

2596H 
2597H 

259AH 

259BH 

259CH 
259DH 

259e:h 

259FH 

25A0H 
25A1H 
25A2H 
25A3H 


Load  register  A  with  the  length  of  the  string  at  the 
location  of  the  string's  VARPTR  in  register  pair  HL. 

Bump  the  value  of  the  string's  VARPTR  in  register 
pair  HL, 

Load  register  C  with  the  LSB  of  the  string's  address 
at  the  location  of  the  string's  VARPTR  in  register 
pair  HL. 

Bump  the  value  of  the  string's  VARPTR  in  register 
pair  HL. 

Load  register  B  with  the  MSB  of  the  string's  address 
at  the  location  of  the  string's  VARPTR  in  register 
pair  HL. 

Save  the  value  of  the  string's  address  in  register  pair 
BC  on  the  stack. 

Save  the  string's  length  in  register  A  on  the  stack. 

Load  register  pair  HL  with  the  second  string's  VAR- 
PTR. 

Get  the  length  of  the  first  string  from  the  stack  and 
put  it  in  register  D. 

Load  register  E  with  the  second  string's  length  at 
the  location  of  the  second  string's  VARPTR  in 
register  pair  HL. 

Bump  the  value  of  the  second  string's  VARPTR  in 
register  pair  HL. 

Load  register  C  with  the  LSB  of  the  second  string's 
address  at  the  location  of  the  second  string's 
VARPTR  in  register  pair  HL. 

Bump  the  value  of  the  second  string's  VARPTR  in 
register  pair  HL. 

Load  register  B  with  the  MSB  of  die  second  string's 
address  at  the  location  of  the  second  string's 
VARPTR  in  register  pair  HL. 

Get  the  first  string's  address  from  the  stack  and  put 
it  in  register  pair  HL. 

Load  register  A  with  the  length  of  the  second  string 
in  register  E. 

Combine  the  first  string's  length  in  register  D  with 
the  second  string's  length  in  register  A. 

Return  if  there  aren't  any  characters  left  in  either 
string  to  be  compared. 
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25A^H  Load  register  A  with  the  first  string's  length  in 

register  D. 

25A5H  -  25A6H  Check  to  see  if  the  first  string^s  length  in  register  a 
is  equal  to  zero. 

25A7H  Return  if  there  are  no  more  characters  in  the  first 

string  to  be  compared. 

25A8H  Load  register  A  with  zero. 

2  5A  9H  Check  to  see  if  the  second  string's  length  in  register 

E  is  equal  to  zero. 

25AAH  Bump  the  value  in  register  A. 

25ABH  Return  if  there  aren't  anymore  characters  in  the 

second  string  to  be  compared. 

25ACH  Decrement  the  value  of  the  first  string's  length  in 

register  D. 

25ADH  Decrement  the  value  of  the  second  string's  length  in 

register  E. 

25AEH  Load  register  A  with  tlie  character  at  the  location  of 

the  second  string  pointer  in  register  pair  BC. 

25AFH  Compare  the  character  at  the  location  of  the  second 

string  pointer  in  register  A  with  the  character  at  the 
location  of  the  first  string  pointer  in  register  pair 
HL. 

25B0H  Bump  the  value  of  the  first  string  pointer  in  register 

pair  HL. 

25B1H  Bump  the  value  of  the  second  string  pointer  in 

register  pair  BC. 

25B2H  -  25B3H  Jump  if  the  characters  match. 

25B^H  Compliment  the  value  of  the  Carry  flag. 

25B5H  -  25B7H  Jump. 

25B8H  Bump  the  value  of  the  current  precedence  value  in 

register  A. 

25B9H  Adjust  the  value  of  the  current  precedence  value  in 

register  A. 

25BAH  Get  the  last  operator  value  firom  the  stack  and  put  it 

in  register  pair  BC. 

25BBH  Combine  the  precedence  value  in  register  B  with  the 

precedence  value  in  register  A. 
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25BCH  -  25BDH  Adjust  the  value  in  register  A. 

2  5BEH  Check  to  see  if  the  precedence  values  in  registers  A 

and  B  match. 

25BFH  -  25C1H  If  the  values  match,  set  the  current  result  in  zero.  If 
they  do  not  match,  set  the  current  result  to  -1. 

25C2H  -  25C3H  Jump. 

25C4h  -  25C5H  Load  register  D  with  the  precedence  value. 

25C6H  -  25C8H  Go  evaluate  the  expression. 

25C9H  -  25CBH  Go  convert  the  current  result  in  REGl  to  an  integer. 

25CCH  ^^^^  register  A  with  the  LSB  of  the  integer  value. 

25CDH  Compliment  the  LSB  of  the  integer  value  in  register 

A. 

25CEH  Load  register  L  with  the  adjusted  LSB  of  the  integer 

value  in  register  A. 

25CFH  Load  register  A  with  the  MSB  of  the  integer  value  in 

register  H. 

25D0H  Compliment  the  MSB  of  the  integer  value  in  register 

A. 

25D1H  Load  register  H  with  the  adjusted  MSB  of  the  in- 

teger value  in  register  A. 

25D2H  -   25D^H  Save  the  complimented  integer  value  in  register  pair 
HL  as  the  current  result  in  REGl. 

25D5H  Clean  up  the  stack. 

25D6H  -  25D8H  Jump. 

25D9H  -  25DBH  Load  register  A  with  the  current  value  of  the  number 
type  flag. 

25T^0K  -  25DDH  Check  to  see  if  the  current  value  in  REGl  is  double 
precision, 

25DEH  -  25DFH  Jump  if  the  current  value  in  REGl  is  double  preci- 
sion. 

25E0H  -  25E1H  Adjust  the  value  of  the  current  number  type  flag  in 
register  A, 

25E2H  Check  the  value  of  the  adjusted  number  type  flag  in 

register  A. 

24E3H  Set  the  Carry  flag. 
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25E^H  Return. 

25E5H  ~   25E6H  Adjust  the  value  of  the  current  number  type  flag  in 
register  A. 

25E7H  Test  the  value  of  the  current  number  type  flag  in 

register  A. 

25E8H  Return. 

25E9H  Save  the  operator  value  in  register  pair  BC  on  the 

stack. 


25EAH  "  25ECH   Go  convert  the  current  result  in  REGl  to  an  integer 
25EDH 


25EEH 


Get  the  operator  value  from  the  stack  and  put  it  in 
register  A. 

Get  the  return  address  from  the  stack  and  put  it  in 
register  pair  DE. 


25EFH   -   25F1H   Load  register  pair  BC  with  the  return  address. 
25F2H 


Save  the  value  of  the  return  address  in  register  pair 
BC  on  the  stack. 

25F3H  -   25Fto   Check  to  see  if  the  operator  value  in  register  A  is  an 
OR  token. 

25F5H  -   25F6E  Jump  if  the  operator  value  in  register  A  isn't  an  OR 
token. 

25F7H  I-oad  register  A  with  the  LSB  of  the  first  value  in 

register  E. 

25F8H  Combine  the  LSB  of  the  first  value  in  register  A  with 

the  LSB  of  the  second  value  in  register  L. 

25F9H  I-oad  register  L  with  the  ORed  value  in  register  A. 

2  5  FAH  Load  register  A  with  the  MSB  of  the  second  value  in 

register  H. 

25FBH  Combine  the  MSB  of  the  first  value  in  register  D 

with  the  MSB  of  the  second  value  in  register  A. 

25FCH  Return. 

25FDH  Load  register  A  with  the  LSB  of  the  first  value  in 

register  E. 

25FEH  Combine  the  LSB  of  the  first  value  in  register  A  with 

the  LSB  of  the  second  value  in  register  L. 

2  5FFH  Load  register  L  with  the  ANDed  value  in  register  A. 
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26  0  OH  Load  register  A  with  the  MSB  of  the  second  value  in 

register  H. 

26OIH  Combine  the  MSB  of  the  first  value  in  register  D 

with  the  MSB  of  the  second  value  in  register  A. 

2602H  Return. 

26  03H  Decrement  the  value  of  the  BASIC  program  pointer 

in  register  pair  HL. 

2604H  Go  bump  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL  till  it  points  to  the  next 
character. 

2605H  Return  if  this  is  the  end  of  the  BASIC  statement. 

26O6H  -  2607H  Go  check  the  syntax.  The  character  at  the  location  of 
the  current  BASIC  program  pointer  in  register  pair 
HL  must  be  a  comma. 

26O8H  "   26OAH  Load  register  pair  BC  with  the  return  address. 

26  OBH  Save  the  value  of  the  return  address  in  register  pair 

BC  on  the  stack. 

26  OCH  -  26ODH  Reset  the  value  in  register  A. 

26OEH  -  26IOH  Save  the  value  in  register  A  as  the  current  variable 
location/creation  flag. 

26IIH  Load  register  B  with  the  first  character  of  the  vari- 

able name. 

2612H  ~  2614h  Make  sure  the  first  character  of  the  variable  name  is 
a  letter. 

2615H  -  26I7H  Go  to  the  Level  n  BASIC  error  routine  and  display  a 
SN  ERROR  message  if  the  first  character  of  the 
variable  name  isn't  a  letter. 

26I8H  Zero  register  A. 

261 9H  Zero  register  C. 

26IAH  Go  bump  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL  till  it  points  to  the  next 
character. 

26IBH  -  26ICH  Jump  if  the  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  A  is  numeric. 

26IDH  -  26IFH  Go  check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  is  a  letter. 

262 OH  -  262IH  Jump  if  the  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  A  isn't  a  letter. 
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2622H  Load  register  C  with  the  second  character  of  the 

variable  name  in  register  A. 

2623H  Go  bump  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL  till  it  points  to  the  next 
character, 

262^H  -  2625H  Loop  till  a  nonnumeric  character  is  found. 

2626H  "  2628H  Go  check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  pair  HL 
is  alphabetic. 

262 QH  -  262AH  Jump  if  the  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  pair  HL  is  alpha- 
betic. 

262BH  -  262DH  Load  register  pair  DE  with  the  return  address. 

262EH  Save  the  value  of  the  return  address  in  register  pair 

DE  on  the  stack. 

262FH  -  263OH  Load  register  D  with  an  integer  number  type  flag. 

263 IH  -  2632H  Check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is  a  %. 

2633H  Return  if  the  character  at  the  location  of  the  current 

BASIC  program  pointer  in  register  A  is  a  %, 

263to  Bump  register  D  so  that  it  will  be  equal  to  a  string 

number  type  flag. 

263 5H  -  2636H  Check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is  a  $. 

2637H  Return  if  the  character  at  the  location  of  current 

BASIC  program  pointer  in  register  A  is  a  $. 

2638H  Bump  register  D  so  that  it  will  be  equal  to  a  single 

precision  number  type  flag. 

2639H  -  263AH  Check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is  a !. 

263BH  Return  if  the  character  at  the  location  of  the  current 

BASIC  program  pointer  in  register  A  is  a  !. 

263CH  -  263DH  Load  register  D  with  a  double  precision  number  type 
flag. 

263EH  -  263FH  Check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is  a  #. 

26^0H  Return  if  the  character  at  the  location  of  the  current 

BASIC  program  pointer  in  register  A  is  a  #. 
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26^1H  Load  register  A  with  the  first  character  of  the  vari- 

able name  in  register  B. 

2642H  "   26kJE   Adjust  the  value  of  the  first  character  of  the  variable 
name  in  register  A  so  that  it  is  in  the  range  of  0  to  25. 

26^4H  -   26^5H   Make  sure  the  sign  bit  in  register  A  isn't  set. 

26^6H  Load  register  E  with  the  adjusted  first  character  of 

the  variable  name  in  register  A. 

26^7H  -   2648H   Load  register  D  with  zero. 

2649H  Save  the  value  of  the  current  BASIC  program  point- 

er in  register  pair  HL  on  the  stack. 

264AH  -   26kOE  Load  register  pair  HL  with  the  starting  address  of 
the  variable  declaration  table. 

26toH  Add  the  value  of  the  first  character  of  the  variable 

name  in  register  pair  DE  to  the  starting  address  of 
the  variable  declaration  table  in  register  pair  HL, 

26^EH  Load  register  D  with  the  number  type  value  at  the 

location  of  the  variable  declaration  table  pointer  in 
register  pair  HL. 

26  ^  FH  Get  the  value  of  the  current  BASIC  program  pointer 

from  the  stack  and  put  it  in  register  pair  HL. 

265OH  Decrement  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL, 

265IH  Return. 

2652H  Load  register  A  with  the  value  of  the  number  type 

flag  in  register  D. 

2653H  -  2655^   Save  the  number  type  flag  for  the  current  variable 
name  in  register  A. 

2656H  Go  bump  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL  till  it  points  to  the  next 
character. 

2657'ii  -   2659H  Load  register  A  with  the  FOR  flag. 

265AH  Test  the  value  of  the  FOR  flag  in  register  A. 

265BK  -   265DH  Jump  if  a  FOR  statement  is  being  processed. 

265  EH  Load  register  A  with  the  character  at  the  location  of 

the  current  BASIC  program  pointer  in  register  pair 
HL, 

265FH  -  266 OH  Check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is  a  (. 
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2661H  -  2663H  Jump  if  the  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  A  is  a  (. 

266kE  Zero  register  A. 

2665H  -  2667H  Set  the  array  flag. 

2668H  Save  the  value  of  the  current  BASIC  program  point- 

er in  register  pair  HL  on  the  stack. 

266  9H  Save  the  number  type  flag  for  the  variable  in  register 

pair  DE  on  the  stack. 

266 AH  -  266  CH  Load  register  pair  HL  with  the  value  of  the  simple 
variables  pointer. 

266DH  Load  register  pair  DE  with  the  simple  variables 

pointer  in  register  pair  HL. 

266EE  -  267OH  Load  register  pair  HL  with  the  array  variables 
pointer. 

267IH  Go  compare  the  value  of  the  simple  variables  pointer 

in  register  pair  DE  with  the  array  variables  pointer 
in  register  pair  HL. 

2672H  Get  the  number  type  flag  for  the  variable  from  stack 

and  put  it  in  register  pair  HL. 

26  73H  "  267^H  Jump  if  the  simple  variables  pointer  in  register  pair 
DE  is  greater  than  or  equal  to  the  array  variables 
pointer. 

2675H  Load  register  A  with  the  number  type  flag  for  the 

variable  at  the  location  of  the  simple  variables 
pointer  in  register  pair  DE. 

2676E  ^^^  register  L  with  the  number  type  flag  in  register 

A. 

2677H  Compare  the  number  type  flag  for  the  variable  in 

register  H  to  the  number  type  flag  in  register  A. 

2678H  Bump  the  value  of  the  current  simple  variables 

pointer  in  register  pair  DE. 

2679H  -  267AH  Jump  if  the  number  type  flags  don't  match. 

267BH  Load  register  A  with  the  first  character  of  variable 

name  at  the  location  of  the  simple  variables  pointer 
in  register  pair  DE. 

267  CH  Compare  the  character  at  the  location  of  the  simple 

variables  pointer  in  register  A  with  the  first  charac- 
ter of  the  variable  name  in  register  C. 
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26  7DH  -  26  7EH  Jump  if  the  first  characters  of  the  variable  names 
don't  match. 

26  7  FH  Bump  the  value  of  the  current  simple  variables 

pointer  in  register  pair  DE. 

268 OH  Load  register  A  with  the  second  character  of  the 

variable  name  at  the  location  of  the  simple  variables 
pointer  in  register  pair  DE. 

268 IH  Compare  the  character  at  the  location  of  the  simple 

variables  pointer  in  register  A  with  the  first  charac- 
ter of  the  variable  name  in  register  B. 


2682H  -•  268to 

2686H 
2687H 

2688H 


Jump  if  the  character  at  the  location  of  the  simple 
variables  pointer  in  register  A  matches  the  first 
character  of  the  variable  name  in  register  B. 

Bump  the  value  of  the  current  simple  variables 
pointer  in  register  pair  DE. 

Bump  the  value  of  the  simple  variables  pointer  in 
register  pair  DE. 

Save  the  number  type  flag  for  the  variable  in  register 
pair  HL  on  the  stack. 


2689H  "  268AH  Load  register  H  with  zero. 
268BH 


Add  the  value  of  the  simple  variables  pointer  in 
register  pair  DE  to  the  value  of  the  number  type  flag 
in  register  pair  HL. 


268CH  -  268DH  Jump. 

268EH  Load  register  A  with  the  number  type  flag  for  the 

variable  in  register  H. 

268  FH  Get  the  value  of  the  current  BASIC  program  pointer 

from  the  stack  and  put  it  in  register  pair  HL. 

269OH  Exchange  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL  with  the  value  on  the 
stack. 

^6  9lH  Save  the  number  type  flag  for  the  variable  in  register 

A  on  the  stack. 

2692H  Save  the  start  of  the  array  variables  pointer  in 

register  pair  DE  on  the  stack. 

2693H  -  2695H  Load  register  pair  DE  with  the  return  address. 

26  96H  Compare  the  return  address  in  register  pair  DE  with 

the  return  address  in  register  pair  HL. 
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2697H  -  ZSgSn  Jump  if  this  routine  is  called  from  the  VARPTR 

routine. 

2699H  -  269BH  Load  register  pair  DE  with  the  return  address. 

269CH  Compare  the  return  address  in  register  pair  DE  with 

the  return  address  in  register  pair  HL. 

26  9DH  Get  the  value  of  the  array  variables  pointer  from  the 

stack  and  put  it  in  register  pair  DE. 

269EH  -  269FH  Jump  if  this  routine  is  called  to  locate  the  variable's 
address. 

26  AOH  Get  the  value  of  the  number  type  flag  for  the  variable 

from  the  stack  and  put  it  in  register  A. 

26AIH  Exchange  the  value  of  the  current  BASIC  program 

pointer  on  the  stack  with  the  value  of  the  return 
address  in  register  pair  HL. 

26A2H  Save  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL  on  the  stack. 

26A3H  Save  the  variable's  name  in  register  pair  BC  on  the 

stack. 

26A'4-H  Load  register  C  with  the  value  of  the  number  type 

flag  for  the  variable  in  register  A. 

26A5H  -  26a6H  Load  register  B  with  zero. 

26A7H  Save  the  variable's  number  type  flag  in  register  pair 

BC  on  the  stack. 

2  6 A  8H  Bump  the  value  of  the  variable's  number  type  flag  in 

register  pair  BC. 

26A9H  Bump  the  value  of  the  variable's  number  type  flag  in 

register  pair  BC. 

26AAH  Bump  the  value  of  the  variable's  number  type  flag  in 

register  pair  BC. 

26ABH  -  26ADH  Load  register  pair  HL  with  the  value  of  the  free 
memory  pointer. 

26  AEH  Save  the  value  of  the  free  memory  pointer  in  register 

pair  HL  on  the  stack. 

26AFH  Add  the  value  of  the  variable's  number  type  flag  in 

register  pair  BC  to  the  value  of  the  free  memory 
pointer  in  register  pair  HL. 

26b  OH  Get  the  value  of  the  free  memory  pointer  from  the 

stack  and  put  it  in  register  pair  BC. 
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26B1H 


Save  the  value  of  the  new  free  memory  pointer  in 
register  pair  HL  on  the  stack. 


26B2H  "   26B^H   Move  the  array  variables  up  in  memory. 
26B5H 


26b6h  "  26B8H 

26b  9H 
26BAH 

26BBH  -  26BDH 

26BEH 

26BFH  -  26C0H 

26C1H 


Get  the  value  of  the  new  free  memory  pointer  from 
the  stack  and  put  it  in  register  pair  HL. 

Save  the  value  of  the  new  free  memory  pointer  in 
register  pair  HL. 

Load  register  H  with  the  MSB  of  the  new  array 
variables  pointer  in  register  B. 

Load  register  L  wi±  the  LSB  of  the  new  array 
variables  pointer  in  register  C. 

Save  the  value  of  the  new  array  variables  pointer  in 
register  pair  HL. 

Decrement  the  value  of  the  array  variables  pointer  in 
register  pair  HL. 

Zero  the  location  of  the  memory  pointer  in  register 
pair  HL. 

Check  to  see  if  the  variable  has  been  completely 
zeroed. 


26C2H  -  26C3H    Loop  till  the  variable  has  been  cleared. 
26Cto 


26C5H 

26c6H 
26C7H 
26C8H 

26C9H 
26CAH 

26  CBH 


Get  the  value  of  the  variable's  number  type  flag  from 
the  stack  and  put  it  in  register  pair  DE. 

Save  the  value  of  the  number  type  flag  in  register  E 
at  the  location  of  the  memory  pointer  in  register  pair 
HL. 

Bump  the  value  of  the  memory  pointer  in  register 
pair  HL. 

Get  the  variable's  name  from  the  stack  and  put  it  in 
register  pair  DE. 

Save  the  first  character  of  the  variable's  name  in 
register  E  at  the  location  of  the  memory  pointer  in 
register  pair  HL. 

Bump  the  value  of  the  memory  pointer  in  register 
pair  HL. 

Save  the  second  character  of  the  variable's  name  in 
register  D  at  the  location  of  the  memory  pointer  in 
register  pair  HL. 

Load  register  pair  DE  with  the  value  of  the  variable 
pointer  in  register  pair  HL. 
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26CCH  Bump  the  value  of  the  variable  pointer  in  register 

pair  DE. 

26CDH  Get  the  value  of  the  current  BASIC  program  pointer 

from  the  stack  and  put  it  in  register  pair  HL. 

26CEH  Return. 

26  c  FH  Load  register  D  with  the  value  of  the  current  number 

type  flag  in  register  A. 

26D0H  Load  register  E  with  the  value  of  the  current  number 

type  flag  in  register  A. 

26D1H  Clean  up  the  stack. 

26D2H  Clean  up  the  stack. 

26D3H  Exchange  the  value  of  the  return  address  in  register 

pair  HL  with  the  value  of  the  current  BASIC  program 
pointer  on  the  stack. 

26Dto  Return. 

26D5K  "  26D7H    Zero  REGL 

26d8H  Clean  up  the  stack. 

26D9H  Zero  register  H. 

26DAH  Zero  register  L. 

26DBH  -  26DDH   Zero  die  string  pointer  location  in  REGl. 

26DEH  Check  die  current  value  of  the  number  type  flag. 

26DFH  -  26EOH   Jump  if  the  current  number  type  isn't  a  string. 

26EIH  "  26E3H    Load  register  pair  HL  with  the  starting  address  of 
the  Level  II  BASIC  READY  message. 

26e4H  "  26E6H    Save  the  value  in  register  pair  HL  as  the  current 
string  pointer. 

26E7H  Get  die  value  of  the  current  BASIC  program  pointer 

from  the  stack  and  put  it  in  register  pair  HL. 

26E8H  Return. 

26E9H  Save  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL  on  the  stack. 

26EAH  -  26ECH    Load  register  pair  HL  with  the  value  of  the  locate/ 
create  flag. 

26  SDH  Exchange  the  value  of  the  locate/create  flag  in 
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register  pair  HL  with  the  value  of  the  current  BASIC 
program  pointer  on  the  stack. 

26EEH  Zero  register  D. 

26  E  FH  Save  the  variable's  number  type  flag  in  register  pair 

DE  on  the  stack. 

26F0H  Save  the  variable's  name  in  register  pair  BC  on  the 

stack. 

26F1H  -  26F9H  Go  evaluate  the  array  subscript  at  the  location  of  the 
current  BASIC  program  pointer  in  register  pair  HL 
and  return  with  the  binary  value  in  register  pair  DE. 

26  F^H  Get  the  variable's  name  from  the  stack  and  put  it  in 

register  pair  BC. 

26F5H  Get  the  variable's  number  type  flag  from  the  stack 

and  put  it  in  register  A. 

26f6H  Exchange  the  value  of  the  array  subscript  in  register 

pair  DE  with  the  value  of  the  current  BASIC  pro- 
gram pointer  in  register  pair  HL. 

26  F7H  Exchange  die  value  of  die  array  subscript  in  register 

pair  HL  with  the  value  of  the  locate/create  flag  on 
the  stack. 

26  F8H  Save  the  value  of  the  locate/create  flag  in  register 

pair  HL  on  die  stack. 

26F9H  Exchange  die  value  of  die  locate/create  flag  in 

register  pair  HL  widi  the  value  of  die  current  BASIC 
program  pointer  in  register  pair  DE. 

26F^H  Bump  the  number  of  subscripts  evaluated  in  register 

A. 

26FBH  Load  register  D  with  die  number  of  subscripts 

evaluated  in  register  A. 

26FCH  Load  register  A  widi  the  character  at  the  location  of 

the  current  BASIC  program  pointer  in  register  pair 
HL. 


26FDH  "  26FEH    Check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is  a 


comma. 


26FFH  -  27OOH  Jump  if  the  character  at  the  location  of  die  current 
BASIC  program  pointer  in  register  A  is  a  comma. 

27OIH  -  27C2H  Go  check  die  syntax.  The  character  at  the  location  of 
the  current  BASIC  program  pointer  in  register  pair 
HL  must  be  a  ). 
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2703H  -  2705H    Save  the  value  of  the  current  BASIC  program  point- 
er in  register  pair  HL, 

27O6H  Get  the  value  of  the  locate/create  flagfrom  the  stack 

and  put  it  in  register  pair  HL. 

2707H  "  2709H  Save  the  value  of  the  locate/create  flag  in  register 
pair  HL. 

27OAH  Save  the  number  of  subscripts  evaluated  in  register 

pair  DE. 

27OBH  -  27ODH  Load  register  pair  HL  with  the  value  of  the  array 
variables  pointer. 

27OFH  Figure  the  end  of  the  array. 

2  71  OH  Load  register  pair  DE  with  the  value  of  the  array 

variables  pointer  in  register  pair  HL. 

27IIH  -  2713H  Load  register  pair  HL  with  the  value  of  the  free 
memory  pointer. 

271^H  Exchange  the  value  of  the  free  memory  pointer  in 

register  pair  HL  with  the  value  of  the  array  vari- 
ables pointer  in  register  pair  DE. 

2715H  Compare  the  value  of  the  free  memory  pointer  in 

register  pair  DE  to  the  value  of  the  array  vari- 
ables pointer  in  register  pair  HL. 

2716H  "  27I8H  Load  register  A  with  the  value  of  the  current  number 
type  flag. 

27I9H  -  27IAH  Jump  if  the  array  variables  pointer  in  register  pair 
HL  is  greater  than  or  equal  to  the  value  of  the  free 
memory  pointer  in  register  pair  DE. 

27IBH  Compare  the  value  of  the  variable's  number  type  flag 

in  register  A  with  the  value  of  the  number  type  flag  at 
the  location  of  the  array  variables  pointer  in  register 
pair  HL. 

27ICH  Bump  the  value  of  the  array  variables  pointer  in 

register  pair  HL. 

27IDH   -  27IEH  Jump  if  the  number  type  flags  don't  match. 

271Ffi  Load  register  A  with  the  first  character  of  the  vari- 

able name  at  the  location  of  the  array  variables 
pointer  in  register  pair  HL. 

272  OH  Check  to  see  if  the  first  character  of  the  variable  at 

the  location  of  the  array  variable  pointer  in  register 
A  matches  the  first  character  of  the  variable  name  in 
register  C. 
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2721H 

2722H  -  2723H 

272te 


Bump  the  value  of  the  array  variables  pointer  in 
register  pair  HL. 

Jump  if  the  first  characters  of  the  variable  names 
don't  match. 

Load  register  A  with  the  second  character  of  the 
variable  name  at  the  location  of  the  array  variables 
pointer  in  register  pair  HL. 

2725H  Compare  the  second  character  of  the  variable  name 

at  the  location  of  the  array  variables  pointer  in 
register  A  matches  the  second  character  of  the 
variable  name  in  register  B. 

2727H  Bump  the  value  of  the  array  variables  pointer  in 

register  pair  HL. 

2728H  Bump  the  value  of  the  array  variables  pointer  in 

register  pair  HL. 

2  72  9H  Load  register  E  with  the  LSB  of  the  offset  to  the  next 

array  at  the  location  of  the  array  variables  pointer  in 
register  pair  HL. 

2  72 AH  Bump  the  value  of  the  array  variables  pointer  in 

register  pair  HL. 

272BH  Load  register  D  with  the  MSB  of  the  offset  to  the 

next  array  at  the  location  of  the  array  variables 
pointer  in  register  pair  HL. 

^72CH  Bump  the  value  of  the  array  variables  pointer  in 

register  pair  HL. 

272DH  -  2 72EH  Jump  if  the  variables' names  don't  match. 

272FH  -  273IH  Load  register  A  with  the  value  of  the  locate/create 

flag. 

^732H  Check  the  status  of  the  locate/create  flag  in  register 

A. 

Load  register  E  with  the  DD  ERROR  code. 

Go  to  the  Level  II  BASIC  error  routine  and  display  a 
DD  ERROR  message  if  the  locate/create  flag  in 
register  A  indicates  the  create  mode. 

Get  the  number  of  subscripts  evaluated  from  the 
stack  and  put  it  in  register  A. 

Compare  the  number  of  subscripts  evaluated  in 
register  A  with  the  number  of  subscripts  for  the 
array  at  the  location  of  the  array  variables  pointer  in 
register  pair  HL. 


2733H  - 

2734H 

2735H  - 

2737H 

2738H 

2739H 
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273AH  -  273  CH  Jump  if  the  number  of  subscripts  evaluated  m  regis- 
^  ^  '  ter  A  matches  the  number  of  subscripts  for  the  array 

at  the  location  of  the  array  variables  pointer  in  reg- 
ister pair  HL 

273DH   "  273EH  Load  register  E  with  a  BS  ERROR  code. 

273FH  -  274IH  Go  to  the  Level  II  BASIC  error  routine  and  display  a 
BS  ERROR  message  if  the  number  of  subscnpts 
evaluated  in  register  A  doesn't  match  the  number  of 
subscripts  for  the  array  at  the  location  of  the  array 
variable  pointer  in  register  pair  HL. 

27Zf  2H  Save  the  number  of  subscripts  for  the  array  in  reg- 

ister A  at  the  location  of  the  array  variables  pomter 
in  register  pair  HL. 

27A|,3H  Bump  the  value  of  the  array  variables  pointer  in 

register  pair  HL. 

27^^H  Load  register  E  with  the  number  type  flag  for  the 

current  variable. 


27^5H  -  27^6H  Zero  register  D. 
27^7H 


27^8H 

27^9H 
27^AH 

27^BH 
27^CH 


Get  the  number  of  subscripts  evaluated  from  the 
stack  and  put  it  in  register  A. 

Save  the  first  character  of  the  variable's  name  in 
register  C  at  the  location  of  the  array  variables 
pointer  in  register  pair  HL. 

Bump  the  value  of  the  array  variables  pointer  in 
register  pair  HL. 

Save  the  second  character  of  the  variable's  name  in 
register  B  at  the  location  of  the  array  variables 
pointer  in  register  pair  HL. 

Bump  the  value  of  the  array  variables  pointer  in 
register  pair  HL. 

Load  register  C  with  the  number  of  subscripts  eval- 
uated in  register  A. 


27^DH  -  27^FH  Figure  the  amount  of  memory  needed. 
275OH 


275IH 

2752H 

2755H 
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Bump  the  value  of  the  array  variables  pointer  m 
register  pair  HL. 

Bump  the  value  of  the  array  variables  pointer  in 
register  pair  HL. 

-  275^H  Save  the  value  of  the  array  variables  pointer  in 
register  pair  HL. 

Save  the  number  of  subscripts  evaluated  in  register 


C  at  the  location  of  the  array  variables  pointer  in 
register  pair  HL. 

2756H  Bump  the  value  of  the  array  variables  pointer  in 

register  pair  HL. 

2757H  -  2759H   Load  register  A  with  the  value  of  the  locate/create 

flag. 

2 75 AH  Set  the  flags  according  the  status  of  the  locate/ 

create  flag  in  register  A. 

275  BH  Load  register  A  with  the  number  of  subscripts 

evaluated  in  register  C. 

275CH  ~  275EK  Load  register  pair  BC  with  the  default  number  to  be 
created. 

275FH  -   276OH  Jump  if  the  array  is  being  created. 

276IH  Get  a  subscript  from  the  stack  and  put  it  in  register 

pair  BC. 

2  76  2H  Bump  the  value  of  the  subscript  in  register  pair  BC. 

2  76  3H  Save  the  LSB  of  the  subscript's  value  in  register  C  at 

the  location  of  the  array  vanables  pointer  in  register 
pair  HL. 

2764H  Bump  the  value  of  the  array  variables  pointer  in 

register  pair  HL. 

276  5H  Save  the  MSB  of  the  subscript's  value  in  register  B 

at  the  location  of  the  array  variables  pointer  in  reg- 
ister pair  HL. 

2766H  Bump  the  value  of  the  array  variables  pointer  in 

register  pair  HL, 

276  7H  Save  the  number  of  subscripts  evaluated  in  register 

A  on  the  stack. 

2768H  "  276AH  Gomultiply  the  size  of  the  subscript  by  the  value  of 
the  number  type  flag  to  determine  the  amount  of 
memory  necessary  for  the  subscript. 

276BH  Get  the  number  of  subscripts  evaluated  from  the 

stack  and  put  it  in  register  A. 

276CH  Check  to  see  if  there  are  anymore  subscripts  to  be 

evaluated. 

276DH  -  2  76  EH  Jump  if  there  are  anymore  subscripts  to  be  eval- 
uated. 

276FH  Save  the  number  of  subscripts  to  be  evaluated  in 

register  A  on  the  stack. 
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2770H  Load  register  B  with  the  MSB  of  the  array's  length  in 

register  D. 

277IH  Load  register  C  with  the  LSB  of  the  array's  length  in 

register  E. 

2772H  Load  register  pair  DE  with  the  value  of  the  array 

variables  pointer  in  register  pair  HL. 

2773H  Add  the  length  of  the  array  in  register  pair  HL  to  the 

value  of  ±e  array  variable  pointer  in  register  pair 
DE. 

277^H  -  2775H  Jump  if  overflow  occurred. 

2776H  -  2778H 


Go  check  to  see  if  there  is  enough  memory  for  the 
array. 


-  277BH  Get  the  end  of  the  array  and  put  it  in  register  pair 
HL. 


2779H 

277CH 

277DH  -  277EH 

277FH 


Decrement  the  value  of  the  array  pointer  in  register 
pair  HL. 

Zero  the  location  of  the  array  pointer  in  register  pair 
HL. 

Compare  the  array  pointer  in  register  pair  HL  with 
the  array  variables  pointer  in  register  pair  DE. 


278OH  -  278IH  Loop  till  the  array  has  been  cleared. 
2782H 


2783H 

278^H  -  2786H 

2787H 
2788H 

2789H 

278AH 
278BH 
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Load  register  pair  BC  with  the  array's  length  plus 
one. 

Zero  register  D. 

Load  register  pair  HL  with  the  array  variables 
pointer. 

Load  register  E  with  the  number  of  subscripts  for 
the  array  at  the  location  of  the  array  variables 
pointer  in  register  pair  HL. 

Exchange  the  value  of  the  array  variables  pointer  in 
register  pair  HL  with  the  number  of  subscripts  for 
the  array  in  register  pair  DE. 

Multiply  the  number  of  subscripts  for  the  array  in 
register  pair  HL  by  two. 

Add  the  length  of  the  array  in  register  pair  BC  to  the 
number  of  subscripts  times  two  in  register  pair  HL. 

Exchange  the  array's  length  in  register  pair  HL  with 
the  array  variables  pointer  in  register  pair  DE. 


278CH  Decrement  the  value  of  the  array  variables  pointer  in 

register  pair  HL. 

278DH  Decrement  the  value  of  the  array  variables  pointer  in 

register  pair  HL. 

278EH  Save  the  LSB  of  the  offset  to  the  next  array  in  reg- 

ister E  at  the  location  of  the  array  variables  pointer 
in  register  pair  HL. 

278FH  Bump  the  value  of  the  array  variables  pointer  in 

register  pair  HL. 

279OH  Save  the  MSB  of  the  offset  to  the  next  array  in 

register  D  at  the  location  of  the  array  variables 
pointer  in  register  pair  HL. 

279IH  Bump  the  value  of  the  array  variables  pointer  in 

register  pair  HL. 

2792H  Get  the  value  of  the  locate/create  flag  from  the  stack 

and  put  it  in  register  A. 

2793H  -  279to   Jump  if  the  array  is  being  created. 

2795H  Zero  register  B. 

2796H  Zero  register  C. 

2797H  Load  register  A  with  the  number  of  subscripts  for 

the  array  at  the  location  of  the  array  variables 
pointer  in  register  pair  HL. 

2798H  Bump  the  value  of  the  array  variables  pointer  in 

register  pair  HL. 

279AH  Get  the  array  variables  pointer  from  the  stack  and 

put  it  in  register  pair  HL. 

279BH  Load  register  E  with  the  LSB  of  the  subscript  limit  at 

the  location  of  the  array  variables  pointer  in  register 
pair  HL. 

279CH  Bump  the  value  of  the  array  variables  pointer  in 

register  pair  HL. 

279DH  Load  register  D  with  the  MSB  of  the  subscript  limit 

at  the  location  of  the  array  variables  pointer  in 
register  pair  HL. 

279EH  Bump  the  value  of  the  array  variables  pointer  in 

register  pair  HL. 

2  79FH  Exchange  the  value  of  the  array  variables  pointer  in 

register  pair  HL  with  the  subscript  on  the  stack. 

27AOH  Save  the  number  of  subscripts  for  the  array  in  reg- 

ister A  on  the  stack. 
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27A1H  Compare  the  subscript  limit  in  register  pair  DE  with 

the  subscript  for  the  array  in  register  pair  HL. 

27A2H  -  27Ate  Jump  if  the  subscript  for  the  array  in  register  pair  HL 
is  greater  than  the  subscript  limit  in  register  pair 
DE. 

27A5H   -  27A7H  Multiply  the  previous  subscript  by  the  subscript 

limit. 

27A8H  Add  the  subscript  limit  for  the  array  in  register  pair 

DE  to  the  array  pointer  in  register  pair  HL. 

27A9H  Get  the  number  of  subscripts  for  the  array  from  the 

stack  and  put  it  in  register  A, 

27AAH  Check  to  see  if  there  are  anymore  subscripts  to  be 

evaluated. 

27ABH  Load  register  B  with  the  MSB  of  the  subscript 

pointer  in  register  H. 

27ACH  Load  register  C  with  the  LSB  of  the  subscript 

pointer  in  register  L. 

27ADH  -  27AEH  Loop  till  all  of  the  subscripts  have  been  evaluated. 

27AFH  -  27BIH  Get  the  number  type  flag  for  the  current  array. 

27B2H  Load  register  B  with  the  MSB  of  the  subscript 

pointer  in  register  H. 

27B3H  Load  register  C  with  the  LSB  of  the  subscript 

pointer  in  register  L, 

27B^H  Multiply  the  subscript  pointer  in  register  pair  HL  by 

two, 

27B5H  -  27B6h  Check  the  value  of  the  number  type  flag  in  register 
A. 

27B7H   -  27B8H  Jump  if  the  current  number  type  is  an  integer  or 

string. 

2  7B  9H  Multiply  the  subscript  pointer  in  register  pair  HL  by 

two. 

27BAH   -  27BBH  Jump  if  the  current  number  type  is  single  precision. 

27BCH  Multiply  the  subscript  pointer  in  register  pair  HL  by 

two. 

27BDH  Set  the  flags. 

27BEH  -  27C0H  Jump  if  the  current  number  type  isn^t  a  string. 

27CIH  Add  the  value  of  the  original  subscript  pointer  in 
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register  pair  BC  to  the  subscript  pointer  in  register 
pair  HL. 

27C2H  Get  the  value  of  the  array  variables  pointer  from  the 

stack  and  put  it  in  register  pair  BC. 

27C3H  Add  the  value  of  the  array  variables  pointer  in 

register  pair  BC  to  the  subscript  pointer  in  register 
pair  HL. 

27Cte  Load  register  pair  DE  with  the  variable  pointer  in 

register  pair  HL. 

27C5H  -  27C7H  Get  the  value  of  the  current  BASIC  program  pointer 
and  put  it  in  register  pair  HL. 

27C8H  Return. 

27C9H  "  27D3H  LEVEL  11  BASIC  MEM  ROUTINE 

2  7  C  9  H  Zero  register  A. 

27CAH  Save  the  value  of  the  current  BASIC  program  point- 

er in  register  pair  HL  on  the  stack. 

27CBH  "  27CDH  Zero  the  number  type  flag. 

27CEH  "  27D0H  Call  the  Level  II  BASIC  FRE  routine. 

27D1H  Get  the  value  of  the  current  BASIC  program  pointer 

from  the  stack  and  put  it  in  register  pair  HL. 

27D2H  Go  bump  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL  till  it  points  to  the  next 
character. 

27D3H  Return. 

27D4H  -  27F^H  LEVEL  II  BASIC  FRE  ROUTINE 

27D4H  -  27D6H  Load  register  pair  HL  with  the  start  of  free  memory 
pointer. 

27D7H  Load  register  pair  DE  with  the  value  of  the  free 

memory  pointer  in  register  pair  HL. 

27D8H  "  27DAH  Zero  register  pair  HL. 

2  7DBH  Add  the  value  in  register  pair  HL  to  the  current  value 

of  the  stack  pointer. 

27DCH  Check  the  value  of  the  current  number  type  flag. 

27DDH  -  27DEH  Jump  ifthis  routine  is  called  from  the  MEM  routine. 

27DFH  -  27E1H   Go  update  the  string  pointers. 
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27E2H  -  27E^H  Go  check  to  see  how  much  string  space  remains. 

27E5H  -  27E7H  Load  register  pair  HL  with  the  start  of  string  space 
pointer. 

27E8H  Load  register  pair  DE  with  the  start  of  string  space 

pointer  in  register  pair  HL. 

27E9H  -  27EBH  Load  register  pair  HL  with  the  next  available  loca- 
tion in  string  space  pointer. 

27ECH  Load  register  A  with  the  LSB  of  the  next  available 

location  in  string  space  pointer  in  register  L. 

27EDH  Subtract  the  LSB  of  the  start  of  string  space  pointer 

in  register  E  from  the  LSB  of  the  next  available 
location  in  string  space  pointer  in  register  A. 

27EEH  Load  register  L  with  the  LSB  of  the  amount  of  string 

space  remaining  in  register  A. 

27EFH  Load  register  A  with  the  MSB  of  the  next  available 

location  in  string  space  pointer  in  register  H. 

27FOH  Subtract  the  MSB  of  the  string  space  pointer  in 

register  D  from  the  MSB  of  the  next  available  loca- 
tion of  string  space  pointer  in  register  A. 

27FIH  Load  register  H  with  ±e  MSB  of  the  amount  of 

string  space  remaining  in  register  A. 

27F2H  -   27F^H  Jump. 

27F5H  -  27FDH   LEVEL  II  BASIC  POS  ROUTINE 

27F5H  -  27F7H   Load  register  A  with  die  current  cursor  line  posi- 
tion. 

27F8H  Load  register  L  with  the  value  of  the  current  cursor 

line  position  in  register  A. 

27F9H  Zero  register  A. 

27FAH  Load  register  H  with  zero. 

27FBH  -  27FDH  Jump. 

27FEH  -  28I8H   LEVEL  II  BASIC  USR  ROUTINE 

27FEH  -  28OOH    Go  call  the  DOS  link  at  41A9H. 

28OIH  Go  bump  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL  till  it  points  to  the  next 
character. 

2802H  "  2804H   Go  evaluate  the  expression  at  the  location  of  the 
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current  BASIC  program  pointer  in  register  pair  HL 
and  return  with  the  result  in  REGl. 

2805H  Save  the  value  of  the  current  BASIC  program  point- 

er m  register  pair  HL  on  the  stack. 

2806H  "  2808H    Load  register  pair  HL  with  the  return  address. 

28O9H  Save  the  value  of  the  return  address  in  register  pair 

HL  on  the  stack. 

28OAH  -   280CH    Load  register  A  with  the  value  ofthe  current  number 
type  flag. 

280DH  Save  the  value  of  the  current  number  type  flag  in 

register  A. 

280EH  -   280FH    Check  to  see  ifthe  current  value  in  REGl  is  a  string. 

2810H  "   2812H    If  the  current  result  in  REGl  is  a  string  then  go  get 
the  string  address  in  register  pair  HL. 

2813H  Get  the  value  of  the  current  number  type  flag  from 

the  stack  and  put  it  in  register  A. 

28lkE  Load  register  pair  DE  with  the  value  of  the  string 

address  in  register  pair  HL. 

2815H  "  2817H    Load  register  pair  HL  with  the  starting  address  of 
the  machine  language  subroutine. 

2818H  Jump  to  the  address  in  register  pair  HL. 

2819H  -  2827H    CONVERSION  ROUTINE 

2819H  Save  the  value  in  register  pair  HL  on  the  stack. 

281AH  -   281BH    Mask  the  value  of  the  current  number  type  flag  in 
register  A. 

281CH  -   281EH    Load  register  pair  HL  with  the  address  of  the  arith- 
metic conversion  routines. 

281FH  Load  register  C  with  the  value  of  the  number  type 

flag  in  register  A. 

2820H  -  2821H    Zero  register  B. 

2823H  -  2825H    Go  convert  die  current  result  in  REGl  to  if  s  proper 
number  type. 

2826H  Get  the  value  from  the  stack  and  put  it  in  register 

pair  HL. 

2827H  Return. 

2828H  -  2835H    INPUT  ROUTINE 
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2828H  Save  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL  on  the  stack. 

2829H  -  282BH   Load  register  pair  HL  with  the  value  of  the  current 
BASIC  line  number. 

282CH  Bump  the  value  of  the  current  BASIC  line  number  in 

register  pair  HL. 

282DH  I>oad  register  A  with  the  MSB  of  the  current  BASIC 

line  number  in  register  H. 

282EH  Combine  the  LSB  of  the  current  BASIC  line  number 

in  register  L  with  the  MSB  of  the  current  BASIC  line 
number  in  register  A. 

282FH  Get  the  value  of  the  current  BASIC  program  pointer 

from  the  stack  and  put  it  in  register  pair  HL. 

283  OH  Return  if  this  isn't  the  command  mode. 

2831H  -  2832H   Load  register  E  with  the  ID  ERROR  code. 

2833H  "  2835H   Go  to  the  Levelll  BASIC  error  routine  and  display 
an  ID  ERROR  message  if  this  is  the  command  mode. 

2836H  -  2856H   STRING  ROUTINE 

2836H  -  2838H    Go  convert  the  current  result  in  REGl  to  an  ASCII 

string. 

2839H  "  283BH    Go  make  a  temporary  string  work  area  entry. 

283CH  -   283EH    Load  register  pair  HL  with  the  string's  VARPTR. 

283FH  -  28^1H    Load  register  pair  BC  with  the  return  address. 

28^2H  Save  the  value  of  the  return  address  in  register  pair 

BC  on  the  stack. 

28^3H  Load  register  A  with  the  string's  length  at  the  loca- 

tion of  ±e  string's  VARPTR  in  register  pair  HL. 

ZBU'^E  Bump  the  value  of  the  string's  VARPTR  in  register 

pair  HL. 

ZQ^^H  Save  the  value  of  the  string^s  VARPTR  in  register 

pair  HL  on  the  stack. 

28^6H  -  28^8 H   Go  make  sure  there  is  enough  string  space  for  the 
string. 

28^9H  Get  the  value  of  the  string's  VARPTR  from  the  stack 

and  put  it  in  register  pair  HL. 

28^AH  Load  register  C  with  the  LSB  of  the  string's  address 
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28^BH 
28^CH 

28^DH  -  28^FH 

2850H 

2851H 

2852H  -  285^H 

2855H 


2856H 
2857H 

2857H 


2864'H 
2859H 


285AH  -  285CH 

285DH 

285BH 

285FH 
286  OH 

2861H 
2862H 

2863H 


at  the  location  of  the  string's  VARPTR  in  register 
pair  HL. 

Bump  the  value  of  the  string's  VARPTR  in  register 
pair  HL. 

Load  register  B  with  the  MSB  of  the  string's  address 
at  the  location  of  the  string's  VARPTR  in  register 
pair  HL. 

Go  save  the  string's  length  and  the  string's  address. 

Save  the  value  in  register  pair  HL  on  the  stack. 

Load  register  L  with  the  value  of  the  string's  length 
in  register  A. 

Go  move  the  string  from  it's  temporary  location  to 
string  space. 

Get  the  value  from  the  stack  and  put  it  in  register 
pair  DE. 

Return. 

STRING  ROUTINE 

Go  make  sure  that  there  is  enough  string  space 
remaining  for  the  string. 

Load  register  pair  HL  with  the  address  of  the  tem- 
porary string  parameter  storage  area. 

Save  the  address  of  the  temporary  string  parameter 
area  in  register  pair  HL  on  the  stack. 

Save  the  string's  length  in  register  A  at  the  location 
of  the  temporary  string  parameter  storage  pointer  in 
register  pair  HL. 

Bump  the  value  of  the  temporary  string  parameter 
storage  pointer  in  register  pair  HL. 

Save  the  LSB  of  the  string's  address  in  register  E  at 
the  location  of  the  temporary  string  parameter  stor- 
age pointer  in  register  pair  HL. 

Bump  the  value  of  the  temporary  string  parameter 
storage  pointer  in  register  pair  HL. 

Save  the  MSB  of  the  string's  address  in  register  D  at 
the  location  of  the  temporary  string  parameter  stor- 
age pointer  in  register  pair  HL. 

Get  the  address  of  the  temporary  string  parameter 
storage  area  from  the  stack  and  put  it  in  register  pair 
HL. 
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286^H  Return. 

2865H  -  28A5H   STRING  ROUTINE 

286  5H  Decrement  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL. 

2866H  "  286 7H  Load  register  B  with  a  quote. 

2868H  Load  register  D  with  a  quote. 

286 9H  Save  the  address  of  the  current  BASIC  program 

pointer  in  register  pair  HL  on  the  stack. 

286AH  -  286BH   Load  register  C  with  a  -  L 

286CH  Bump  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL. 

286DH  Load  register  A  with  the  character  at  the  location  of 

the  current  BASIC  program  pointer  in  register  pair 
HL. 

286EH  Bump  the  value  of  the  counter  in  register  C. 

286FH  Check  to  see  if  the  character  at  the  location  of  the 

current  BASIC  program  pointer  in  register  A  is  an 
end  of  the  BASIC  line  character. 

287OH  -  287IH  Jump  if  the  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  A  is  an  end  of  the 
BASIC  line  character. 

2872H  Check  to  see  if  the  character  at  the  location  of  the 

current  BASIC  program  pointer  in  register  A  is  the 
same  as  the  terminating  character  in  register  D. 

2873H  -  287^H  Jump  if  the  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  A  is  the  same  as 
the  terminating  character  in  register  D. 

2875H  Check  to  see  if  the  character  at  the  location  of  the 

current  BASIC  program  pointer  in  register  A  is  the 
same  at  the  terminating  character  in  register  B. 

2876H  -  2877H  Loop  if  the  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  A  isn't  the  same 
as  the  terminating  character  in  register  B. 

2878H  -  2879H  Check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is  a 
quote. 

287AH  -  287CH  Go  bump  the  value  of  the  current  BASIC  program 
pointer  in  register  pair  HL  till  it  points  to  the  next 
character  if  the  character  at  the  location  of  the  cur- 
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rent  BASIC  program  pointer  in  register  A  was  a 
quote. 

287DH  Exchange  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL  with  the  string's  address 
on  the  stack. 

287EH  Bump  the  string's  address  in  register  pair  HL  till  it 

points  to  the  first  character  of  the  string. 

287FH  Load  register  pair  DE  with  the  string's  address  in 

register  pair  HL. 

2  88  OH  Load  register  A  with  the  string's  length  in  register 

2881H  -  2883H    Go  save  the  string's  length  and  the  string's  address. 

288to  -  2886H  Load  register  pair  DE  with  the  address  of  the  string 
parameter  storage  area. 

2889H  -  288BII  Load  register  pair  HL  with  the  next  available  loca- 
tion in  the  temporary  string  work  area  in  register 
pair  HL  as  die  string's  VARPTR  in  REGl. 

288  CH  -  288EH  Save  the  value  of  the  next  available  location  in  the 
temporary  string  work  area  in  register  pair  HL  as 
the  string's  VARPTR  in  REGL 

288FH  -  289OH    Load  register  A  with  the  string  number  type  flag. 

289IH  -  2893H  Save  the  value  in  register  A  as  die  current  number 
type  flag. 

289^H  -  2896H  Add  the  length  of  the  string  to  the  next  available 
location  in  the  temporary  string  work  area  in  regis- 
ter pair  HL. 

2897H  -  2899H  Load  register  pair  DE  with  the  ending  address  of  the 
temporary  string  work  area. 

289AH  Check  to  see  if  the  updated  temporary  string  work 

area  location  in  register  pair  HL  isn't  greater  than 
the  ending  address  of  the  temporary  string  work 
area  in  register  pair  DE. 

2S9BH  "  289DH  Save  the  updated  string  work  area  location  in  reg- 
ister pair  HL  as  the  next  available  location  in  the 
temporary  string  work  area. 

289EH  Get  the  value  of  the  current  BASIC  program  pointer 

from  the  stack  and  put  it  in  register  pair  HL. 

289FH  Load  register  A  with  the  character  at  the  location  of 

the  current  BASIC  program  pointer  in  register  pair 
HL. 
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28A0H  Return  if  the  updated  temporary  string  work  area 

location  wasn't  beyond  the  end  of  the  temporary 
string  work  area. 

28A1H  -  28A2H   Load  register  E  with  a  ST  ERROR  code. 

28A3H  "  28A5H  Go  to  the  Level  11  BASIC  error  routine  and  display  a 
ST  ERROR  message  if  the  temporary  string  work 
area  has  overflowed. 

28A6H  -  28BEH   DISPLAY  MESSAGE  ROUTINE 

28A6H  Bump  the  value  of  the  current  BASIC  program  point- 

er in  register  pair  HL. 

28A7H  -  28A9H  Go  build  a  temporary  string  work  area  entry  for  the 
message  at  the  location  of  the  current  BASIC  pro- 
gram pointer  in  register  pair  HL. 

28AAH  -  28ACH   Load  register  pair  HL  with  the  string's  VARPTR. 

28ADH  "  28AFH  Go  get  the  string^s  length  in  register  D  and  the 
string's  address  in  register  pair  BC. 

28B0H  Bump  the  value  of  the  string's  length  in  register  D. 

28b  IH  Decrement  the  value  of  the  string's  length  in  regis- 

ter D. 

28B  2H  Return  if  all  of  the  characters  in  the  stnng  have  been 

sent  to  the  current  output  device. 

28B3H  Load  register  A  with  the  character  at  the  location  of 

the  string  pomter  in  register  pair  BC. 

28B^H  -  28b6H  Go  send  the  character  in  register  A  to  the  current 
output  device. 

28B7H  -  28B8H  Check  to  see  if  the  character  in  register  A  is  a 
carriage  return. 

28B9H  -  28BBH  Jump  if  the  character  in  register  A  is  a  carriage 
return. 

28BCH  Bump  the  value  of  the  string  pointer  in  register  pair 

BC. 

28BDH  -  28BEH  Loop  till  all  of  the  characters  in  the  string  have  been 
sent  to  die  current  output  device. 

28BFH  -  28D9H  STRING  ROUTINE 

28BFH  Set  the  flags. 

28C1H  Get  the  string's  length  from  the  stack  and  put  it  in 

register  A. 
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28C2H  Save  the  length  of  the  string  in  register  A  on  the 

stack. 

28C3H  -  28C5H  Load  register  pair  HL  with  the  start  of  the  string 
space  pointer. 

28c6H  Load  register  pair  DE  with  the  start  of  the  string 

space  pointer  in  register  pair  HL. 

28C7H  -  28C9H  Load  register  pair  HL  with  the  next  available  loca- 
tion in  string  space  pointer. 

^8CAH  Complement  the  string's  length  in  register  A. 

28CBH  Load  register  C  with  the  negative  string's  length  in 

register  A. 

28GCH  -  28CDH   Load  register  B  with  a  - L 

28CEH  Add  the  negative  string's  length  in  register  pair  BC 

to  the  next  available  location  m  string  space  pointer 
in  register  pair  HL. 

28GPH  Bump  the  value  of  the  adjusted  next  available  loca- 

tion in  string  space  pointer  in  register  pair  HL. 

28D0H  Check  to  see  if  the  adjusted  next  available  location  in 

string  space  pointer  in  register  pair  HL  is  less  than 
the  start  of  string  space  pointer  in  register  pair  DE. 

28D1H  -  28D2H  Jump  if  the  adjusted  next  available  location  in  string 
space  pointer  in  register  pair  HL  is  less  than  the 
start  of  string  space  pointer  in  register  pair  DE. 

28D3H  -  28D5H  Save  the  value  in  register  pair  HL  as  the  next  availa- 
ble location  in  string  space  pointer. 

28d6H  Bump  the  value  of  the  next  available  location  in 

string  space  pointer  in  register  pair  HL. 

28D7H  Load  register  pair  DE  with  the  next  available  loca- 

tion in  string  space  pointer  in  register  pair  HL. 

28D8H  Get  the  string's  length  from  the  stack  and  put  it  in 

register  A. 

28D9H  Return. 

28DAH  -  298EH    STRING  ROUTINE 

28DAH  Get  the  length  of  the  string  from  the  stack  and  put  it 

in  register  A. 

28DBH  -  28DCH    Load  register  E  with  an  OS  ERROR  code. 

28DDH  "  28DFH    Go  to  the  Level  11  BASIC  error  routine  and  display 
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an  OS  ERROR  message  if  there  isn't  enough  string 
space  available  for  the  string. 

28E0H  Set  the  flags. 

28E1H  Save  the  string's  length  in  register  A  on  the  stack. 

28E2H  "  28E4H    Load  register  pair  BC  with  the  return  address. 

28E5H  Save  the  value  of  the  return  address  in  register  pair 

BC  on  itie  stack. 

28e6H  -  28S8H  Load  register  pair  HL  with  the  top  of  memory 
pointer. 

28E9H  -  28EBH  Save  the  top  of  BASIC  memory  pointer  in  register 
pair  HL  as  the  next  available  location  in  string  space 
pointer. 

28ECH  -  28EEH    Zero  register  pair  HL. 

28EFH  Save  the  value  in  register  pair  HL  on  the  stack. 

28F0H  -  28F2H  Load  register  pair  HL  with  the  start  of  string  space 
pointer. 

28F3H  Save  the  start  of  string  space  pointer  in  register  pair 

HL  on  the  stack. 

28F^H  «  28F6H  Load  register  pair  HL  with  the  start  of  the  temporary 
string  work  area  pointer. 

28F7H  Load  register  pair  DE  with  the  start  of  the  tempor- 

ary string  work  area  pointer  in  register  pair  HL. 

28F8H  -"  28FAH  Load  register  pair  HL  with  the  next  available  loca- 
tion in  the  temporary  string  work  area  pointer. 

28FBH  Exchange  the  start  of  the  temporary  string  work 

area  pointer  in  register  pair  DE  with  the  next  availa- 
ble location  in  the  temporary  string  work  area 
pointer  in  register  pair  HL. 

28FCH  Check  to  see  if  the  start  of  the  temporary  string  work 

area  pointer  in  register  pair  HL  is  the  same  as  the 
next  available  location  in  the  temporary  string  work 
area  pointer. 

28FDH  -  28FPH    Load  register  pair  BC  with  the  return  address. 

29OOH  -  29O2H    Jump  if  the  temporary  string  work  area  isn't  empty. 

2903H  Load  register  pair  HL  with  the  start  of  the  simple 

variables  pointer. 

29O6H  Load  register  pair  DE  with  the  simple  variables 

pointer  in  register  pair  HL. 
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2907H  -  2909H 
290AH 

290BH 


Load  register  pair  HL  with  the  start  of  the  array 
variables  pointer. 

Exchange  the  value  of  the  simple  variables  pointer  in 
register  pair  DE  with  the  value  of  the  array  variables 
pointer  in  register  pair  HL. 

Check  to  see  if  the  simple  variables  pointer  in  reg- 
ister pair  HL  is  the  same  as  the  array  variables 
pointer  in  register  pair  DE. 

29OCH  -  29ODH  Jump  if  the  simple  variables  pointer  in  register  pair 
HL  is  the  same  as  the  array  variables  pointer  in 
register  pair  DE. 


29OEH 


Load  register  A  with  the  number  type  flag  at  the 
location  of  the  simple  variables  pointer  in  register 
pair  HL. 


290FH 

Bump  the  value  of  the  simple  variables  pointer  in 
register  pair  HL, 

2910H 

Bump  the  simple  variables  pointer  in  register  pair 
HL. 

2911H 

Bump  the  value  of  the  simple  variables  pointer  in 
register  pair  HL. 

2912H  - 

2913H 

Check  to  see  if  the  variable  at  the  location  of  the 
simple  variables  pointer  is  a  string. 

291to  - 

2915H 

Jump  if  the  variable  at  the  location  of  the  simple 
variables  pointer  in  register  pair  HL  isn't  a  string. 

29I6H  - 

29I8H 

Go  do  string  check. 

29I9H 

Zero  register  A. 

29IAH 

Zero  register  E. 

29IBH   - 

29ICH 

Zero  register  D. 

29IDH 

Add  the  value  of  the  number  type  flag  in  register  pair 

291EH  -  291FH 

2920H 

2921H 

2922H  -  2924H 


DE  to  the  simple  variables  pointer  in  register  pair 
HL. 

Loop  till  all  of  the  simple  variables  have  been 
checked. 

Clean  up  the  stack. 

Load  register  pair  DE  with  the  value  of  the  array 
variables  pointer  in  register  pair  HL. 

Load  register  pair  HL  with  the  start  of  free  memory 
pointer. 
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2  92  5H  Exchange  the  value  of  the  array  variables  pointer  in 

register  pair  DE  with  the  value  of  the  free  memory 
pointer  in  register  pair  HL. 

2926H  Check  to  see  if  the  array  variables  pointer  in  register 

pair  HL  is  the  same  as  the  free  memory  pointer  in 
register  pair  DE. 

2927H  -  2929H  Jump  if  the  array  variables  pointer  in  register  HL  is 
the  same  as  the  start  of  the  free  memory  pointer  in 
register  pair  DE. 

2  92 AH  Load  register  A  with  the  number  type  flag  at  the 

location  of  the  array  variables  pointer  in  register  pair 
HL. 

292BH  Bump  the  value  of  the  array  variables  pointer  in 

register  pair  HL. 

292CH  -  292EH  Go  get  the  offset  to  the  next  array  and  return  with  it 
in  register  pair  BC. 

292FH  Save  the  value  of  the  array  variables  pointer  in  reg- 

ister pair  HL  on  the  stack. 

2  93  OH  Add  the  value  of  the  offset  to  the  next  array  in 

register  pair  BC  to  the  value  of  the  array  variables 
pointer  in  register  pair  HL. 

293IH  -  2932H    Check  to  see  if  the  array  being  examined  is  a  string. 

2933H  "  2934H  Jump  if  the  array  being  examined  isn't  a  string. 

2935H  -  2937H  Save  the  address  of  the  next  array  in  register  pair 
HL. 

2938H  Get  the  value  of  the  array  variables  pointer  from  the 

stack  and  put  it  in  register  pair  HL 

2939H  Load  register  C  with  the  number  of  subscripts  for 

the  array  at  the  location  of  die  array  variables 
pointer  in  register  pair  HL. 

293AH  -  293BH   Zero  register  B. 

293CH  Add  the  number  of  subscripts  in  the  array  in  register 

pair  BC  to  the  value  of  the  array  variables  pointer  in 
register  pair  HL. 

293DH  Add  the  number  of  subscripts  in  the  array  in  register 

pair  BC  to  the  value  of  the  array  variables  pointer  in 
register  pair  HL. 

293EH  Bump  the  value  of  the  array  variables  pointer  in 

register  pair  HL. 
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293FH  Load  register  pair  DE  with  the  value  of  the  array 

variables  pointer  in  register  pair  HL. 

29^0H  -  2942H  Load  register  pair  HL  with  the  address  of  the  next 
array. 

29^3H  Exchange  the  value  of  the  array  variables  pointer  in 

register  pair  DE  with  the  address  of  the  array  in 
register  pair  HL. 

2  9^^H  Check  to  see  if  the  array  variables  pointer  in  register 

pair  HL  is  the  same  as  the  address  of  the  next  array 
in  register  pair  DE. 

2945H  -  2946H  Jump  if  the  array  variables  pointer  in  register  pair 
HL  IS  the  same  as  the  address  of  the  next  array  in 
register  pair  DE. 

2947H  -  2948H    Load  register  pair  BC  with  the  return  address. 
29^AH  Save  the  value  in  register  pair  BC  on  the  stack. 

29^BH  Zero  register  A. 

29^CH  Load  register  A  with  the  length  of  the  string  at  the 

location  of  the  array  variables  pointer  in  register  pair 
HL. 

29^DH  Bump  the  value  of  the  array  variables  pointer  in 

register  pair  HL. 

2  94'EH  Load  register  E  with  the  LSB  of  the  string's  address 

at  the  location  of  the  array  variables  pointer  in 
register  pair  HL. 

294FH  Bump  the  value  of  the  array  variables  pointer  in 

register  pair  HL. 

295OH  Load  register  D  with  the  MSB  of  the  string's  address 

at  the  location  of  the  array  variables  pointer  in 
register  pair  HL. 

295IH  Bump  the  value  of  the  array  variables  pointer  in 

register  pair  HL. 

2952H  Return  if  the  string's  length  in  register  A  is  equal  to 

zero. 

2953H  Load  register  B  with  the  MSB  of  the  array  variables 

pointer  in  register  H. 

295^H  Load  register  C  with  the  LSB  of  the  array  variables 

pointer  in  register  L. 

2955H  -  2957H  Load  register  pair  HL  with  the  location  of  the  next 
available  location  in  string  space  pointer. 
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2958H 
2959H 
295AH 
295BH 
295CH 
295DH 

295EH 

295FH 

2  96  OH 

296IH 

2962H 

2963H 

296^H 

296  5H 
2966H 
2967H 

2968H 

2969H 

296  AH 
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Check  to  see  if  the  string's  address  in  register  pair 
DE  is  in  string  space. 

Load  register  H  with  the  MSB  of  the  array  variables 
pointer  in  register  B. 

Load  register  L  with  the  LSB  of  the  array  variables 
pointer  in  register  C. 

Return  if  the  string's  address  in  register  pair  DE  is  in 
string  space. 

Get  the  return  address  from  the  stack  and  put  it  in 
register  pair  HL. 

Exchange  the  value  of  the  return  address  in  register 
pair  HL  with  the  start  of  string  space  pointer  on  the 
stack. 

Check  to  see  if  the  string's  address  in  register  pair 
DE  is  below  the  start  of  string  space  pointer  in 
register  pair  HL. 

Exchange  the  start  of  string  space  pointer  in  register 
pair  HL  with  the  value  of  the  return  address  on  the 
stack. 

Save  the  value  of  the  return  address  in  register  pair 
HL  on  the  stack. 

Load  register  H  with  the  MSB  of  the  array  variables 
pointer  in  register  B. 

Load  register  L  with  the  LSB  of  the  array  variables 
pointer  in  register  C. 

Return  if  the  string's  address  in  register  pair  DE  is 
below  the  string  space  pointer. 

Get  the  return  address  from  the  stack  and  put  it  in 
register  pair  BC. 

Clean  up  the  stack. 

Clean  up  the  stack. 

Save  the  value  of  the  array  variables  pointer  in 
register  pair  HL  on  the  stack. 

Save  the  string's  address  in  register  pair  DE  on  the 
stack. 

Save  the  value  of  the  return  address  in  register  pair 
BC  on  ^e  stack. 

Return. 


296BH 
296CH 

296DH 
296EH 

296FH 
2970H 

2971H 

2972H 
2973H 

297^H 
2975H 
2976H 


Load  register  pair  DE  with  the  address  of  the  last 
string  put  into  the  temporary  string  work  area. 

Get  the  temporary  string  work  area  pointer  from  the 
stack  and  put  it  in  register  pair  HL. 

Load  register  A  with  the  LSB  of  the  temporary 
string  work  area  pointer  in  register  L. 

Combine  the  MSB  of  the  temporary  string  work  area 
pointer  in  register  H  with  the  LSB  of  the  temporary 
string  work  area  pointer  in  register  A. 

Return  if  the  temporary  string  work  area  is  empty. 

Decrement  the  value  of  the  temporary  string  work 
area  pointer  in  register  pair  HL. 

Load  register  B  with  the  MSB  of  the  string's  address 
at  the  location  of  the  temporary  string  work  area 
pointer  in  register  pair  HL. 

Decrement  the  value  of  the  temporary  string  work 
area  pointer  in  register  pair  HL. 

Load  register  C  with  the  LSB  of  the  string's  address 
at  the  location  of  the  temporary  string  work  area 
pointer  in  register  pair  HL. 

Save  the  value  of  the  temporary  string  work  area 
pointer  in  register  pair  HL  on  the  stack. 

Decrement  the  value  of  the  temporary  string  work 
area  pointer  in  register  pair  HL. 

Load  register  L  with  the  string's  length  at  the  loca- 
tion of  die  temporary  string  work  area  pointer  in 
register  pair  HL. 


2977H  -  2978H  Zero  register  E 

2979H 


297AH 
297BH 
297CH 

297DH 


Add  the  length  of  the  string  in  register  pair  HL  to  the 
string's  address  in  register  pair  BC. 

Load  register  D  with  the  MSB  of  the  string's  address 
in  register  B. 

Load  register  E  with  the  LSB  of  the  string's  address 
in  register  C. 

Decrement  the  value  of  the  string's  ending  address 
in  register  pair  HL. 

Load  re^ster  B  with  the  MSB  of  the  string's  ending 
address  in  register  H. 
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297EH  Load  register  C  with  the  LSB  of  the  string's  ending 

address  in  register  L. 

297FH  -  298IH    Load  register  pair  HL  with  the  next  available  loca- 
tion in  string  space  pointer. 

2982H  "  2984H    Move  the  string  from  the  temporary  storage  location 
to  string  space. 

2985H  Get  the  temporary  string  work  area  pointer  from  the 

stack  and  put  it  in  register  pair  HL. 

2  986H  Save  the  LSB  of  the  string  s  address  in  register  C  at 

the  location  of  the  temporary  string  work  area 
pointer  in  register  pair  HL. 

2987H  Bump  the  value  of  the  temporary  string  work  area 

pointer  in  register  pair  HL. 

2988H  Save  the  MSB  of  the  string's  address  in  register  B  at 

the  location  of  the  temporary  string  work  area 
pointer  in  register  pair  HL. 

2989H  Load  register  L  with  the  LSB  of  the  string's  address 

in  register  C. 

2  98  AH  Load  register  H  with  the  MSB  of  the  string's  address 

in  register  B. 

298BH  Decrement  the  string's  address  in  register  pair  HL. 

298CH  -  298EH   Jump. 

298FH  -   29C5H    STRING  ADDITION  ROUTINE 

298FH  Save  the  operator  value  in  register  pair  BC  on  the 

stack. 

299OH  Save  the  value  of  the  current  BASIC  program  point- 

er in  register  pair  HL  on  the  stack. 

299IH  "  2993H    Load  register  pair  HL  with  the  first  string's 
VARPTR  in  REGL 

2994H  Exchange  the  value  of  the  first  string's  VARPTR  in 

register  pair  HL  with  the  value  of  the  current  BASIC 
program  on  the  stack. 

2995H  "  2997H    Go  evaluate  the  expression  at  the  location  of  the 
current  BASIC  program  pointer  in  register  pair  HL. 

2998H  Exchange  the  value  of  the  current  BASIC  program 

pointer  m  register  pair  HL  with  the  value  of  the  first 
string's  VARPTR  on  die  stack. 

2999H  -   299BH    Go  make  sure  the  current  result  in  REGl  is  a  string. 
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^99CH  Load  register  A  with  the  first  string's  length  at  the 

location  of  the  first  string's  VARPTR  in  register  pair 
HL. 

299DH  Save  the  value  of  the  first  string's  VARPTR  in  reg- 

ister pair  HL  on  the  stack. 

299EH  -  29AOH  Load  register  pair  HL  with  the  second  string's  VAR- 
PTR in  REGL 

29AIH  Save  the  second  string's  VARPTR  in  register  pair 

HL  on  the  stack. 

29A2H  Add  the  length  of  the  second  string  at  the  location  of 

the  second  string's  VARPTR  in  re^ster  pair  HL  to 
the  length  of  the  first  string  in  register  A. 

29A3H   -  29Ato  Load  register  E  with  a  LS  ERROR  code, 

29A5H  -  29A7H  Go  to  the  Level  II  BASIC  error  routine  and  display  a 
LS  ERROR  message  if  the  combined  lengths  of  the 
strings  is  greater  than  255. 

29A8H  -  29AAH  Go  make  sure  that  there  is  enough  string  space  for 
the  new  string. 

29ABH  Get  the  second  string's  VARPTR  from  the  stack  and 

put  it  in  register  pair  DE. 

29ACH  -  29AEH   Go  update  the  temporary  string  work  area. 

29AFH  Exchange  the  second  string's  VARPTR  in  register 

pair  HL  with  the  first  string's  VARPTR  on  the  stack. 

29BOH  -   29B2H    Go  update  the  temporary  string  work  area. 

29B3H  Save  the  value  of  the  first  string's  VARPTR  in  reg- 

ister pair  HL  on  the  stack. 

29B^H  -  29B6H  Load  register  pair  HL  with  the  second  string's  ad- 
dress. 

29B7H  Load  register  pair  DE  with  the  second  string's  ad- 

dress in  register  pair  HL. 

29B8H  -  29BAH  Go  move  the  first  string  to  it's  temporary  storage 
location. 

2  9BBH  -  2  9BDH  Go  move  the  second  string  to  it's  temporary  storage 
location. 

29BEH  -   29COH    Load  register  pair  HL  with  the  return  address. 

29CIH  Exchange  the  value  of  the  return  address  in  register 

pair  HL  with  the  value  of  the  current  BASIC  program 
pointer  on  the  stack. 
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29C2H  Save  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL  on  the  stack. 

29C3H  -  29C5H  Jump. 

29C6H  -  29D6H    string  ROUTINE 

29C6H  Load  register  pair  HL  with  the  value  of  the  return 

address  on  the  stack. 

29C7H  Exchange  the  value  of  the  return  address  in  register 

pair  HL  with  the  string's  VARPTR  on  the  stack. 

29C8H  Load  register  A  with  the  string's  length  at  the  loca- 

tion of  the  string's  VARPTR  in  register  pair  HL. 

29C9H  Bump  the  value  of  the  string's  VARPTR  in  register 

pair  HL. 

29CAH  Load  register  C  with  the  LSB  of  the  string's  address 

at  the  location  of  the  string's  VARPTR  in  register 
pair  HL, 

29CBH  Bump  the  value  of  the  string's  VARPTR  in  register 

pair  HL. 

29CCH  Load  register  B  with  the  MSB  of  the  string's  address 

at  the  location  of  the  string's  VARPTR  in  register 
pair  HL. 

29CDH  Load  register  L  with  the  string's  length  in  register 

A. 

29CEH  Bump  the  value  of  the  string's  length  in  register  L. 

29CFH  Decrement  the  value  of  the  string's  length  in  regis- 

ter L. 

29DOH  Return  if  all  of  the  characters  in  the  string  have  been 

moved. 

29DIH  Load  register  A  with  the  character  at  the  location  of 

the  string  pointer  in  register  pair  BC. 

29D2H  Save  the  character  in  register  A  at  the  location  of  the 

string  storage  pointer  in  register  pair  DE. 

29D3H  Bump  the  value  of  the  string  pointer  in  register  pair 

BC. 

29D^H  Bump  the  value  of  the  string  storage  pointer  in 

register  pair  DE. 

29D5H  «  29D6H    Loop  till  the  string  has  been  completely  moved. 

29D7H  -  29FifH    STRING  ROUTINE 
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29D7H  -  29D9H  Go  make  sure  that  the  current  result  in  REGl  is  a 
string. 

29DAH  -  29DCH  LoadregisterpairHL  with  the  string's  VARPTR  in 
REGL 

29DDH  Load  register  pair  DE  with  the  value  of  the  string's 

VARPTR  in  register  pair  HL. 

29DEH  -  29EOH  Check  to  see  if  the  string  is  the  last  entry  in  the 
temporary  string  work  area. 

29EIH  Load  register  pair  HL  with  the  value  of  the  string's 

VARPTR  in  register  pair  DE. 

29E2H  Return  if  the  string  isn't  the  last  entry  in  the  tempor- 

ary string  work  area. 

29E3H  Save  the  value  of  the  string's  VARPTR  in  register 

pair  DE  on  the  stack. 

29E^H  Load  register  D  with  the  MSB  of  the  string's  address 

in  register  B. 

29E5H  Load  register  E  with  the  LSB  of  the  string's  address 

in  register  C. 

29E6H  Decrement  the  value  of  the  string's  address  in 

register  pair  DE. 

29E7H  Load  register  C  with  the  string's  length  at  the  loca- 

tion of  die  string's  VARPTR  in  register  pair  HL. 

29E8H  -  29EAH  Load  register  pair  HL  with  the  next  available  loca- 
tion in  string  space  pointer. 

29EBH  Check  to  see  if  the  string's  address  in  register  pair 

DE  is  the  same  as  the  next  available  location  in 
string  space  pointer  in  register  pair  HL. 

29ECH  -  29EDH  Jump  if  the  string's  address  in  register  pair  DE  isn't 
the  same  as  the  next  available  location  in  string 
space  pointer  in  register  pair  HL. 

29EEH  Load  register  B  with  the  value  in  register  A. 

29EFH  Add  the  length  of  the  string  in  register  pair  BC  to  the 

next  available  location  in  string  space  pointer  in 
register  pair  HL. 

29EOH  --  29F2H  Save  die  adjusted  next  available  location  in  string 
space  pointer  in  register  pair  HL. 

29P3H  Get  die  string's  VARPTR  from  die  stack  and  put  it  in 

register  pair  HL. 

29F^H  Return. 
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29F5H  «  2A02H  STRING  ROUTINE 

29F5H  «  29F7H  Load  register  pair  HL  with  the  temporary  string 
work  area  pointer. 

29F8H  Decrement  the  value  of  the  temporary  string  work 

area  pointer  in  register  pair  HL. 

29F9H  Load  register  B  with  the  MSB  of  the  string^s  address 

at  the  location  of  the  temporary  string  work  area 
pointer  in  register  pair  HL. 

29FAH  Decrement  the  value  of  the  temporary  string  work 

area  pointer  in  register  pair  HL. 

29FBH  Load  register  C  with  the  LSB  of  the  string^s  address 

at  the  location  of  the  temporary  string  work  area 
pointer  in  register  pair  HL. 

29FCH  Decrement  the  value  of  the  temporary  string  work 

area  pointer  in  register  pair  HL. 

29FDH  Check  to  see  if  the  string^s  VARPTR  in  register  pair 

DE  matches  the  temporary  string  work  area  pomter 
in  register  pair  HL. 


29FEH  Return  if  the  string^s  VARPTR  in  register  pair  DE 

doesn't  match  the  temporary  string  work  area 
pointer  in  register  pair  HL. 

29FFH  -  2A01H  Save  the  value  of  the  temporary  string  work  area 
pointer  in  register  pair  HL. 

2A02H  Return. 

2A03H  «  2A0EH  LEVEL  II  BASIC  LEN  ROUTINE 

2A03H  ~  2A05H  Load  register  pair  BC  with  the  return  address. 

2A06H  Save  the  value  of  the  return  address  in  register  pair 

BC  on  the  stack. 

2A07H  -  2A09H  Go  get  the  string's  VARPTR  and  put  it  in  register 
pair  HL. 


2A0AH 
2A0BH 
2A0CH 

2A0DH 

2A0EH 
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Zero  register  A. 
Zero  register  D. 

Load  register  A  with  the  string's  length  at  the  loca- 
tion of  the  string's  VARPTR  in  register  pair  HL. 

Set  the  flags  according  to  the  string's  length  in 
register  A. 

Return. 


2A0FH  -  2A1EH    LEVEL  II  BASIC  ASC  ROUTIJSDE 

2A0FH  -  2A11H    Load  register  pair  BC  with  the  return  address. 

2A12H  Save  the  value  of  the  return  address  in  register  pair 

BC  on  the  stack. 

2A13H  «  2A15H    Go  get  string^s  VARPTR  into  register  pair  HL  and 

the  string's  length  into  register  A. 

2A16H  -  2A18H  Go  to  the  Level  II  BASIC  error  routine  and  display  a 
FC  ERROR  message  if  the  string's  length  in  register 
A  is  equal  to  zero. 

2A19H  Bump  the  value  of  the  string's  VARPTR  in  register 

pair  HL. 

2A1AH  Load  register  E  with  the  LSB  of  the  string's  address 

at  the  location  of  the  string's  VARPTR  in  register 
pair  HL. 

2A1BH  Bump  the  value  of  the  string's  VARPTR  in  register 

pair  HL. 

2A1CH  Load  register  D  with  the  MSB  of  the  string's  address 

at  the  location  of  the  string's  VARPTR  in  register 
pair  HL. 

2A1DH  Load  register  A  with  the  character  at  the  location  of 

the  string  pointer  in  register  pair  DE. 

2A1EH  Return. 

2A1FH  -   2A2EH    LEVEL  11  BASIC  CHR$  ROUTINE 

2A1FH  -  2A20H    Load  register  A  with  the  string's  length. 

2A21H  -  2A23H  Go  save  the  string's  length  in  register  A  and  set  up 
the  string's  address. 

2A24H  -  2A26H  Go  evaluate  the  expression  at  the  location  of  the 
current  BASIC  program  pointer  in  register  pair  HL 
and  return  with  the  integer  result  in  register  pair 

2A27H  -  2A29H    Load  register  pair  HL  with  the  string's  address. 

2  A2  AH  Save  the  character  in  register  E  at  the  location  of  the 

string  pointer  in  register  pair  HL. 

2A2BH  Clean  up  the  stack. 

2A2CH  -  2A2EH   Jump, 

2A2FH  -  2A60H    LEVEL  II  BASIC  STRING$  ROUTINE 

2A2  FH  Go  bump  the  value  of  the  current  BASIC  program 
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pointer  in  register  HL  till  it  points  to  the  next 

character. 

2A30H  -  2A31H  Go  check  the  syntax.  The  character  at  the  location  of 
the  current  BASIC  program  pointer  in  register  pair 
HL  must  be  a  (. 

2A32H  "  2A3^H  Go  evaluate  the  expression  at  the  location  of  the 
current  BASIC  program  pointer  in  register  pair  HL 
and  return  with  the  integer  result  in  register  pair 
DE. 

2A35H  Save  the  string's  length  in  register  pair  DE  on  the 

stack. 

2A36H  -  2A37H  Go  check  the  syntax.  The  character  at  the  location  of 
the  current  BASIC  program  pointer  in  register  pair 
HL  must  be  a  comma. 

2A38H  -  2A3AH  Go  evaluate  the  expression  at  the  location  of  the 
current  BASIC  program  pointer  in  register  pair  HL 
and  return  with  the  result  in  REGl. 

2A3BH  -  2A3CH  Go  check  the  syntax.  The  character  at  the  location  of 
the  current  BASIC  program  pointer  in  register  pair 
HL  must  be  a  ). 

2A3DH  Exchange  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL  with  the  string's  length 
on  the  stack. 

2  A3  EH  Save  the  string's  length  in  register  pair  HL  on  the 

stack. 

2A3  FH  Go  check  the  current  value  of  the  number  type  flag. 

2A^0H  ~   2A^1H    Jump  if  the  current  result  in  REGl  is  a  string. 

2A^2H  -  2A^^H  Convert  the  current  result  in  REGl  to  an  integer  and 
return  with  the  8-bit  result  in  register  A. 

2A^5H  -   2A46H    Jump. 

2A^7H  -  2A49H  Go  get  the  first  character  in  the  string  and  return 
with  it  in  register  A. 

2A^AH  Get  the  string's  length  from  the  stack  and  put  it  in 

register  pair  DE. 

2  a4B  H  Save  the  character  for  the  string  in  register  A  on  the 

stack. 

2A^CH  Save  the  character  for  the  string  in  register  A  on  the 

stack. 

2A'^DH  Load  register  A  with  the  string's  length  in  register 

E. 
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2A^EH  -  2A4FH    Go  update  the  temporary  string  work  area. 
2A51H  Load  register  E  with  the  string^s  length  in  register 

A.. 

2A52H  Get  the  character  for  the  string  from  the  stack  and 

put  it  in  register  A. 

^A53H  Bump  the  value  of  the  string's  length  in  register  E. 

2A5^H  Decrement  the  string's  length  in  register  E, 

2A55H  -  2A56H  Jump  if  the  string  has  been  completed. 

2A57H  ~   2A59H  Load  register  pair  HL  with  the  string's  address. 

2  A5AH  Save  the  character  in  register  A  at  the  location  of  the 

string  pointer  in  register  pair  HL. 

2A5BH  Bump  the  value  of  the  string  pointer  in  register  pair 

HL. 

2A5CH  Decrement  the  string's  length  in  register  E. 

2A5DH  -  2A5EH    Loop  till  the  string  has  been  completed. 
2A5FH  -  2A60H  Jump. 
2A61H  -  2A90H    LEVEL  II  BASIC  C  LEFT$  ROUTINE 

2A61H  -  2A63H  Go  check  the  syntax.  The  character  at  the  location  of 
the  current  BASIC  program  pointer  in  register  pair 
HL  must  be  a  ). 

2A64h  Zero  register  A. 

2A65H  Exchange  the  value  of  the  current  BASIC  pro- 

W^rS^S^^^^  *^  register  pair  HL  with  the  string's 
VARPTR  on  the  stack. 

2A66H  Zero  register  C. 

2A68H  Load  register  H  with  the  value  in  register  A. 

2A69H  Save  the  value  of  the  string's  VARPTR  in  register 

pair  HL  on  the  stack. 

2A6AH  Load  register  A  with  the  string's  length  at  the  loca- 

tion of  the  string's  VARPTR  in  register  pair  HL. 

2A6BH  Check  to  see  if  the  new  string's  length  in  register  B 

is  greater  than  the  string's  length  in  register  A. 

2A6CH  -  2A6DH   Jump  if  the  new  string's  length  in  register  B  is 
greater  than  the  string's  lengS  in  register  A. 

2A6EH  Load  register  A  with  the  new  string's  length  in 

register  B. 
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2A70H  «  2A71H  Zero  register  C. 

2A72H  Save  the  string's  length  in  register  pair  BC  on  the 

stack. 

2A73H  «  2A75H    Go  see  if  there  is  enough  string  space  for  the  new 

string. 

2A76H  Get  the  new  string's  length  from  the  stack  and  put  it 

in  register  pair  BC. 

2A77H  Get  the  string's  VARPTR  from  the  stack  and  put  it  in 

register  pair  HL. 

2A78H  Save  the  string's  VARPTR  in  register  pair  HL  on  the 

stack. 

2A79H  Bump  the  value  of  the  string's  VARPTR  in  register 

pair  HL. 

2A7AH  Load  register  B  with  the  LSB  of  the  string's  address 

^  at  the  location  of  the  string's  VARPTR  in  register 

pair  HL. 

2A7BH  Bump  the  value  of  the  string's  VARPTR  in  register 

pair  HL, 

2A7CH  Load  register  H  with  ±e  MSB  of  the  string's  address 

at  the  location  of  the  string's  VARPTR  in  register 
pair  HL. 

2A7DH  Load  register  L  with  the  LSB  of  the  string's  address 

in  register  B. 

2A7EH  -  2A7FH    Zero  register  B. 

2A80H  Add  the  string's  length  in  register  pair  BC  to  the 

string's  address  in  register  pair  HL. 

2A81H  Load  re^ster  B  with  the  MSB  of  the  string's  ending 

address  in  register  H. 

2A82H  Load  register  C  with  the  LSB  of  the  string's  ending 

address  in  register  L. 

2A83H  -  2A85H    Go  save  the  string's  length  and  the  string's  address. 

2A86H  Load  register  L  with  the  string's  length  in  register 

A. 

2A87H  «  2A89H    Go  move  the  string  into  string  space. 

2A8AH  Clean  up  the  stack. 

2A8BH  -  2A8DH    Go  update  the  temporary  string  work  area. 

2A8EH  -  2A90H   Jump. 

484 


2A91H  -  2A99H   LEVEL  II  BASIC  RIGHT$  ROUTINE 

2A91H  "•  2A93H  Go  check  the  syntax.  The  character  at  the  location  of 
the  current  BASIC  program  pointer  in  register  pair 
HL  must  be  a  ). 

2A9^H  Get  the  string's  VARPTR  from  the  stack  and  put  it  in 

register  pair  DE. 

2A95H  Save  the  string's  VARPTR  in  register  pair  DE  on  the 

stack. 

2A96H  Load  register  A  with  the  string's  length  at  the  loca- 

tion of  tihe  string's  VARPTR  in  register  pair  DE. 

2A97H  Subtract  the  new  string's  length  in  register  B  from 

the  string's  length  in  register  A. 

2A98H  «  2A99H    Jump. 

2A9AH  -  2AC4H   LEVEL  II  BASIC  MID$  ROUTINE 

2A9AH  Load  register  pair  HL  with  the  value  of  the  current 

BASIC  program  pointer  in  register  pair  DE. 

2A9BH  Load  register  A  with  the  character  at  the  location  of 

the  current  BASIC  program  pointer  in  register  pair 
HL. 

2A9CH  -  2A9EH  Go  get  the  string's  position  in  register  B  and  the 
string's  VARPTR  in  register  pair  DE. 

2A9FH  Bump  the  value  of  the  string's  position  in  register  B, 

2AA0H  Decrement  the  value  of  the  string's  position  in  reg- 

ister B. 

2AA1H  -  2AA3H  Go  to  the  Level  II  BASIC  error  routine  and  display  a 
FC  ERROR  message  if  the  string's  position  in 
register  B  is  equal  to  zero. 

2AA^H  Save  die  value  of  the  string's  position  in  register  B 

on  the  stack. 

2AA5H   -  2AA6H   Load  register  E  with  the  default  string's  length. 

2AA7H  -  2AA8H  Check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is  a ). 

2AA9H  -  2AAAH  Jump  if  the  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  A  is  a  ). 

2AABH  -»  2AACH  Go  check  the  syntax.  The  character  at  the  location  of 
the  current  BASIC  program  pointer  in  register  pair 
HL  must  be  a  comma. 

2AADH  -  2AAFH    Go  evaluate  the  expression  at  the  location  of  the 
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current  BASIC  program  pointer  in  register  pair  HL 
and  return  with  the  integer  result  in  register  pair 
DE. 

2AB0H  -  2AB1H  Go  check  the  syntax.  The  character  at  the  location  of 
the  current  BASIC  program  pointer  in  register  pair 
HL  must  be  a  ). 


2AB2H 
2AB3H 


Get  the  value  of  the  string^s  position  from  the  stack 
and  put  it  in  register  A. 

Exchange  the  value  of  the  current  BASIC  program 
pointer  in  register  pair  HL  with  the  value  of  the 
string's  VARPTR  on  the  stack. 


2AB^H  -  2AB6H    Load  register  pair  BC  with  the  return  address, 
2AB7H 


2AB8H 
2AB9H 


Save  the  return  address  in  register  pair  BC  on  the 
stack. 

Decrement  the  value  of  the  string's  position  in  reg- 
ister A. 

Compare  the  string's  length  at  the  location  of  the 
string's  VARPTR  in  register  pair  HL  with  the  value 
of  the  string's  position  in  register  A. 


2ABAH  -  2ABBH    Zero  register  B, 
2ABCH 


2ABDH 

2ABEH 
2ABFH 

2AC0H 
2AC1H 
2AC2H 
2AC3H 

2AC4H 
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Return  if  the  string's  position  in  register  A  is  greater 
than  the  string's  length  at  the  location  of  the  string's 
VARPTR  in  register  pair  HL. 

Load  register  C  with  the  string's  position  in  register 
A. 

Load  register  A  with  the  string's  length  at  the  loca- 
tion of  the  string's  VARPTR  in  register  pair  HL. 

Subtract  the  value  of  the  string's  position  in  register 
C  from  the  string's  length  in  register  A. 

Compare  the  new  string's  length  in  register  E  with 
the  adjusted  string's  length  in  register  A. 

Load  register  B  with  the  adjusted  string's  length  in 
register  A. 

Return  if  the  new  string's  length  in  register  E  is 
greater  than  the  string's  length  in  register  A. 

Load  register  B  with  the  new  string's  length  in 
register  E. 

Return. 


2AC5H  -  2ADEH    LEVEL  II  BASIC  VAL  ROUTINE 

2AC5H  -  2AC7H    Go  get  the  string's  length  in  register  A  and  the 
string's  VARPTR  in  register  pair  HL. 

2AC8H  -   2ACAH  Jump  if  the  string's  length  in  register  A  is  equal  to 
zero. 

2ACBH  Load  register  E  with  the  string's  length  at  the  loca- 

tion of  the  string's  VARPTR  in  register  pair  HL. 

2ACCH  Bump  the  value  of  the  string's  VARPTR  in  register 

pair  HL. 

2A  CDE  Load  register  A  with  the  LSB  of  the  string  s  address 

at  the  location  of  the  string's  VARPTR  in  register 
pair  HL. 

2ACEH  Bump  the  value  of  the  string's  VARPTR  in  register 

pair  HL. 

2 A  CFH  Load  register  H  with  the  MSB  of  the  string's  address 

at  the  location  of  the  string's  VARPTR  in  register 
pair  HL. 

2  AD  OH  Load  register  L  with  the  LSB  of  the  string's  address 

in  register  A. 

2AD1H  Save  the  value  of  the  string's  address  in  register  pair 

HL  on  the  stack. 

2AD2H  Add  the  string's  length  in  register  pair  DE  to  the 

string's  address  in  register  pair  HL. 

2AD3H  Load  register  B  with  the  last  character  of  the  string 

at  the  location  of  the  string  pointer  in  register  pair 
HL. 

2AD^H  Save  the  zero  in  register  D  at  the  location  of  the 

string  pointer  in  register  pair  HL. 

2  AD5H  Exchange  the  string's  ending  address  in  register  pair 

HL  with  the  string's  address  on  the  stack. 

2AD6H  Save  the  last  character  of  the  string  in  register  B  on 

the  stack. 

2AD7H  Load  register  A  with  the  character  at  the  location  of 

the  string  pointer  in  register  pair  HL. 

2AD8H  -  2ADAH    Go  convert  the  string  from  ASCII  to  binary. 

2ADBH  Get  the  last  character  of  the  string  from  the  stack  and 

put  it  in  register  B. 

Get  the  string's  ending  address  from  the  stack  and 
put  it  in  register  pair  HL. 


2ADCH 
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2ADDH  Save  the  character  in  register  B  at  the  location  of  the 

string  pointer  in  register  pair  HL. 

2ADEH  Return. 

2ADFH  -  2AE6H  STRING  ROUTINE 

2ADFH  Load  register  pair  HL  with  the  value  of  the  current 

BASIC  program  pointer  in  register  pair  DE. 

2AE0H  -  2AE1H  Go  check  the  syntax.  The  character  at  the  location  of 
the  current  BASIC  program  pointer  in  register  pair 
HL  must  be  a ). 

2AE2H  Get  the  return  address  from  the  stack  and  put  it  in 

register  pair  BC. 

2AE3H  Get  the  number  of  bytes  from  the  stack  and  put  it  in 

register  pair  DE. 

2AE^H  Save  the  return  address  in  register  pair  BC  on  the 

stack, 

2AE5H  Load  register  B  with  the  number  of  bytes  in  register 

E. 

2AE6H  Return. 

2AE7H  «  2AEEH   DISK  ROUTINE 

2AE7H  -  2AE8K  Check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is 
equal  to  7AH. 

2AE9H  -  2AEBPI  Go  to  the  Level  II  BASIC  error  routine  and  display  a 
SN  ERROR  message  if  the  character  at  the  location 
of  the  current  BASIC  program  pointer  in  register  A 
isn't  equal  to  7AH. 

2AECH  -  2ASEH  Jump  to  the  DOS  link  at  41D9H. 

2AEFH  -  2AF7H   LEVEL  II  BASIC  INP  ROUTINE 

2AEFH  -  2AF1H  Go  evaluate  the  expression  at  the  location  of  the 
current  BASIC  program  pointer  in  register  pair  HL 
and  return  with  the  port  number  in  register  A. 

2AF2H  -  2AF4H   Save  the  value  of  the  port  number  in  register  A. 

2AF5H  -  2AF7H  Go  get  the  value  from  the  port  and  return. 

2AF8H  -  2B00H  LEVEL  II  BASIC  OUT  ROUTINE 

2AF8H  «  2AFAH  Go  evaluate  the  expression  at  the  location  of  the 
current  BASIC  program  pointer  in  register  pair  HL 
and  return  with  the  port  number  saved  in  memory. 
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2AFBH  •«•  2AFDH  Go  evaluate  the  expression  at  the  location  of  the 
current  BASIC  program  pointer  in  register  pair  HL 
and  return  with  value  to  send  to  the  port  in  register 

2APEH  -  2B00H  Go  send  the  value  in  register  A  to  the  port  and 
return. 

2B01H  -  2B0DH  EVALUATE  EXPRESSION  ROUTINE 

2B01H  Go  bump  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL  till  it  points  to  the  next 
character. 

2B02H  -  2B04H  Go  evaluate  the  expression  at  the  location  of  the 
current  BASIC  program  pointer  in  register  pair  HL 
and  return  with  the  result  in  REGl. 

2B05H  Save  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL  on  the  stack. 

2B06H  -  2B08H    Go  convert  the  result  in  REGl  to  an  integer. 

2B09H  Load  register  pair  DE  with  the  integer  result  in 

register  pair  HL. 

2B0AH  Get  the  value  of  the  current  BASIC  program  pointer 

from  the  stack  and  put  it  in  register  pair  HL. 

2B0BH  Load  register  A  with  the  MSB  of  the  integer  result  in 

register  D. 

2B0CH  Test  the  value  of  the  MSB  in  register  A. 

2B0DH  Return. 

2B0EH  -  2B16H  EVALUATE  EXPRESSION  ROUTINE 

2B0EH  -  2B10H  Go  evaluate  the  expression  at  the  location  of  the 
current  BASIC  program  pointer  in  register  pair  HL 
and  return  with  the  8-bit  value  in  register  A. 

2B11H  -  2B13H    Save  the  8-bit  value  in  register  A. 

2B14H  -  2b16H   Save  the  8-bit  value  in  register  A. 

2B17H  ->  2B1AH    CHECK  SYNTAX  ROUTINE 

2B17H  -  2B18H  Go  check  the  syntax.  The  character  at  the  location  of 
the  current  BASIC  program  pointer  in  register  pair 
HL  must  be  a  comma. 

2B19H  -  2B1AH  Jump. 

2B1BH  -  2B28H  EVALUATE  EXPRESSION  ROUTINE 

2B1BH  Go  bump  the  value  of  the  current  BASIC  program 
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pointer  in  register  pair  HL  till  it  points  to  the  next 
character. 

2B1CH  "  2B1EH  Go  evaluate  the  expression  at  the  location  of  the 
current  BASIC  program  pointer  in  register  pair  HL 
and  return  with  the  result  in  REGl. 

2B1FH  -  2B21H  Go  convert  the  result  in  REGl  to  an  integer  and 
return  with  the  integer  result  in  register  pair  DE. 

2B22H  -  2B24H  Go  to  the  Level  II  BASIC  error  routine  and  display 
an  PC  ERROR  message  if  the  result  is  greater  than 
255. 

2B25H  Decrement  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL. 

2B26H  Go  bump  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL  until  it  points  to  the  next 
character. 

2B27H  Load  register  A  with  the  8-bit  result  in  register  E. 

2B28H  Return. 

2B29H  -  2B2DH    LEVEL  II  BASIC  LLIST  ROUTINE 

2B29H  -  2B2AH    Load  register  A  with  the  printer  output  device  code. 

2B2BH  -  2B2DH  Save  the  value  in  register  A  as  the  current  output 
device  flag. 

2B2EH  -  2B74H    LEVEL  II  BASIC  LIST  ROUTINE 

2B2EH  Get  the  return  address  from  the  stack  and  put  it  in 

register  pair  BC. 

2B2FH  -  2B31H  Go  evaluate  the  range  of  line  numbers  given  at  the 
location  of  the  current  BASIC  program  pointer  m 
register  pair  HL. 

2B32H  Save  the  address  of  the  first  BASIC  line  in  register 

pair  BC  on  the  stack. 

2B33H  -  2B35H    Load  register  pair  HL  with  a- 1. 

2B36H  -  2B38H  Save  the  value  in  register  pair  HL  as  the  current 
BASIC  line  number. 

2B39H  Get  the  address  of  the  first  BASIC  line  from  the 

stack  and  put  it  in  register  pair  HL. 

2B3AH  Get  the  value  of  the  last  BASIC  line  number  from  the 

stack  and  put  it  in  register  pair  DE. 

2B3BH  Load  register  C  with  the  LSB  of  the  next  BASIC  line 
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pointer  at  the  location  of  the  nnemory  pointer  in 
register  pair  HL. 

2B3CH  Bump  the  value  of  the  memory  pointer  in  register 

pair  HL. 

2B3DH  Load  register  B  with  the  MSB  of  the  next  BASIC  line 

pointer  at  the  location  of  the  memory  pointer  in 
register  pair  HL. 

2B3EH  Bump  the  value  of  the  memory  pointer  in  register 

pair  HL. 

2B3  FH  Load  register  A  with  the  MSB  of  the  next  BASIC  line 

pointer  in  register  B. 

2Bi^0H  Combine  the  LSB  of  the  next  BASIC  line  pointer  in 

register  C  with  the  MSB  of  the  next  BASIC  line 
pointer  in  register  A. 

2B41H  -   2B43H   Jump  if  this  is  the  end  of  the  BASIC  program. 

2B^4H  -  2B46H    Go  call  the  DOS  link  at  41DFH. 

2B^7H  -  2B49H    Go  scan  the  keyboard  to  see  if  the  BREAK  key  or  the 
shift  ^  key  was  pressed. 

2B^AH  Save  the  address  of  the  next  BASIC  line  in  register 

pair  BC  on  the  stack. 

2B^BH  Load  register  C  with  the  LSB  of  the  BASIC  line 

number  at  the  location  of  the  memory  pointer  in 
register  pair  HL. 

2B4CH  Bump  the  value  of  the  memory  pointer  in  register 

pair  HL. 

2B^DH  Load  register  B  with  the  MSB  of  the  BASIC  line 

number  at  the  location  of  the  memory  pointer  in 
register  pair  HL. 

2B^EH  Bump  the  value  of  the  memory  pointer  in  register 

pair  HL. 

2B^FH  Save  the  BASIC  line  number  in  register  pair  BC  on 

the  stack. 

2B50H  Exchange  the  value  of  the  memory  pointer  in  regis- 

ter pair  HL  with  the  value  of  the  BASIC  line  number 
on  the  stack. 

2B  5 IH  Exchange  the  value  of  the  BASIC  line  number  in 

register  pair  HL  with  the  value  of  the  last  BASIC  line 
number  in  register  pair  DE. 

2B  52H  Compare  the  BASIC  line  number  in  register  pair  DE 

with  die  last  BASIC  line  number  in  register  pair  HL. 
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2B53H  Get  the  value  of  the  memory  pointer  from  the  stack 

and  put  it  in  register  pair  BC 

2B5^H  -  2B56H  Jump  if  the  BASIC  line  number  in  register  pair  DE  is 
greater  than  the  last  BASIC  line  number  in  register 
pair  HL. 

2B57H  Exchange  the  value  of  the  last  BASIC  line  number  in 

register  pair  HL  with  the  address  of  the  next  BASIC 
line  on  the  stack. 

2B58H  Save  the  address  of  the  next  BASIC  line  in  register 

pair  HL  on  the  stack. 

2B59H  Save  the  memory  pointer  in  register  pair  BC  on  the 

stack. 

2B5AH  Load  register  pair  HL  with  the  BASIC  line  number  in 

register  pair  DE. 

2B5BH  -  2B5DH   Save  the  BASIC  line  number  in  register  pair  HL. 

2B5EH  -  2B60H  Go  convert  the  BASIC  line  number  in  register  pair 
HL  to  an  ASCII  string  and  send  the  string  to  the 
current  output  device. 

2B61H  -  2B62H    Load  register  A  with  a  space. 

2B63H  Get  the  value  of  the  memory  pointer  from  the  stack 

and  put  it  in  register  pair  HL. 

2B6^H  -  2B66H  Go  send  the  space  in  register  a  to  the  current  output 
device. 

2B67H  -  2B69H  Go  move  die  BASIC  line  at  the  location  of  the  mem- 
ory pointer  in  register  pair  HL  into  the  input  buffer 
and  untokenize  the  BASIC  line. 

2B6AH  «  2B6CH  ^^^  register  pair  HL  with  the  starting  address  of 
the  input  buffer. 

2B6DH  -  2B6FH  Go  send  the  BASIC  line  in  the  input  buffer  to  the 
current  output  device. 

2B70H  -  2B72H  Go  send  a  carriage  return  to  the  current  output 
device. 

2B73H  -  2B7^H    Loop  till  the  listing  is  complete. 

2B75H  -  2B7DH    DISPLAY  MESSAGE  ROUTINE 

2B75H  Load  register  A  with  the  character  at  the  location  of 

the  memory  pointer  in  register  pair  HL. 

2B76H  Check  to  see  if  the  character  in  register  A  is  an  end  of 

the  string  character. 
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2B77H  Return  if  the  character  in  register  A  is  an  end  of  the 

string  character. 

2B78H  "  2B7AH   Go  send  the  character  in  register  A  to  the  current 
output  device. 

2B7BH  Bump  the  value  of  the  memory  pointer  in  register 

pair  HL. 

2B7CH  -   2B7DH   Loop  till  all  of  the  characters  have  been  sent  to  the 
current  output  device. 

2B7EH  -   2BC5H    UNTOKENIZE  ROUTINE 

2B7EH  Save  the  BASIC  line  pointer  in  register  pair  HL  on 

the  stack. 

2B7FH  -   2B81H   Load  register  pair  HL  with  the  starting  address  of 
the  input  buffer. 

2B82H  Load  register  B  with  the  MSB  of  the  input  buffer 

pointer  in  register  H. 

2B83H  Load  register  C  with  the  LSB  of  the  input  buffer 

pointer  in  register  L. 

2B84H  Get  the  value  of  the  BASIC  line  pointer  from  the 

stack  and  put  it  in  register  pair  HL. 

2B85H  -   2B86H   Load  register  D  with  the  maximum  length  of  an 
untokenized  line. 

2B87H  "  2B88H  Jump, 

2B89H  Bump  the  value  of  the  input  buffer  pointer  in  register 

pair  BC. 

2B8AH  Decrement  the  character  count  in  register  D. 

2B8BH  Return  if  255  characters  have  been  moved  into  the 

input  buffer. 

2B8CH  Load  register  A  with  the  character  at  the  location  of 

the  BASIC  line  pointer  in  register  pair  HL. 

2B8DH  Check  to  see  if  the  character  in  register  A  is  an  end  of 

the  BASIC  line  character. 

2B8EH  Bump  the  value  of  the  BASIC  line  pointer  in  register 

pair  HL. 

2B8FH  Save  the  chr  racter  in  register  A  at  the  location  of  the 

input  buffei  pointer  in  register  pair  BC. 

2B90H  Return  if  the  character  in  register  A  is  an  end  of  the 

BASIC  line  character. 

493 


2B91H  -»  2B93H   Jump  if  the  character  in  register  A  isn't  a  BASIC 
token. 

2B9^H  -  2B95H    Check  to  see  if  the  character  in  register  A  is  a 
token. 

2B96H  -  2B97H   Jump  if  the  character  in  register  A  isn't  a  '  token. 

2B98H  Decrement  the  value  of  the  input  buffer  pointer  in 

register  pair  EC. 

2B99H  Decrement  the  value  of  the  input  buffer  pointer  in 

register  pair  BC. 

2B9AH  Decrement  the  value  of  the  input  buffer  pointer  in 

register  pair  BC. 

2B9BH  Decrement  the  value  of  the  input  buffer  pointer  in 

register  pair  BC. 

2B9CH  Bump  the  value  of  the  character  counter  in  register 

D. 

2B9DH  Bump  the  value  of  the  character  counter  in  register 

D. 

2B9EH  Bump  the  value  of  the  character  counter  in  register 

D. 

2B9PH  Bump  the  value  of  the  character  counter  in  register 

D. 

2BA0H  -  2BA1H    Check  to  see  if  the  character  in  register  A  is  an 
ELSE  token. 

2BA2H  -  2BA^H  Go  decrement  the  value  of  the  input  buffer  pointer  if 
the  character  in  register  A  is  an  ELSE  token. 

2BA5H  «  2BA7H  Save  the  value  of  the  BASIC  line  pointer  in  register 
pair  HL  on  the  stack. 

2BA8H  Load  register  E  with  the  character  in  register  A. 

2BA9H  -  2BABH   Load  register  pair  HL  with  the  starting  address  of 
the  reserved  words  list. 

2BACH  Load  register  A  with  the  character  at  the  location  of 

the  reserved  words  list  pointer  in  register  pair  HL. 

2BADH  Test  the  value  of  the  character  in  register  A. 

2B  AEH  Bump  the  value  of  the  reserved  words  list  pointer  in 

register  pair  HL. 

2BAFH  -  2BB1H  Jump  if  the  character  at  the  location  of  the  reserved 
words  pointer  in  register  A  doesn't  have  bit  7  set. 
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2BB2H  Decrement  the  value  of  the  token  in  register  E, 

2BB3H  -  2BB4H    Jump  if  this  isn't  the  reserved  word  for  the  token. 

2BB5H   -   2BB6H    Reset  bit  7  of  the  character  in  register  A. 

2BB7H  Save  the  character  in  register  A  at  the  location  of  the 

input  buffer  pointer  in  register  pair  EC. 

2BB8H  Bump  the  value  of  the  input  buffer  pointer  in  register 

pair  EC. 

2BB9H  Decrement  the  value  of  the  character  counter  in 

register  D. 

2BBAH  -   2BBCH   Jump  if  the  maximum  number  of  characters  have 
been  put  into  the  input  buffer. 

2BBDH  Load  register  A  with  the  character  at  the  location  of 

the  reserved  words  pointer  in  register  pair  HL. 

2BBEH  Bump  the  reserved  words  pointer  in  register  pair 

HL. 

2BBFH  Test  the  value  of  the  character  in  register  A. 

2BC0H  -  2BC2H  Jump  if  bit  7  of  the  character  in  register  A  isn't  set. 

2BC3H  Get  the  value  of  the  BASIC  line  pointer  from  the 

stack  and  put  it  in  register  pair  HL. 

2BC^H  -  2BC5H  Jump. 

2BC6H  •-  2BF4H    LEVEL  II  BASIC  DELETE  ROUTINE 

2BC6H  -  2BC8H    Go  evaluate  the  line  numbers  at  the  location  of  the 
current  BASIC  program  pointer  in  register  pair  HL. 

2BC9H  Get  the  value  of  the  last  BASIC  line  number  to  be 

deleted  from  the  stack  and  put  it  in  register  pair  DE. 

2BCAH  Save  the  address  of  the  first  BASIC  line  to  be  de- 

leted in  register  pair  EC  on  the  stack. 

2BCBH  Save  the  address  of  the  first  BASIC  line  to  be  de- 

leted in  register  pair  BC  on  the  stack. 

2BCCH  -  2BCEH    Go  get  the  address  of  the  last  line  to  be  deleted. 

2BCFH  -  2BD0H   Jump  if  the  last  line  to  be  deleted  can't  be  found  in  the 
BASIC  program. 

2BD1H  Load  register  D  with  the  MSB  of  the  last  BASIC 

line's  address  in  register  H. 

2BD2H  Load  register  E  with  the  LSB  of  the  last  BASIC 

line's  address  in  register  L. 
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2BD3H  Exchange  the  last  BASIC  Une's  address  in  register 

pair  HL  with  the  first  BASIC  line's  address  on  the 
stack. 

2BD4H  Save  the  first  BASIC  line's  address  in  register  pair 

HL  on  the  stack. 

2BD5H  Check  to  see  if  the  first  BASIC  line's  address  in 

register  pair  HL  is  greater  than  or  equal  to  the  last 
BASIC  line's  address  in  register  pair  DE. 

ZBD6H  -  2BD8H  Jump  to  the  Level  11  BASIC  error  routine  and  display 
a  PC  ERROR  message  if  the  first  BASIC  lines  ad- 
dress in  register  pair  HL  is  greater  than  or  equal  to 
the  last  Basic  line's  address  in  register  pair  DE. 

2BDQH  -  2BDBH  Load  register  pair  HL  with  the  starting  address  of 
the  BASIC  READY  message. 

2BDCH  -  2BDEH  Go  display  the  BASIC  READY  message. 

2BDFH  Get  the  first  BASIC  line's  address  from  the  stack  and 

put  it  in  register  pair  BC. 

2BE0H  -  2BE2H   Load  register  pair  HL  with  the  return  address. 

2BE3H  Exchange  die  value  of  the  return  address  in  register 

pair  HL  with  the  value  of  the  last  BASIC  line's 
address  on  the  stack. 

2BE4H  Load  register  pair  DE  with  the  last  BASIC  line's 

address  in  register  pair  HL. 

2BE5H  -  2BE7H  Load  register  pair  HL  with  the  end  of  the  BASIC 
program  pointer. 

2BE8H  Load  register  A  with  the  character  at  the  location  of 

the  memory  pointer  in  register  pair  DE. 

2BE9H  Save  the  character  in  register  A  at  the  location  of  the 

memory  pointer  in  register  pair  BC. 

2BEAH  Bump  the  value  of  the  memory  pointer  in  register 

pair  BC. 

2BEBH  Bump  the  value  of  the  memory  pointer  in  register 

pair  DE. 

2BECH  Check  to  see  if  the  memory  pointer  in  register  pair 

DE  equals  the  end  of  the  BASIC  program  pointer  in 
register  pair  HL. 

2BEDH  -  2BESH  Loop  till  the  memory  pointer  in  register  pair  DE 
equals  die  end  of  the  BASIC  program  pointer  in 
register  pair  HL. 
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2BEFH  Load  register  H  with  the  MSB  of  the  memory 

pointer  in  register  B. 

^BFOH  Load  register  L  with  the  LSB  of  the  memory  pointer 

in  register  C. 

2BP1H  -  2BF3H  Save  the  value  in  register  pair  HL  as  the  new  end  of 
the  BASIC  program  pointer. 

2BF^H  Return. 

2BF5H  -  2C1EH   LEVEL  II  BASIC  CSAVE  ROUTINE 

2BF5H  -  2BF7H  Go  write  the  leader  and  the  sync  byte  on  the  cassette 
recorder. 

2BF8H  -  2BFAH  Go  evaluate  the  expression  at  the  location  of  the 
current  BASIC  program  pointer  in  register  pair  HL 
and  return  with  the  result  in  REGl. 

2BFBH  Save  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL  on  the  stack. 

2BFCH  -  ZBFER  Go  get  the  starting  address  of  the  filename  in  regis- 
ter pair  DE. 

2BFFH  -  2C00H   Load  register  A  with  the  filename  header  byte. 

2C01H  ^  2C03H  Go  write  the  filename  header  byte  in  register  A  on 
the  cassette  recorder, 

2C0^H  -  2C06H  Go  write  the  filename  header  byte  in  register  A 
twice  more. 

^C^7H  Load  register  A  with  the  first  character  of  the 

filename  at  the  location  of  the  filename  pointer  in 
register  pair  DE. 

2C08H  -  2C0AH  Go  write  the  filename  in  register  A  on  the  cassette 
recorder. 

2C0BH  -  2C0DH   Load  register  pair  HL  with  the  start  of  the  BASIC 

program  pointer. 

2C0EH  Load  register  pair  DE  with  the  start  of  the  BASIC 

program  pointer  in  register  pair  HL. 

2C0FH  -  2C11H  Load  register  pair  HL  with  the  end  of  the  BASIC 
program  pointer. 

2C12H  Load  register  A  with  the  character  at  the  location  of 

the  memory  pointer  in  register  pair  DE. 

2C13H  Bump  the  value  of  the  memory  pointer  in  register 

pair  DE. 
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2C1^H  -»  2C16K  Go  write  the  character  in  register  A  on  the  cassette 
recorder. 

2C17H  Check  to  see  if  the  memory  pointer  in  register  pair 

DE  is  equal  to  the  end  of  the  BASIC  program  pomter 
in  register  pair  HL. 

2C18H  -  2C19H  Loop  till  the  memory  pointer  in  register  pair  DE  is 
equal  to  the  end  of  the  BASIC  program  pomter  m 
register  pair  HL. 

2C1AH  «  2C1CH    Go  turn  the  cassette  recorder  off. 

2C1DH  Get  the  value  of  the  current  BASIC  program  pointer 

from  the  stack  and  put  it  in  register  pair  HL. 

2C1EH  Return. 

2C1FH  -  2CA^H    LEVEL  II  BASIC  CLOAD  ROUTINE 

2C1FH  -  2C21H    Go  turn  on  the  cassette  recorder. 

2C22H  Load  register  A  with  the  character  at  the  location  9f 

the  current  BASIC  program  pointer  m  register  pair 
HL. 

2C23H  -  2C2^H  Check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is  a  ?. 

2C25H  »  2C26H  Jump  if  the  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  A  is  a  ?. 

2C27H  Zero  register  A. 

2C29H  Load  register  A  with  a  ~1  for  CLOAD?. 

2C2AH  Bump  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL  till  it  points  to  the  next 
character  if  CLOAD?. 

2C2BH  Save  the  CLOAD/CLOAD?  flag  in  register  A  on  the 

stack. 

2C2CH  Decrement  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL, 

2C2DH  Go  bump  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL  till  it  points  to  the  next 
character. 

2C2EH  -  2C2FH   Zero  register  A. 

2C30H  «  2C31H  Jump  if  the  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  pair  HL  is  an  end 
of  the  BASIC  statement  character. 
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ZQ32H  ^  2C3^H  Go  evaluate  the  expression  at  the  location  of  the 
current  BASIC  program  pointer  in  register  pair  HL 
and  return  with  the  result  in  REGl. 

2C35H  -  2C37H   Go  get  the  filename's  address  in  register  pair  DE. 

2C38H  Load  register  A  with  the  first  character  of  the 

filename  at  the  location  of  the  filename  pointer  in 
register  pair  DE. 

2C39H  Load  register  L  with  the  filename  in  register  A, 

2C3AH  Get  the  value  of  the  CLOAD/CLOAD?  flag  from  the 

stack  and  put  it  in  register  A. 

2C3BH  Test  the  value  of  the  CLOAD/CLOAD?  flag  in 

register  A. 

2C3CH  Load  register  H  with  the  value  of  the  CLOAD/ 

CLOAD?  flag  in  register  A. 

2C3DH  -  2C3PH  Save  the  value  of  the  CLOAD/CLOAD?  flag  and  the 
filename  in  register  pair  HL  in  REGL 

2C^0H  -  2C42H    Go  reinitialize  the  BASIC  pointers  if  CLOAD. 

2C43H  -  2C45H  Load  register  pair  HL  with  the  CLOAD/CLOAD? 
flag  and  the  filename  in  REGl, 

2C46H  Load  register  pair  DE  with  the  CLOAD/CLOAD? 

flag  and  the  filename  in  register  pair  HL. 

2C^7H  -  ZC^K  Load  register  B  with  the  number  of  bytes  for  the 
filename  header. 

2C^9H  -  ZOkBE  Go  read  a  byte  from  the  cassette  recorder  and  return 
with  it  in  register  A, 

2C^CH  -  2C^DH  Check  to  see  if  the  character  in  register  A  is  a 
filename  header  byte. 

2C^EH  -"  2C4PH  Loop  if  the  character  in  register  A  isn't  a  filename 
header  byte. 

2C50H  -  2C51H  Loop  till  three  filename  header  bytes  have  been 
read. 

ZC^ZK  -  2C5^H  Go  read  a  byte  firom  the  cassette  recorder  and  return 
with  it  in  register  A. 

2C55H  Bump  the  value  of  the  filename  in  register  E. 

2C56H  Decrement  the  value  of  the  filename  in  register  E. 

2C57H  -  2C58H   Jump  if  no  filename  was  specified. 
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2C59H  Compare  the  filename  specified  in  register  E  with 

the  character  in  register  A. 

2C5AH  -  2C5BH   Jump  if  the  filename  specified  in  register  E  doesn't 
match  the  character  in  register  A. 

2C5CH  -  2C5EH    Load  register  pair  HL  with  the  start  of  the  BASIC 
program  pointer. 

2C5PH  -  2C60H    Load  register  B  with  the  number  of  zeros  to  look  for 
to  stop  the  load. 

2C6lH  -  2C63H    Go  read  a  byte  from  the  cassette  recorder  and  return 
with  it  in  register  A. 

2C64H  Load  register  E  with  the  character  in  register  A. 

2C65H  Compare  the  character  in  register  A  with  the 

character  at  the  location  of  the  memory  pointer  in 
register  pair  HL. 

2c66H  Combine  the  result  in  register  A  with  the  value  of 

the  CLOAD/CLOAD?  flag  in  register  D. 

2C67H  -  2C68H    Jump  if  CLOAD?  and  the  bytes  don't  match. 

2  C6  9H  Save  the  character  in  register  E  at  the  location  of  the 

memory  pointer  in  register  pair  HL. 

2C6AH  -  2C6CH    Go  check  for  an  OM  ERROR. 

2  C6DH  Load  register  A  with  the  character  at  the  location  of 

the  memory  pointer  in  register  pair  HL. 

2C6EH  Check  to  see  if  the  byte  just  read  in  register  A  is 

equal  to  zero. 

2C6  FH  Bump  the  value  of  the  memory  pointer  in  register 

pair  HL. 

2C70H  -  2C71H    Loop  if  the  byte  in  register  A  isn't  equal  to  zero. 
2C72H  -  2C74H    Go  blink  the  asterisk  on  the  video  display. 

2C75H  -  2C76H     Loop  till  three  zeros  in  a  row  have  been  read  from 
the  cassette  recorder. 

2C77H  "  2C79H    Save  the  value  of  the  memory  pointer  in  register  pair 
HL  as  the  new  end  of  the  BASIC  program  pointer. 

2C7AH  -  2C7CH    Load  redster  pair  HL  with  the  starting  address  of 
the  BASIC  READY  message. 

2C7DH  -  2C7FH    Go  display  the  BASIC  READY  message. 

2C80H  -  2C82H    Go  turn  off  the  cassette  recorder. 
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2C83H  -  2C85H  Load  register  pair  HL  with  the  start  of  the  BASIC 
program  pointer. 

2C86H  Save  the  start  of  ±e  BASIC  program  pointer  in 

register  pair  HL  on  the  stack. 

2C87H  -  2C89H  Jump, 

2C8AH  -  2C8CH  Load  register  pair  HL  with  the  starting  address  of 
the  BAD  message. 

2C8DH  -  2G8FH  Go  display  the  BAD  message. 

2C90H  -•  2C92H  Jump. 

2C93H  -  2C95H  Go  display  the  filename  on  the  video  display. 

2C96H  "  2C97H  Load  register  B  with  ±e  number  ofzeros  to  be  found 
to  stop  the  search. 

2C98H  -  2C9AH  Go  read  a  byte  from  the  cassette  recorder  and  return 
with  it  in  register  A. 

2C9BH  Check  to  see  if  the  character  in  register  A  is  equal  to 

zero. 

2C9CH  -  2C9DH  Loop  ifthe  character  in  registerA  isn't  equal  to  zero. 

2C9EH  -  2C9FH  Loop  till  three  zeros  in  a  row  have  been  read  from 
the  cassette  recorder. 

2CA0H  -  2CA2H  Go  read  the  leader  and  the  sync  byte  on  the  cassette 
recorder. 

2CA3H  -  2CA4H  Jump. 

2CA5H  -  2CA9H  MESSAGE  STORAGE  LOCATION 

2CA5H  -  2CA9H  The  BAD  message  is  stored  here. 

2CAAH  -  2CB0H  LEVEL  II  BASIC  PEEK  ROUTINE 

2CAAH  -  2CACH  Go  convert  the  current  result  in  REGl  to  an  integer 
and  return  with  it  in  register  pair  HL. 

2CADH  Load  register  A  with  the  value  at  the  location  of  the 

memory  pointer  in  register  pair  HL. 

2CAEH  -  2CB0H  Go  save  the  8-bit  value  in  register  A  as  the  current 
result  in  REGl. 

2CB1H  "   2CBCH  LEVEL  II  BASIC  POKE  ROUTINE 

2CB1K  -  2CB3H  Go  evaluate  the  expression  at  the  location  of  the 
current  BASIC  program  pointer  in  register  pair  HL 
and  return  with  the  integer  result  in  register  pair 
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2  CB^H  ^^^^  ^^  ^^^"^  ^^  ^^^  memory  pointer  in  register  pair 

DE  on  the  stack. 

2CB 5H  -  2CB6H  Go  check  the  syntax.  The  character  at  the  location  of 
the  current  BASIC  program  pointer  in  register  pair 
HL  must  be  a  comma. 

2CB7H  -  2CB9H  Go  evaluate  the  expression  at  the  location  of  the 
current  BASIC  program  pointer  in  register  pair  HL 
and  return  with  the  8-bit  value  in  register  A. 

2CBAH  Get  the  value  of  the  memory  pointerfrom  the  stack 

and  put  it  in  register  pair  DE. 

2CBBH  Save  the  value  in  register  A  at  the  location  of  the 

memory  pointer  in  register  pair  DE. 

2CBCH  Return. 

2CBDH  -  2E52H   LEVEL  II  BASIC  USING  ROUTINE 

2CBDH  -  2CBFH  Go  evaluate  the  string  expression  at  the  location  of 
the  current  BASIC  program  pointer  in  register  pair 
HL. 

2CC0H  "  2CC2H  Go  make  sure  the  expression  that  was  just  evaluated 
was  a  string. 

2CC3H  -  2CC4H  Go  check  the  syntax.  The  character  at  the  location  of 
the  current  BASIC  program  pointer  in  register  pair 
HL  must  be  a  semicolon. 

2CC5H  Load  register  pair  DE  with  the  value  of  the  current 

BASIC  program  pointer  in  register  pair  HL. 

2CC6H  -  2CC8H  Load  register  pair  HL  with  the  USING  string sVAR- 
PTR. 

2CC9H  "  2CCAH   Jump. 

2CCBH  -  2CCDH  Load  register  A  with  the  value  of  the  READ/INPUT 
flag. 

2CCEH  Check  to  see  if  the  READ/INPUT  flag  in  register  A 

indicates  INPUT. 

2CCFH  -  2CD0H  Jump  if  the  READ/INPUT  flag  in  register  A  indi- 
cates INPUT. 

2  CDIH  Get  the  value  of  the  current  BASIC  program  pointer 

from  the  stack  and  put  it  in  register  pair  DE. 

2CD2H  I-oad  register  pair  HL  with  the  value  of  the  current 

BASIC  program  pointer  in  register  pair  DE. 

2CD3H  Save  the  USING  string's  VARPTR  in  register  pair 

HL  on  the  stack. 
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2CD4H  Zero  register  a. 

2CD5H  -  2CD7H  Save  the  value  in  register  A  as  the  READ/INPUT 

flag. 

2CD8H  Check  to  see  if  the  value  in  register  pair  DE  is  equal 

to  zero. 

2CD9H  Save  the  value  in  register  pair  AF  on  the  stack. 

2CDAH  Save  the  value  in  register  pair  DE  on  the  stack. 

2CDBH  Load  register  B  with  the  USING  string's  length  at 

the  location  of  the  USING  string's  VARPTR  in  reg- 
ister pair  HL. 

^  CDCH  Check  to  see  if  the  USING  string's  length  in  register 

B  is  equal  to  zero. 

2CDDH  -  2CDPH  Go  to  the  Level  II  BASIC  error  routine  and  display  a 
FC  ERROR  message  if  the  USING  strings  length  in 
register  B  is  equal  to  zero. 

2CE0H  Bump  the  value  of  the  USING  string's  VARPTR  in 

register  pair  HL. 

2CE1H  Load  register  C  with  the  LSB  of  the  USING  string's 

address  at  the  location  of  the  USING  string's 
VARPTR  in  register  pair  HL. 

2CE2H  Bump  the  value  of  the  USING  string's  VARPTR  in 

register  pair  HL. 

2  CE3H  Load  register  H  with  the  MSB  of  the  USING  string's 

address  at  the  location  of  the  USING  string's 
VARPTR  in  register  pair  HL. 

2CE^H  Load  register  L  with  the  LSB  of  the  USING  string's 

address  in  register  C. 

2CE5H  -  2CE6H  Jump. 

2CE7H  Load  register  E  with  the  USING  string's  length  in 

register  B. 

2CE8H  Save  the  value  of  the  current  USING  string  pointer 

in  register  pair  HL. 

2CE9H  -  2CEAH  Load  register  C  with  the  number  of  %'s  substring 
length. 

2  CEBH  Load  register  A  with  the  character  at  the  location  of 

the  USING  string  pointer  in  register  pair  HL. 

2CECH  Bump  the  value  of  the  USING  string  pointer  in 

register  pair  HL. 
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2CEDH  -  2CEEH  Check  to  see  if  the  character  in  register  A  is  a  %. 

2CEFH  -  2CP1H  Jump  if  the  character  in  register  A  is  a  %. 

2CF2H  -  2CF3H  ChecktoseeifthecharacterinregisterAisaspace. 

2CF4H  -  2CF5H  Jump  if  the  character  in  register  A  isn't  a  space. 

2CF6H  Bump  the  %  substring  length  in  register  C. 

2CF7H  -  2CF8H  Decrement  the  USING  string's  length  in  register  B. 

2CF9H  Get  the  value  of  the  USING  string  pointer  from  the 

stack  and  put  it  in  register  pair  HL. 

2CPAH  Load  register  B  with  the  USING  string's  length. 

2CFBH  -  2CFCH    Load  register  A  with  a  %. 
2CFDH  «  2CFFH    Go  print  a  4-  if  necessary. 

2D00H  -  2D02H  Go  print  the  character  in  register  A. 

2D03H  Zero  register  A. 

2D04H  Load  register  E  with  the  value  in  register  A. 

2D05H  Load  register  D  with  the  value  in  register  A. 

2D06H  -   2D08H  Go  print  a  +  if  necessary. 

2D09H  Load  register  D  with  the  value  in  register  A. 

2D0AH  Load  register  A  with  the  character  at  the  location  of 

the  USING  string  pointer  in  register  pair  HL. 

2D0BH  Bump  the  value  of  the  USING  string  pointer  in 

register  pair  HL, 

2D0CH  -  2D0DH    Check  to  see  if  the  character  in  register  A  is  a  !. 
2D0EH  -   2D10H    Jump  if  the  character  in  register  A  is  a  !. 

2D11H  -   2D12H    Check  to  see  if  the  character  in  register  A  is  a  #. 

2D13H  -   2D1^H    Jump  if  the  character  in  register  A  is  a  #. 

2D15H  Decrement  the  value  of  the  string's  length  in  regis- 

ter B. 

2D16H  -  2D18H  Jump  if  this  is  the  end  of  the  USING  string. 

2D19H  -  2D1AH  Check  to  see  if  the  character  in  register  A  is  a  +. 

2D1BH  -   2D1CH  Set  the  leading  +  flag  in  register  A. 

2D1DH   -   2D1EH  Jump  if  the  character  in  register  A  was  a  +. 
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2D1FH  Decrement  the  value  of  the  USING  string  pointer  in 

register  pair  HL. 

2D2  OH  Load  register  A  with  the  character  at  the  location  of 

the  USING  string  pointer  in  register  pair  HL. 

2D2 IH  Bump  the  value  of  the  USING  string  pointer  in  reg- 

ister pair  HL. 

2D22H  "  2D23H  Check  to  see  if  the  character  in  register  A  is  a 
decimal  point. 

2D2^H  -   2D25H  Jump  if  the  character  in  register  A  is  a  decimal  point. 

2J)Z6K  -  2D27K    Check  to  see  if  the  character  in  register  A  is  a  %, 

2D28H  -  2D29H   Jump  if  the  character  in  register  A  is  a  %. 

2D2AH  Compare  the  character  in  register  A  with  the 

character  at  the  location  of  the  USING  string  pointer 
in  register  pair  HL. 

2D2BH  -  2D2CH  Jump  if  the  character  in  register  A  isn't  equal  to  the 
character  at  the  location  of  the  USING  string  pointer 
in  register  pair  HL. 

2D2DH  -  2D2EH  Check  to  see  if  the  character  in  register  A  is  a  $. 

2D2FH  -  2D30H  Jump  if  the  character  in  register  A  is  a  $. 

2D31H  -   2D32H  Check  to  see  if  the  character  in  register  A  is  a  *. 

2D33H  -  2D3^H  Jump  if  the  character  in  register  A  isn't  a  *. 

2D35H  Load  register  A  with  the  USING  string's  length  in 

register  B. 

2D36H  -  2D37H  Check  to  see  ifthe  USING  string's  length  in  register 
A  is  at  least  two. 

2D38H  Bump  the  value  of  the  USING  string  pointer  in 

register  pair  HL. 

2D39H  -  2D3 AH  Jump  if  the  USING  string's  length  in  register  A  isn't 
at  least  two. 

2D3BH  Load  register  A  with  the  character  at  the  location  of 

the  USING  string  pointer  in  register  pair  HL. 

2D3CH  -  2D3DH  Check  to  see  if  the  character  in  register  A  is  a  $. 

2D3EH  -  2D3FH  Set  the  **  edit  flag  in  register  A. 

2D^0H  -  2D^1H  Jump  if  the  character  in  register  A  isn't  a  $. 

2D42H  Decrement  the  value  of  the  USING  string's  length  in 

register  B. 
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2D^3H  Bump  the  number  of  characters  to  the  left  of  the 

decimal  point  in  register  E. 

2D^6K  -   2D^7H  Mask  the  value  of  the  edit  flag  in  register  A  for 
leading  $'s. 

2D^8H  Bump  the  value  of  the  USING  string  pointer  in  reg- 

ister pair  HL. 

2D^9H  Bump  the  number  of  characters  to  the  left  of  the 

decimal  point  in  register  E. 

2DJ^AH  Combine  the  value  of  the  edit  flag  in  register  D  with 

the  value  of  the  edit  flag  in  register  A. 

2j}i|.BH  ^sd  register  D  with  the  value  of  the  edit  flag  in 

register  A. 

2D4CH  Bump  the  number  of  characters  to  the  left  of  the 

decimal  point  in  register  E. 

2D^DH  -  2D^EH  Zero  the  number  of  characters  to  the  right  of  the 
decimal  point  in  register  C. 

2D^FH  Decrement  the  value  of  the  string's  length  in  regis- 

ter B. 

2j)50H  -  2D51H  Jump  if  this  is  the  end  of  the  string. 

2D52H  Load  register  A  with  the  character  at  the  location  of 

the  USING  string  pointer  in  register  pair  HL. 

2D53H  Bump  the  value  of  the  USING  string  pointer  in  reg- 

ister pair  HL. 

2D54H  -  2D55H  Check  to  see  if  the  character  in  register  A  is  a 
decimal  point. 

2D56H  -  2D57H  Jump  if  the  character  in  register  A  is  a  decimal  point. 

2D58H  -  2D59H  Check  to  see  if  the  character  in  register  A  is  a  #. 

2D5AH  -  2D5BH  Jump  if  the  character  in  register  A  is  a  #. 

2D5CH  -  2D5DH  Check  to  see  if  the  character  in  register  A  is  a 
comma. 

2D5EH  "  2D5FH  Jump  if  the  character  in  register  A  isn't  a  comma. 

2d60H  Load  register  A  with  the  value  of  the  edit  flag  in 

register  D. 

2D61H  »  2D62H  Mask  the  edit  flag  in  register  A  for  commas. 

2D63H  Load  register  D  with  the  value  of  the  edit  flag  in 

register  A. 
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2D64H  -  2D65H  Jump, 

2D66H  Load  register  A  with  the  character  at  the  location  of 

the  USING  string  pointer  in  register  pair  HL. 

2D67H  -   2D68H   Check  to  see  if  the  character  in  register  A  is  a  #. 

2D69H  -  2D6AH  Load  register  A  with  a  decimal  point. 

2D6BH  -  2D6CH  Jump  if  the  character  in  register  A  wasn't  a  #. 

2D6DH  -  2D6EH  Load  register  C  with  the  number  of  characters  to  the 
right  of  the  decimal  point. 

2D6FH  Bump  the  value  of  the  USING  string  pointer  in  reg- 

ister pair  HL. 

^D70H  Bump  the  number  of  characters  to  the  right  of  the 

decimal  point  in  register  C. 

2D71H  Decrement  the  value  of  the  string's  length  in  regis- 

ter B. 

2D72H  -  2D73H  Jump  if  this  is  the  end  of  the  string. 

2D7^H  Load  register  A  with  the  character  at  the  location  of 

the  USING  string  pointer  in  register  pair  HL. 

2D75H  Bump  the  value  of  the  USING  string  pointer  in  reg- 

ister pair  HL. 

2D76H  -  2D77H  Check  to  see  if  the  character  in  register  A  is  a  #. 

2D78H  -  2D79H  Jump  if  the  character  in  register  A  is  a  #. 

2D7AH  Save  the  value  of  the  edit  flag  and  the  count  of  the 

characters  to  the  left  of  the  decimal  point  in  register 
pair  DE  on  the  stack. 

2D7BH  -  2D7DH  Load  register  pair  DE  with  the  return  address. 

2D7EH  Save  the  value  of  the  return  address  in  register  pair 

DE  on  the  stack. 

2D7FH  Load  register  D  wi±  the  MSB  of  the  USING  string 

pointer  m  register  H. 

2D80H  Load  register  E  with  the  LSB  of  the  USING  string 

pointer  in  register  L. 

2D81H  -  2D82H  Check  to  see  if  the  character  in  register  A  is  an  up 
arrow. 

2D83H  Return  if  the  character  in  register  A  isn't  an  up 

arrow. 

2D84H  Check  to  see  if  the  character  at  the  location  of  the 
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2D85H 
2D86H 
2D87H 

2D88H 
2D89H 

2D8AH 

2D8BH 
2D8CH 
2D8DH 


USING  string  pointer  in  register  pair  HL  is  an  up 
arrow. 

Return  if  the  character  at  the  location  of  the  USING 
string  pointer  in  register  pair  HL  isn't  an  up  arrow. 

Bump  the  value  of  the  USING  string  pointer  in  reg- 
ister pair  HL 

Check  to  see  if  there  is  a  third  up  arrow  at  the 
location  of  the  USING  string  pointer  in  register  pair 
HL. 

Return  if  the  character  at  the  location  of  the  USING 
string  pointer  in  register  pair  HL  isn't  an  up  arrow. 

Bump  the  value  of  the  USING  string  pointer  in  reg- 
ister pair  HL. 

Check  to  see  if  the  character  at  the  location  of  the 
USING  string  pointer  in  register  pair  HL  is  a  fourth 
up  arrow. 

Return  if  the  character  at  the  location  of  the  USING 
string  pointer  in  register  pair  HL  isn't  an  up  arrow. 

Bump  the  value  of  the  USING  string  pointer  in  reg- 
ister pair  HL. 

Load  register  A  with  the  value  of  the  USING  string's 
length  in  register  B. 


2D8EH  -  2D8FH  Check  to  see  if  this  is  the  end  of  the  USING  string. 
2D90H 


2D91H 
2D92H 

2D93H 

2D9^H 
2D95H 

2D97H 

2D98H 


Return  if  there  isn't  at  least  four  characters  left  in  the 
USING  string. 

Clean  up  the  stack. 

Get  the  edit  flag  and  the  count  of  the  characters  to 
the  left  of  the  decimal  point  from  the  stack  and  put  it 
in  register  pair  DE. 

Load  register  B  with  the  USING  string's  length  in 
register  A. 

Set  the  exponential  notation  flag  in  register  D. 

Bump  the  value  of  the  USING  string  pointer  in  reg- 
ister pair  HL. 

Load  register  pair  HL  with  the  value  of  the  USING 
string  pointer  in  register  pair  DE. 

Get  the  edit  flag  and  the  count  of  the  characters  to 
the  left  of  the  decimal  point  from  the  stack  and  put  it 
in  register  pair  DE. 
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2D99H  Load  register  A  with  the  value  of  the  edit  flag  in 

register  D. 

2D9AH  Decrement  the  value  of  the  USING  string  pointer  in 

register  pair  HL. 

2D9BH  Bump  the  number  of  characters  to  the  left  of  the 

decimal  point  in  register  E. 

2D9CH  -  2D9DH    Check  to  see  if  the  sign  flag  is  set  in  register  A. 

2D9EK  -  2D9FH   Jump  if  the  sign  flag  has  already  been  processed. 

2DA0H  Decrement  the  number  of  characters  to  the  left  of 

the  decimal  point  in  register  E. 

2DA1H  Load  register  A  with  the  USING  string's  length  in 

register  B. 

2DA2H  Check  to  see  if  this  is  the  end  of  the  string. 

2DA3H  -  2DA^H  Jump  if  this  is  the  end  of  the  string. 

2DA5H  Load  register  A  with  the  character  at  the  location  of 

the  USENG  string  pointer  in  register  pair  HL. 

2DA6H  -  2DA7H    Check  to  see  if  the  character  in  register  A  is  a  -. 
2DA8H  -  2DA9H  Jump  if  the  character  in  register  A  is  a  -. 
2DAAH  -  2DABH  Check  to  see  if  the  character  in  register  A  is  a  +. 
2DACH  -  2DADH  Jump  if  the  character  in  register  A  isn*t  a  -f . 
2DAEH  -  2DAFH   Set  the  edit  flag  for  a  +  character. 
2DB0H  -  2DB1H  Set  the  edit  flag  for  a  -  character. 

2DB2H  Combine  the  value  of  the  edit  flag  in  register  D  with 

the  value  of  the  edit  flag  in  register  A. 

2DB3H  Load  register  D  with  the  value  of  the  edit  flag  in 

register  A. 

2DB^H  Decrement  the  value  of  the  USING  string's  length  in 

register  B. 

2DB  5H  Get  the  value  of  the  current  BASIC  program  pointer 

from  the  stack  and  put  it  in  register  pair  HL. 

2DB6H  Load  register  A  with  the  character  at  the  location  of 

the  current  BASIC  program  pointer  in  register  pair 
HL. 

2DB7H  -  2DB8H  Jump  if  this  is  the  end  of  the  BASIC  statement. 

2DB9H  Save  the  count  of  the  characters  to  the  right  of  the 
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decimal  point  and  the  USING  string's  length  in  reg- 
ister pair  BC  on  the  stack. 

2DB  AH  Save  the  edit  flag  and  the  number  of  characters  to  the 

left  of  die  decimal  point  in  register  pair  DE  on  the 
stack. 

2DBBH  "  2DBDH  Go  evaluate  the  expression  at  the  location  of  the 
current  BASIC  program  pointer  and  return  with  the 
result  in  REGl. 

2DBEH  Get  the  edit  flag  and  the  number  of  characters  to  the 

left  of  die  decimal  point  from  die  stack  and  put  it  in 
register  pair  DE. 

2DBFH  Get  the  number  of  characters  to  the  right  of  the 

decimal  point  and  the  USING  string's  length  from 
the  stack  and  put  it  in  register  pair  BC. 

2DC0H  Save  the  number  of  characters  to  the  right  of  die 

decimal  point  and  the  USING  string's  length  in  reg- 
ister pair  BC  on  the  stack. 

2DC1H  Save  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL  on  die  stack. 

2DC2H  Load  register  B  with  the  number  of  characters  to  die 

left  of  the  decimal  point  in  register  E. 

2DC3H  Load  register  A  vdth  die  number  of  characters  to  the 

left  of  the  decimal  point  in  register  B. 

2DC^H  Add  die  number  of  characters  to  the  right  of  the 

decimal  point  in  register  C  to  die  number  of  charac- 
ters to  die  left  of  the  decimal  point  in  register  A. 

2DC5H  -  2DC6H  Check  to  see  if  die  total  number  of  characters  in 
register  A  is  greater  than  24 

2DC7H  -  2DC9H  Go  to  the  Level  II  BASIC  error  routine  and  display  a 
FC  ERROR  message  if  the  total  number  of  charac- 
ters in  register  A  is  greater  than  24. 

2DCAH  Load  register  A  with  the  value  of  die  edit  flag  in 

register  D. 

2DCBH  -  2DCCH  Set  the  edit  flag  in  register  A. 

2DCDH  -  2DCFH   Go  convert  die  result  in  REGl  to  an  ASCII  string. 

2DD0H  -  2DD2H   Go  display  die  ASCII  string. 

2DD3H  Get  die  value  of  the  current  BASIC  program  pointer 

from  the  stack  and  put  it  in  register  pair  HL. 

2DD^H  Decrement  die  value  of  die  current  BASIC  program 

pointer  in  register  pair  HL. 
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2DD5H 

2DD6H 

2DD7H  -  2DD8H 


Go  bump  the  value  of  the  current  BASIC  program 
pointer  m  register  pair  HL  till  it  points  to  the  next 
character. 

Set  the  Carry  flag. 

Junp  if  the  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  A  is  an  end  of  the 
BASIC  statement  character. 


2DD9H  -  2DDBH  Save  the  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  A. 

2DDCH  -  2DDDH  Check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is  a 
semicolon. 

2DDFH  Jump  if  the  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  A  is  a  semicolon. 

Check  to  see  if  the  character  at  the  location  of  the 
current  BASIC  program  pointer  in  register  A  is  a 
comma. 


2DDEH 

2DE0H  -  2DE1H 


2DE2H  -  2DE^H  Go  to  the  Level  II  BASIC  error  routine  and  display 
an  SN  ERROR  message  if  the  character  at  the  loca- 
tion of  the  current  BASIC  program  pointer  in  regis- 
ter A  isn't  a  comma. 


2DE5H 

2DE6H 

2DE7H 

2DE8H 

2DE9H 

2DEAH 
2DEBH 

2DECH 
2DEDH 


Bump  the  value  of  the  current  BASIC  program 
pointer  in  register  pair  HL  till  it  points  to  the  next 
character. 

Get  the  USING  string's  length  from  the  stack  and  put 
it  in  register  B. 

Load  register  pair  DE  with  the  value  of  the  current 
BASIC  program  pointer  in  register  pair  HL. 

Get  the  USING  string's  VARPTR  from  the  stack  and 
put  it  in  register  pair  HL. 

Save  the  USING  string's  VARPTR  in  register  pair 
HL  on  the  stack. 

Save  the  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  A  on  the  stack. 

Save  the  value  of  the  current  BASIC  program 
pointer  in  register  pair  DE  on  the  stack. 

Load  register  A  with  the  USING  string's  length  at 
the  location  of  the  USING  string's  VARPTR  in 
register  pair  HL 

Compare  the  USING  string's  length  in  register  B 
with  the  USING  string's  length  in  register  A. 
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2DEEH 
2DEFH 

2DF0H 
2DF1H 

2DF2H 


2E0CH 

2E0DH 
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Bump  the  value  of  the  USING  string^s  VARPTR  in 
register  pair  HL. 

Load  register  C  with  the  LSB  of  the  USING  string's 
address  at  the  location  of  the  USING  string's 
VARPTR  in  register  pair  HL. 

Bump  the  value  of  the  USING  string's  VARPTR  in 
register  pair  HL. 

Load  register  H  with  die  MSB  of  the  USING  string's 
address  at  the  location  of  the  USING  string's 
VARPTR  in  register  pair  HL. 

Load  register  L  with  the  LSB  of  the  USING  string's 
address  in  register  C. 

Zero  register  D. 

Load  register  E  with  the  USING  string's  offset  in 
register  A. 

Add  the  USING  string's  offset  in  register  pair  DE  to 
the  USING  string's  address  in  register  pair  HL. 

Load  register  A  with  the  USING  string's  length  in 
register  B. 

Check  to  see  if  this  is  the  end  of  the  USING  string. 

Jump  if  this  isn't  the  end  of  the  USING  string. 

Jump  if  this  is  the  end  of  the  USING  string. 

Go  print  a  +  if  necessary. 

Go  send  the  character  in  register  A  to  the  current 
output  device. 

Get  the  value  of  the  current  BASIC  program  pointer 
from  the  stack  and  put  it  in  register  pair  HL. 

Get  the  character  at  the  location  of  the  current 
BASIC  program  pointer  from  the  stack  and  put  it  in 
register  A. 

Jump  if  this  isn't  the  end  of  the  BASIC  statement. 

Go  send  a  carriage  return  to  the  current  output 
device  if  necessary. 

Exchange  the  value  of  the  current  BASIC  program 
pointer  in  register  pair  HL  with  the  value  of  the 
USING  string's  VARPTR  on  the  stack. 

«.  2E0FH   Go  get  the  USING  string's  address  in  register  pair 
DE. 


2DF3H  - 

2DFifH 

2DF5H 

2DF6H 

2DF7H 

2DF8H 

2DF9H  - 

2DFBH 

2DFGH  - 

2DFDH 

2DFEH  - 

2E00H 

2E01H  - 

2E03H 

2E0'lt-H 

2E05H 

2E06H  - 

2E08H 

2E09H  - 

2E0BH 

2E1  OH  Get  the  value  of  the  current  BASIC  program  pointer 

from  the  stack  and  put  it  in  register  pair  HL. 

2E11H  -  2E13H  Return. 

2E1^H  -  2E15H  Load  register  C  with  the  number  of  characters  to  be 
printed. 

2E17H  Clean  up  the  stack. 

2E18H  Decrement  the  value  of  the  string's  length  in  regis- 

ter B. 

2E19H  -  2E1BH   Go  print  a  +  if  necessary. 

^El  OH  Get  the  value  of  the  current  BASIC  program  pointer 

from  the  stack  and  put  it  in  register  pair  HL. 

2E1DH  Get  the  character  at  the  location  of  the  current 

BASIC  program  pointer  from  the  stack  and  put  it  in 
register  A. 

2E1EH  -  2E1FH  Jump  if  the  character  at  the  location  of  the  current 
BASIC  program  pointer  in  register  A  is  an  end  of  the 
BASIC  statement  character. 

2E20H  Save  the  USING  string's  length  and  the  number  of 

characters  to  be  printed  in  register  pair  BC  on  the 
stack. 

2E21H  -  2E23H  Go  evaluate  the  expression  at  the  location  of  the 
current  BASIC  program  pointer  in  register  pair  HL 
and  return  with  the  result  in  REGl, 

2E2^H  -  2E26H   Go  make  sure  the  current  result  in  REGl  is  a  string. 

2E27H  Get  the  USING  string's  length  and  the  number  of 

characters  to  be  printed  from  the  stack  and  put  it  in 
register  pair  BC. 

2E28H  Save  the  USING  string's  length  and  the  number  of 

characters  to  be  printed  in  register  pair  BC  on  the 
stack. 

2E29H  Save  the  value  of  the  current  BASIC  program 

pointer  in  register  pair  HL  on  the  stack. 

2E2AH  -  2E2CH  Load  register  pair  HL  with  the  string's  VARPTR  in 
REGL 

2E2DH  Load  register  B  with  the  number  of  characters  to  be 

printed  in  register  C. 

2E2EH  -  2E2FH   Zero  register  C. 

2E3  OH  Save  the  length  of  the  string  to  be  printed  in  register 

B  on  the  stack, 
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2E31H  -  2E33K  Go  evaluate  the  string  to  be  printed. 

2E3^H  -  2E36H  Go  send  the  string  to  the  current  output  device. 

2S37H  -  2E39H   Load  register  pair  HL  with  the  string's  VARPTR  in 
REGl. 

2E3AH  Get  the  length  of  the  string  to  be  printed  from  the 

stack  and  put  it  in  register  A. 

2E3BH  Subtract  the  string's  length  at  the  location  of  the 

string's  VARPTR  in  register  pair  HL  from  the  length 
of  the  string  to  be  printed  in  register  A. 

2E3CH  Load  register  B  with  the  number  of  spaces  to  be 

printed  in  register  A. 

2E3DH  -  2E3EH  Load  register  A  with  a  space. 

2E3FH  Bump  the  number  of  spaces  in  register  B. 

2E40H  Decrement  the  number  of  spaces  in  register  B. 

2E41H  «  2E43H  Jump  if  all  of  the  spaces  have  been  printed. 

2E4^H  "  2E^6H   Go  send  a  space  to  the  current  output  device. 

2E47H  -  2E^8H  Jump. 

2E^9H  Save  the  value  in  register  A  on  the  stack. 

2E^AH  Load  register  A  with  the  value  in  register  D. 

2E^BH  Check  to  see  if  register  A  is  equal  to  zero. 

2E4-CH  -   2E^DH  Load  register  A  with  a +. 

2E^EH  -  2E50H  Go  send  a  -f  to  the  current  output  device  if  register 
D  is  equal  to  zero. 

2E51H  Get  the  value  from  the  stack  and  put  it  in  register  A. 

2E52H  Return. 

2E53H  --  2FFAH    LEVEL  II  BASIC  EDIT  ROUTINE 

2E53H  -  2E55H  Reset  the  error  flag. 

2E56H  "  2E58H    Load  register  pair  HL  with  the  error  line  number. 

2E59H  Load  register  A  with  the  MSB  of  the  error  line 

number  in  register  H. 

2E5AH  Combine  the  LSB  of  the  error  line  number  in  regis- 

ter L  with  the  MSB  of  the  error  line  number  in 
register  A. 
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2E5BH  Bump  the  combined  value  of  the  error  Une  number  in 

register  A. 

2E5CH  Load  register  pair  DE  with  the  error  line  number  in 

register  pair  HL. 

2E5DH  Return  if  Level  II  BASIC  is  in  the  command  mode. 

2E5EH  -  2E5FH    Jump. 

2E60H  -  2E62H  Go  evaluate  the  line  number  at  the  location  of  ±e 
current  BASIC  program  pointer  in  register  pair  HL 
and  return  with  it  in  register  pair  DE. 

2E63H  Return  if  there  wasn't  a  line  number, 

2E6^H  Clean  up  the  stack. 

2E65H  Load  register  pair  HL  with  the  line  number  to  be 

edited  in  register  pair  DE. 

2E66H  -  2E68H  Save  the  value  of  the  line  number  to  be  edited  in 
register  pair  HL. 

2E69H  Load  register  pair  DE  with  the  line  number  to  be 

edited  in  register  pair  HL. 

2E6AH  -  2E6CH  Go  find  the  address  of  the  BASIC  line  number  in 
register  pair  DE  and  return  with  it  in  register  pair 
BC. 

2E6DH  -  2E6FH  Go  to  the  Level  II  BASIC  error  routine  and  display 
an  UL  ERROR  message  if  the  BASIC  line  number 
doesn't  exist. 

2E70H  Load  register  H  with  the  MSB  of  the  memory 

pointer  in  register  B. 

2E71H  Load  register  L  with  the  LSB  of  the  memory  pointer 

in  register  C. 

2E72H  Bump  the  value  of  the  memory  pointer  in  register 

pair  HL. 

2E73H  Bump  the  value  of  the  memory  pointer  in  register 

pair  HL. 

2E7^H  Load  register  C  with  the  LSB  of  the  BASIC  line 

number  at  the  location  of  the  memory  pointer  in 
register  pair  HL. 

2E75H  Bump  the  value  of  the  memory  pointer  in  register 

pair  HL. 

2E76H  Load  register  B  with  the  MSB  of  the  BASIC  line 

number  at  the  location  of  the  memory  pointer  in 
register  pair  HL. 

515 


2E77H  Bump  the  value  of  the  memory  pointer  in  register 

pair  HL. 

2E78H  Save  the  value  of  the  BASIC  line  number  in  register 

pair  BC  on  the  stack. 

2E79H  -  2E7BH  Go  move  the  BASIC  line  into  the  input  buffer  and 
expand  it. 

2E7CH  Get  the  value  of  the  BASIC  line  number  from  the 

stack  and  put  it  in  register  pair  HL. 

2E7DH  Save  the  value  of  the  BASIC  line  number  in  register 

pair  HL  on  the  stack. 

2E7EH  -  2E80H  Go  convert  the  BASIC  line  number  in  register  pair 
HL  to  an  ASCII  string  and  display  it  on  the  video 
display. 

2E81H  -  2E82H    Load  register  A  with  a  space. 

2E83H  -  2E85H  Go  display  the  space  in  register  A. 

2E86H  -  2S88H  Load  register  pair  HL  with  the  starting  address  of 
the  input  buffer. 

2E89H  "  2E8AH  Load  register  A  with  the  turn  on  the  cursor  charac- 
ter. 

2S8BH  -  2E8DH    Go  turn  on  the  cursor. 

2E8EH  Save  the  value  of  the  input  buffer  pointer  in  register 

pair  HL  on  the  stack. 

2E8FH  -  2E90H  Load  register  C  with  the  number  of  characters  ex- 
amined so  far. 

2E91H  Bump  the  number  of  characters  examined  so  far  in 

register  C. 

2E92H  Load  register  A  with  the  character  at  the  location  of 

the  input  buffer  pointer  in  register  pair  HL. 

2E93H  Check  to  see  if  the  character  in  register  A  is  an  end  of 

the  BASIC  line  character. 

2E9^H  Bump  the  value  of  the  input  buffer  pointer  in  register 

pair  HL. 

2E95H  -  2E96H   Loop  till  the  end  of  the  BASIC  line  has  been  found 

2E97H  Get  the  value  of  the  input  buffer  pointer  from  the 

stack  and  put  it  in  register  pair  HL. 

2E98H  Zero  register  B. 

2E99H  -  2E9AH   Zero  register  D. 
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2E9BH  -  2E9DH  Go  scan  the  keyboard. 

2D9EH  "  2E9FH  Adjust  the  value  in  register  A  for  a  numeric  charac- 
ter. 

2EA0H  -  2EA1H  Jump  if  the  character  in  register  A  is  alphabetic. 

2EA2H  -  2EA3H  Check  to  see  if  the  character  is  register  A  is  nu- 
meric. 

2EA^H  "*  2EA5H  Jump  if  the  character  in  register  A  isn't  numeric. 

2EA6H  Load  register  E  with  the  binary  value  of  the  charac- 

ter in  register  A. 

2EA7H  Load  register  A  with  the  value  in  register  D. 

22A8H  Multiply  the  value  in  register  A  by  two. 

2EA9H  Multiply  the  value  in  register  A  by  two. 

2EAAH  Add  the  value  in  register  D  to  the  value  in  register  A. 

2EABH  Multiply  the  value  in  register  A  by  two. 

2EACH  Add  the  value  in  register  E  to  the  value  in  register  A. 

2EADH  Load  register  D  with  the  value  in  register  A. 

2EAEH  -  2EAFH    Loop  till  a  nonnumeric  character  is  pressed. 

2EB0H  Save  the  value  of  the  input  buffer  pointer  in  register 

pair  HL  on  the  stack. 

2EB1H  -  2EB3H    Load  register  pair  HL  with  the  return  address. 

2EB^H  Exchange  the  value  of  the  return  address  in  register 

pair  HL  with  the  value  of  the  input  buffer  pointer  on 
the  stack. 

2EB5H  Decrement  the  numeric  value  in  register  D, 

2EB6H  Bump  the  numeric  value  in  register  D. 

2EB7H  -  2EB9H   Jump  if  the  numeric  value  in  register  D  isn't  equal  to 
zero. 

2EBAH  Load  register  D  with  a  one. 

2EBBH  -  2EBCH    Check  to  see  if  the  character  in  register  A  is  a 
backspace  character. 

2EBDH  -  2EBFH   Jump  if  the  character  in  register  A  is  a  backspace 
character. 

2EC0H  -  2EC1H    Check  to  see  if  the  character  in  register  A  is  a 
carriage  return. 
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2EC2H  -  2EC^H  Jump  if  the  character  in  register  A  is  a  carriage 
return. 

2EC5H  -  2EC6K  Check  to  see  if  the  character  in  register  a  is  a  space. 

2EC7H  -  2EC8H  Jump  if  the  character  in  register  A  is  a  space. 

2EC9H  -  2ECAH  Check  to  see  if  the  character  in  register  A  is  lower- 
case. 

2ECBH  "  2ECCH  Jump  if  the  character  in  register  A  isn't  lowercase. 

2EGDH  -  2ECEH  Convert  the  lowercase  character  in  register  A  to 
uppercase. 

2ECFH  -  2ED0H  Check  to  see  if  the  character  in  register  A  is  a  Q. 

2ED1H  -  2ED3H  Jump  if  the  character  in  register  A  is  a  Q. 

2ED^H  "  2ED5H  Check  to  see  if  the  character  in  register  A  is  an  L. 

2ED6H  -  2ED7H  Jump  if  the  character  in  register  A  is  an  L. 

2ED9H  -  2EDAH  Check  to  see  if  the  character  in  register  A  is  an  S. 

2EDBH  -  2EDCH  Jump  if  the  character  in  register  A  is  an  S. 

2EDDH  -   2EDEH  Check  to  see  if  the  character  in  register  A  is  an  I. 

2EDFH  -  2EE1H  Jump  if  the  character  in  register  A  is  an  L 

2EE2H  -  2EE3H  Check  to  see  if  the  character  in  register  A  is  a  D. 

2EE4H  -  2EE6H  Jump  if  the  character  in  register  A  is  a  D. 

2EE7H  -  2EE8H  Check  to  see  if  the  character  in  register  A  is  a  C. 

2EE9H  -  2EEBH  Jump  if  the  character  in  register  A  is  a  C. 

2EECH  -  2ESDH  Check  to  see  if  the  character  in  register  A  is  an  E. 

2EEEH  -  2EF0H  Jump  if  the  character  in  register  A  is  an  E. 

2EF1H  «  2EF2H  Check  to  see  if  the  character  in  register  A  is  an  X. 

2EF3H  -  2EF5H  Jump  if  the  character  in  register  A  is  an  X. 

2EF6H  -  2EF7H  Check  to  see  if  the  character  in  register  A  is  a  K. 

2EF8H  -  2EF9H  Jump  if  the  character  in  register  A  is  a  K. 

2EFAH  -  2EFBH  Check  to  see  if  the  character  in  register  A  is  an  H. 

2EFCH  -  2EFEH  Jump  if  the  character  in  register  A  is  an  H. 

2EFFH  -  2F00H    Check  to  see  if  the  character  in  register  A  is  an  A. 
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2F01H  Return  if  the  character  in  register  A  isn't  an  A. 

2F02H  Clean  up  the  stack. 

2F03H  Get  the  BASIC  Une  number  from  the  stack  and  put  it 

in  register  pair  DE. 

2F04H  "  2F06H    Go  print  a  carriage  return  on  the  video  display  if 
necessary. 

2F07H  -  2F09H   Jump. 

2  FOAH  Load  register  A  with  the  character  at  the  location  of 

the  input  buffer  pointer  in  register  pair  HL. 

2F0BH  Check  to  see  if  the  character  in  register  A  is  an  end  of 

the  BASIC  line  character. 

2F0CH  Return  if  the  character  in  register  A  is  an  end  of  the 

BASIC  line  character. 

2F0DH  Bump  the  character  position  in  register  B. 

2F0EH  -  2F10H    Go  display  the  character  in  register  A. 

2F11H  Bump  the  value  of  the  input  buffer  pointer  in  register 

pair  HL. 

2F12H  Decrement  the  number  of  times  to  perform  the  op- 

eration in  register  D. 

2F13H  -  2F1^H    Loop  until  done. 

2F15H  Return. 

2  F16H  Save  the  value  of  the  input  buffer  pointer  in  register 

pair  HL  on  the  stack. 

2F17H  "   2P19H     Load  register  pair  HL  with  the  return  address. 

2F1AH  Exchange  the  value  of  the  return  address  in  register 

pair  HL  with  the  value  of  the  input  buffer  pointer  on 
the  stack. 

2F1BH  Set  the  KILL/SEARCH  flag  for  KILL. 

2F1CH  Save  the  KILL/SEARCH  flag  on  the  stack. 

2F1DH  "   2F1FH    Go  scan  the  keyboard  for  the  character  to  locate. 

2F20H  Load  register  E  with  the  character  to  locate  in  reg- 

ister A. 

2F21H  Get  the  KILL/SEARCH  flag  from  the  stack. 

2F22H  Save  the  KILL/SEARCH  flag  on  the  stack. 
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2F23H  •"  2F25H  If  KILL  then  go  print  a  !. 

ZTZSK  Load  register  A  with  the  character  at  the  location  of 

the  input  buffer  pointer  in  register  pair  HL. 

2F2  7H  Check  to  see  if  the  character  in  register  A  is  an  end  of 

the  BASIC  Une  character. 

2F28H  -  2F2AH  Jump  if  the  character  in  register  A  is  an  end  of  the 
BASIC  line  character. 

2F2BH  -  2P2DH   Go  display  the  character  in  register  A. 

2F2EH  Get  the  KILL/SEARCH  flag  from  the  stack. 

2F2FH  Save  the  KILL/SEARCH  flag  on  the  stack. 

2F30H  -  2F32H   Go  delete  the  character  from  the  input  buffer  if 
KILL. 

2F33H  -  2F3^H  Jump  if  KILL. 

2F3  5H  Bump  the  value  of  the  current  input  buffer  pointer  in 

register  pair  HL. 

2F36h  Bump  the  value  of  the  character  position  counter  in 

register  B. 

2F37H  Load  register  A  v;rith  the  character  at  the  location  of 

the  current  input  buffer  pointer  in  register  pair  HL. 

2F38H  Check  to  see  if  the  character  in  register  A  is  the 

same  as  the  character  to  be  located  in  register  E. 

2F39H  -  2F3AH  Loop  till  the  character  to  be  located  is  found. 

2F3BH  Decrement  the  number  of  times  to  perform  the  op- 

eration in  register  D. 

2F3CH  -  2F3DH  Loop  until  done. 

2F3EH  Get  the  KILL/SEARCH  flag  from  the  stack. 

2F3FH  Return. 

2F^0H  -  2F^2H  Go  display  the  line  being  edited. 

2F^3H  -  2F45H  Go  display  a  carriage  return  if  necessary. 

2F^6H  Get  the  BASIC  line  number  from  the  stack  and  put  it 

in  register  pair  BC. 

2F47H  -  2F^9H  Jump. 

2F^AH  Load  register  A  with  the  character  at  the  location  of 

the  input  buffer  pointer  in  register  pair  HL. 
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2F4BH  Check  to  see  if  the  character  in  register  A  is  an  end  of 

the  BASIC  line  character. 

2F5CH  Return  if  the  character  in  register  A  is  an  end  of  the 

BASIC  Hne  character. 

2F4DH   -  2F^EH    Load  register  A  with  an  I. 
2F4PH  -  2F51H    Go  display  the  !  in  register  A. 

2F52H  Load  register  A  with  the  character  at  the  location  of 

the  input  buffer  pointer  in  register  pair  HL. 

2^53H  Check  to  see  if  the  character  in  register  A  is  an  end  of 

the  BASIC  line  character. 

2F5^H  -   2F55H   Jump  if  the  character  in  register  A  is  an  end  of  the 
BASIC  Une  character. 

2F56H  -  2F58H    Go  display  the  character  in  register  A. 

2F59H  -  2F5BH    Go  delete  the  character  from  the  input  buffer. 

2F5CH  Decrement  the  number  of  times  to  perform  the  op- 

eration in  register  D. 

2F5DH  -  2F5EH  Loop  until  done. 

2F5FH  -  2F60H  Load  register  A  with  an!. 

2F61H  -  2F63H  Go  display  the  !  in  register  A. 

2F64H  Return. 

2F65H  Load  register  A  with  the  character  at  the  location  of 

the  input  buffer  pointer  in  register  pair  HL. 

2F66H  Check  to  see  if  the  character  in  register  A  is  an  end  of 

the  BASIC  line  character. 

2  F6  7H  Return  if  the  character  in  register  A  is  an  end  of  the 

BASIC  line  character. 

2F68H  -  2F6AH    Go  get  the  character  to  put  in  the  input  buffer  from 
the  keyboard. 

2  F6BH  Save  the  character  in  register  A  at  the  location  of  the 

input  buffer  pointer  in  register  pair  HL. 

2F6CH  -  2F6EK    Go  display  the  character  in  register  A. 

2F6  FH  Bump  the  value  of  the  input  buffer  pointer  in  register 

pair  HL. 

2F70H  Bump  the  character  position  in  register  B. 
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2P7XP{  Decrement  the  number  of  times  to  perform  the  op- 

eration in  register  D. 

2F72H  -  2F73H   Loop  until  done. 

2F74H  Return. 

2F75H  -  2F76H    Zero  the  location  of  the  input  buffer  pointer  in  reg- 
ister pair  HL. 

2F77H  Load  register  C  with  the  character  position  in  reg- 

ister B. 

2F78H  -  2F79H    Load  register  D  with  the  number  of  times  to  perform 
the  operation. 

2F7AH  -  2F7CH    Go  display  the  register  BASIC  Une  if  necessary. 

2F7DH  -  2F7FH   Go  get  the  character  to  be  inserted  from  the  key- 
board. 

2F80H  Check  to  see  if  a  key  was  pressed. 

2F81H  -  2F83h    Loop  until  a  key  is  pressed. 

2F8^H  -»  2F85H    Check  to  see  if  the  character  in  register  A  is  a 
backspace  character. 

2F86H  -»  2F87H    Jump  if  the  character  in  register  A  is  a  backspace 

character. 

2F88H  -  2F89H    Check  to  see  if  the  character  in  register  A  is  a 
carriage  return. 

2F8AH  -  2F8CH  Jump  if  the  character  in  register  A  is  a  carriage 
return. 

2F8DH  -  2F8EH    Check  to  see  if  the  character  in  register  A  is  a  shift 
up  arrow. 

2F8FH  Return  if  the  character  in  register  A  is  shift  up 

arrow, 

2P90H  -  2F91H   Jump. 

2F92H  -  2F93H    Load  register  A  with  a  backspace  die  cursor  charac- 
ter. 

2F9^H  Decrement  the  character  position  in  register  B. 

2F95H  Bump  the  character  position  in  register  B. 

2F96H  «  2F97H   Jump  if  this  is  the  first  character  of  the  BASIC  Une. 

2F98H  ~  2F9AH    Go  backspace  the  cursor  on  the  video  display. 
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2.P9BH  Descrement  the  value  of  the  input  buffer  pointer  in 

register  pair  HL. 

2F9CH  Decrement  the  character  position  in  register  B. 

2F9DH  -  2F9FH  Load  register  pair  DE  with  the  return  address, 

2FA0H  Save  the  value  of  the  return  address  in  register  pair 

DE  on  the  stack. 

2FA1H  Save  the  value  of  the  input  buffer  pointer  in  register 

pair  HL  on  the  stack. 

2FA2H  Decrement  the  character  position  in  register  C. 

2  FA3H  Load  register  A  with  the  character  at  the  location  of 

the  input  buffer  pointer  in  register  pair  HL. 

2FA^H  Check  to  see  if  the  character  in  register  A  is  an  end  of 

the  BASIC  line  character. 

2PA5H  Set  the  Carry  flag. 

2FA6H  -  2FA8H  Jump  if  the  character  in  register  a  is  an  end  of  the 
BASIC  line  character. 

2FA9H  Bump  the  value  of  the  input  buffer  pointer  in  register 

pair  HL. 

2  FA  AH  Load  register  A  with  the  character  at  the  location  of 

the  input  buffer  pointer  in  register  pair  HL. 

2FABH  Decrement  the  value  of  the  input  buffer  pointer  in 

register  pair  HL. 


2FACH 
2FADH 


Save  the  character  in  register  A  at  the  location  of  the 
current  input  buffer  pointer  in  register  pair  HL. 

Bump  the  value  of  the  input  buffer  pointer  in  register 
pair  HL. 


2FAEH  -   2FAFH   Loop  until  the  line  has  been  moved  down. 
2FB0H 


2FB1H 


Save  die  character  to  be  inserted  in  register  A  on  die 
stack. 

Load  register  A  with  the  number  of  characters  in  the 
input  buffer  in  register  C. 


2FB2H  -  2FB3H  Check  for  the  maximum  BASIC  line  length. 

2FB4H  -  2FB 5H  Jump  if  the  maximum  BASIC  line  length  hasn^t  been 
reached. 
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2FB6H 

2FB7H  - 
2FB9H 

2FBAH 

2FBBH 
2FBCH 

2FBDH 
2FBEH 


Get  the  character  to  be  inserted  from  the  stack  and 
put  it  in  register  A. 


2FB8H  Jump. 


Subtract  the  character  position  in  register  B  from 
the  number  of  characters  in  the  input  buffer  in  reg- 
ister A. 

Bump  the  number  of  characters  in  the  input  buffer  in 
register  C. 

Bump  the  character  position  in  register  B. 

Save  the  character  position  and  the  number  of 
characters  in  the  input  buffer  in  register  pair  BC  on 
the  stack. 

Load  register  pair  DE  with  the  input  buffer  pointer  in 
register  pair  HL. 

Load  register  L  with  the  character  count  in  register 
A, 


2FBFH  -  2PC0H  Zero  register  H. 

2FC1H  Add  the  value  of  the  input  buffer  pointer  in  register 

pair  DE  to  the  character  count  in  register  pair  HL. 

2FC2H  Load  register  B  with  the  MSB  of  the  end  of  the 

BASIC  line  pointer  in  register  H. 

2FC3H  Load  register  C  with  the  LSB  of  the  end  of  the 

BASIC  line  pointer  in  register  L. 

2  FC^H  Bump  the  value  of  the  end  of  the  BASIC  Une  pointer 

in  register  pair  HL. 

2FC5H  -  2FC7H  Go  move  the  BASIC  line  up  one  character. 

2FC8H  Get  the  character  position  and  the  number  of  char- 

acters in  the  input  buffer  from  the  stack  and  put  it  m 
register  pair  BC. 

2PC9H  Get  the  character  to  be  inserted  from  the  stack  and 

put  it  in  register  A. 

2FCAH  Save  the  character  in  register  A  at  the  location  of  the 

current  input  buffer  pointer  in  register  pair  HL. 

2FCBH  -  2FCDH  Go  display  the  character  in  register  A. 

2  FCEH  Bump  the  value  of  the  input  buffer  pointer  in  register 

pair  HL. 


2FCFH  -  2PD1H  Jump. 
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2PD2H 


2FD3H 

ZFDkK 

2FD5H 

2FD6H 

2FD7H  - 

2FD8H 

2FD9H  - 

2FDBH 

2FDCH 

2PDDH  - 

2FDEH 

2PDFH 

2FE0H  - 

2FE2H 

2FE3H  - 

2FE5H 

2FE6H 

2FE7K 

2FE8H 
2FE9H 

2FEAH 

2FEBH  -  2FEDH 

2FEEH 

2FEFH 
2FF0H 
2FF1H 


Load  register  A  with  the  number  of  times  to 
backspace  in  register  B. 

Check  to  see  if  this  is  the  start  of  the  BASIC  line. 

Return  if  this  is  the  start  of  the  BASIC  Une. 

Decrement  the  character  position  in  register  B. 

Decrement  the  value  of  the  input  buffer  pointer  in 
register  pair  HL. 

Load  register  A  with  a  backspace  the  cursor  charac- 
ter. 

Go  backspace  the  cursor  on  the  video  display. 

Decrement  the  number  of  times  to  perform  the  op- 
eration in  register  D. 

Loop  until  done. 

Return. 

Go  display  the  rest  of  the  BASIC  line. 

Go  display  a  carriage  return  if  necessary. 

Clean  up  the  stack. 

Get  the  BASIC  line  number  from  the  stack  and  put  it 
in  register  pair  DE. 

Load  register  A  with  the  MSB  of  the  BASIC  line 
number  in  register  D. 

Combine  the  LSB  of  the  BASIC  line  number  in  reg- 
ister E  with  the  MSB  of  the  BASIC  line  number  in 
register  A. 

Bump  the  combined  BASIC  line  number  in  register 
A. 

Load  register  pair  HL  with  the  starting  address  of 
the  input  buffer. 

Decrement  the  value  of  the  input  buffer  pointer  in 
register  pair  HL. 

Return  if  this  is  the  Level  II  BASIC  command  mode. 

Set  the  Carry  flag. 

Bump  the  value  of  the  input  buffer  pointer  in  register 
pair  HL. 
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2FP2H  Save  the  command  mode  flag  in  register  pair  AF  or 

the  stack. 

2FF3H  -   2FF5H  Jump  to  the  Level  II  BASIC  READY  routine. 
2FF6H  Clean  up  the  stack. 

2FF7H  Get  the  BASIC  line  number  from  the  stack  and  put  it 

in  register  pair  DE. 

2FF8H  -  2FFAH  Jump  to  the  Level  II  BASIC  READY  routine. 

2FFBH  "  2rFFH  THE  END  OF  THE  LEVEL  H  BASIC  ROMS 

2FFBH  -  2FFFH  Nothing  here. 

3000H  -  37DDH   THIS  SPACE  IS  RESERVED.  HOWEVER, 
jjuuun        ^(uun   ^^^  £XATRON  STRINGY  FLOPPY  ROMS 
RESIDE  HERE  AND  THERE  ARE  CUR- 
RENTLY A  FEW  ROM  ADD  ON  DEVICES 

WHICH  USE  THIS  AREA  OF  MEMORY. 

37DEH  «"  37ECH  MEMORY  MAPPED 

^  ^  INPUT/OUTPUT  LOCATIONS 

37DEH  DOS  communication  status  address. 

37DFH  DOS  communication  data  address. 

37E0H  Interrupt  latch  address. 

37E1H  Disk  drive  select  latch  address. 

37E^H  Cassette  drive  select  latch  address. 

37E8H  Line  printer  port  address. 

37ECH  Floppy  disk  controller  address. 

3800H  -»  3BFFH    KEYBOARD  MEMORY 

The  following  bits  will  be  set  for  each  key  that  is 
pressed: 

0      12      3      4      5      6      7 

3801H  ©ABCDEFG 

3802H  H      I      J      K     L     M     N     0 

380^H  FQRSTUVW 

3808H  X     Y     Z 

3810H  0      12      3      4      5      6      7 

3820H  8      9:;.-./ 

38/fOH  CR  CL  BR  UA  DA  LA  RA  SP 

3880H  SH 
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Where 

CR  =  CARRIAGE  UA  =  UP  ARROW  RA  =  RIGHT  ARROW 

RETURN 

CL  -  CLEAR  DA  =  DOWN  ARROW      SP  =  SPACE 

BR  =  BREAK  LA  =  LEFT  ARROW       SH  =  SHIFT 

3C00H  -  3FFFH  VIDEO  MEMORY 

^OOOH  -  401to  EST  VECTORS 

^OOOH  -  ^002H  RST  0008H 

4003H  -  400 5H  RST  OOIOH 

4006H  -  -4008H  RST  0018H 

4009H  -  400BH  RST  0020H 

400CH  -  400EH  RST  0028H 

400FH  -  4011H  RST  0030H 

kOlZK  -  4014H  RST  0038H 

4015H  •  401CH  KEYBOARD  DEVICE  CONTROL  BLOCK 

4015H  Device  type. 

4016H  -  4017H  Driver  address. 

401BH  «  401CH  RAM  buffer  address. 

401DH  -  4024H  VIDEO  DEVICE  CONTROL  BLOCK 

4Q1DH  Device  type. 

401EH  -  401FH  Driver  address. 

4020H  -  4021H  Cursor  location. 

4022H  Cursor  on/off  flag. 

4023H  -  4024H  RAM  buffer  address. 

4025H  «  402CH  PRINTER  DEVICE  CONTROL  BLOCK 

4025H  Device  type. 

4026H  -  4027H  Driver  address. 

4028H  Lines  per  page. 

402  9H  Lines  printed  so  far. 

402BH  -  402CH  RAM  buffer  address. 

402DH  -  4035H  LEVEL  II  SYSTEM  VARIABLES 

402DH  -  4035H  Used  by  DOS. 

4036H  -  403CH  Keyboard  work  area. 

403DH  •  4040H  Used  by  DOS. 
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^04lH  Seconds  -  Real  Time  Clock. 

if  042H  Minutes  -  Real  Time  Clock. 

^0^3H  Hours  -  Real  Time  Clock. 

^04^H  Year  -  Real  Time  Clock. 

^045H  Day  -  Real  Time  Clock. 

kOk6E  Month  -  Real  Time  Clock. 

kQk7H  -•  ^07FH  Used  by  DOS. 

^080H  -  J^08DH    Division  support  routine. 

il-OSEH  -  ^08FH  Starting  address  for  USR  call. 

^093H  -  ^095H  INP  routine. 

k096K  -  J^098H   OUT  routine. 

i*-099H  Last  key  pressed. 

409AH  RESUME  flag. 

^09BH  Printer  carriage  position. 

Z1-O9CH  Current  output  device  flag:  - 1  -  cassette,  0  -  video, 
&  1  -  printer. 

409DH  Size  of  line  on  the  video  display. 

409EH  Size  of  line  on  the  printer. 

J^-OAOH  -  J^OAIH    Start  of  string  space  pointer. 

J^0A2H  -  40A3H    Current  BASIC  line  number. 

40A^H  -  ^0A5H    Start  of  BASIC  program  pointer. 

kOkSK  Current  cursor  line  position. 

^'QA7K  "  ^0A8H    Input  Buffer  pointer. 

^0A9H  Cassette  input  flag. 

40AAH  -  40ADH    Random  number  seed. 

if  OAEH  LOCATE/CREATE  variable  flag. 

^OAFH  Current  number  type  flag. 

if  OB  OH  Temporary  storage  location. 

J^OBIH  -  ^0B2H    MEMORY  SIZE?  pointer. 
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^0B3H  «  ^OB^H  Next  available  location  in  the  temporary  string  work 
area  pointer. 

^0B5H  -  ^0I>2H  Temporary  string  work  area. 

40D3H  »  40D5H  Used  for  temporary  string  VARPTR's. 

^0D6H  -•  ^0D7H  Next  available  location  in  string  space  pointer. 

^0D8H  -  ^0D9H  Temporary  storage  location. 

^ODAH  *  ^ODBH  DATA  line  number. 

^ODCH  FOR  flag. 

^ODDH  INPUT  flag. 

^ODEH  READ  flag. 

^ODPH  -  /^OEOH   Used  by  DOS. 

^OEIH  AUTO  flag. 

kOEZK  -  ^0E3H  Current  BASIC  line  number. 

^OE^H  -  40E5H  AUTO  increment. 

^0E6H  -*  ^0E7H  Temporary  storage  location. 

^0E8H  -  ^0E9H  Stack  pointer  pointer. 

^OEAH  -  ^OEBH  Line  number  with  error. 

^OECH  -  ^OEDH  EDIT  line  number. 

40EEH  -  40EFH  Used  by  RESUME. 

^OPOH  -  ^OFIH  Used  by  ONERROR. 

^0F2H  Error  flag. 

40F3H  -  4'OF^H  Temporary  storage  location. 

40F5H  -  ^0F6H  Last  line  number  executed. 
^0F7H  -  40F8H  Last  byte  executed. 
40F9H  ™  ^OFAH  Simple  variables  pointer. 
^OFBH  -  ^OFCH  Array  variables  pointer. 
^OFDH  -  ^OFEH  Free  memory  pointer. 
^OFFH  -  ^lOOH  READ  pointer. 
^lOlH  -  411AH  Variable  Declaration  Table. 
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iHlBH 

TRON/TROFF  flag. 

/tllCH 

Used  by  floating  point  routines. 

ifllDH  - 

lUZkH 

REGl. 

klZ5E  - 

4126H 

Used  by  floating  point  routines. 

^127H  - 

ifl2EH 

REG2. 

4130H  - 

J^l49H 

Internal  print  buffer. 

^14AH  - 

4151H 

Used  by  floating  pointer  routines. 

iH52H  - 

41A3H 

Disk  Basic  links. 

^1A6H  - 

^1E4H 

DOS  links. 

^1E8H  - 

42E7H 

Input  Buffer  area. 

kZEQH 

Always  zero. 

ifaEgH 

Start  of  user  RAM. 
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Index 


Absolute  vaiue,  9 

Addition,  double  precision,  7 

Addition,  Integer,  3,  274 

Addition,  single  precision  5,  234 

Arc  tangent,  9 

Array  packing,  36 

ASCII  conversion  routines,  14 

ASCII  to  binary,  387 

ASC  routine,  481 

ATN  routine,  344 

AUTO  routine.  401 


BASIC  interpreter.  377 
BASIC  program  area,  51 
BASIC  program  area,  moving.  51 
Binary  to  ASCII,  304 


Calculator,  four  function,  16 
Cassette,  195,  200,  201,  202,  203, 

204 
Cassette  interfacing,  34 
Cassette  routines,  12 
CDBL  routine,  267 
Check  syntax,  62 
Check  syntax  routine,  489 
CHR$  routine,  481 
CINT  routine,  264 
CLEAR  routine,  389 
Clear  screen,  12 


CLOAD  routine.  498 

CLS  routine,  195 

Command  mode,  350 

Compare,  double  precision,  9,  262, 
264 

Compare,  integer,  4,  262 

Compare,  single  precision,  260,  261 

Constant  storage,  242,  243 

Constant  storage,  double  precision, 
291,  331,  332 

Constant  storage,  double  precision 
integer,  332 

Constant  storage,  single  precision, 
336,  343,  345 

Constant  storage,  single  precision  In- 
teger, 332 

CONT  routine,  383 

Conversion  routine,  463 

Conversion  routines,  ASCII,  14 

Conversions,  ASCII  to  binary,  295 

Conversions,  binary  to  ASCII,  304, 
305 

Convert  to  double  precision,  9 

Convert  to  integer,  10 

Convert  to  single  precision,  10 

Cosine,  10 

COS  routine,  342 

CSAVE  routine,  497 

CSNG  routine,  266 


Data  movement  routines,  1 3, 258, 349 
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DEFINT  entry  point  384 
DEFSNG  entry  point,  384 
DEFSTR,      DEFUNT,      DEFSNG, 

DEFDBL  common  code,  384 
DEFSTR  entry  pointer,  384 
Delay  routine,  190 
Delete  routine,  495 
Device  control  blocks,  73,  93 
Disk  BASIC  links,  43.  44,  60 
Disk  routine,  187,  188,  488 
Display  character,  12 
Display  memory,  119 
Display  message  routine,  304,  468, 

492 
Display  string,  1 2 
Division,  double  precision,  8,  291 
Division,  integer,  4 
Division,  single  precision,  6,  248 
Division  routine  storage.  347 
DOS  links,  43,  45.  55 
Double  precision  addition,  7 
Double  precision  compare  9, 262, 264 
Double  precision  division,  8,  291 
Double  precision  math  routine.  251, 

282,  285,  286,  287.  289.  291, 

293,  303 
Double  precision  multiplication,  8, 279 
Double  precision  routines,  7 
Double  precision  subtraction,  7 
Driver  entry  routine,  189,  212 
DSET  and  DRESET  program,  64 


Edit  memory,  120 

EDIT  routine,  514 

End  routine,  382 

Enhanced  USR  program,  47 

Epson  MX-80  printer,  106 

Error  message,  OV  251 

Error  messages,  spelled-out,  107 

Error  messages,  storage  location  for, 

347 
Error  routines,  60.  400 
Error  routines,  L3,  194 
Evaluate  expression,  62,  76,  423 
Evaluate  expression  routine,  489 
Evaluate  line  numbers  routine,  361 
Exchange  memory,  121 
Examine  variable,  386,  387 

F 

FC  error  routine,  63 
Find  data  routine,  41 8 
FIX,  10 

FOR  routine.  374 
FRE  routine,  461 


G 

GOSUB  routine,  390 
GOTO  routine,  391 
Graphics,  62,  63 
Graphics,  double  width,  62 
Graphics  codes,  31 
Graphics  reversal,  33 
Graphics  reversal  program,  32 
Graphics  routine,  195 
Graphics  subroutine,  30 

I 

Initialization  routine,  190,  232,  234 

Initialization  storage  location,  347 

InkeyS  routine,  195 

INP  routine,  488 

Input  and  read  routines,  410 

Input  routine,  189,  209,  463 

Input  routines,  keyboard,  1 1 

INT,  10 

Integer  addition,  3,  274 

integer  compare,  4,  262 

Integer  division,  4 

Integer  multiplication,  3,  275 

Integer  routines,  3 

Integer  subtraction,  3,  274 

Intercepting  errors,  60 

invert  sign,  10 


JKL  keys,  101 

JKL-to-printer  program,  101,  102 


Keyboard,  scan,  1 1 

Keyboard  device  control  blocks,  73, 

527 
Keyboard  driver,  89,  213 
Keyboard  Input  routines,  11,  366 
Keyboard  lookup  table,  189 
Keyboard  memory,  526 
Keyboard  routine,  188, 189,  209.  210 


LEFT$  routine.  483 
LEN  routine,  480 
LET  routine,  394 
Line  pointers  routine,  360 
Listing  3-1,  47 
LIST  routine,  490 
LUST  routine.  490 
Log  routine.  243 
LPRINT  routine,  404 
L3  error  routine,  194 
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M 

Machine  language  interfacing,  29,  34 
Machine  language  nnonitor,  119 
Math  routine,  255.  256,  259,  260. 266, 

267,  269,  270,  272,  273,  277. 

278,  294,  336 
Math  routine,  double  precision,  251, 

282,  285,  286,  287,  289.  291, 

293,  303 
Math  routine,  single  precision,  236, 

237.  239,  240.  241.  247.  252, 

253,  254,  256,  257.  258,  303 
Memory  check  routine,  349 
Memory  map,  disk  BASIC,  52 
Memory  map,  level  II,  52 
Memory  mapped  I/O  locations,  526 
MEM  routine,  461 
Message  storage,  1 94 
Message  storage  location,  347,  410, 

418,501 
MID$  routine,  485 
Monitor  program.  122.  123,  141.  158, 

171 
Movement  routines,  data,  1 3 
Multiplication,  double  precision,  8 
Multiplication,  integer,  3,  275 
Multiplication,  single  precision,  5,  245 

N 

Natural  logarithm,  10 
New  BASIC  commands,  60 
NEW  routine,  363 
NEXT  routine,  419 
NMI  interrupt  routine,  190 
Number  type  flag,  1 


Output  routine,  12.  208 
OUT  routine,  488 
OV  error  mesage,  251 


PEEK  routine,  501 

Pixels.  31 

Point  command  entry  point,  194 

POKE  Interfacing,  35 

POKE  routine,  501 

POS  routine,  462 

Power  up  routines,  1 87 

Print  character,  1 2 

Printer  device  control  block,  527 

Printer  device  control  block,  93 

Printer  driver,  225 

Printer  routine,  189,  210.  211 

Printers,  106 

Printers,  non-graphic,  106 


Printer  spooler,  91 
PRINT  routine.  404 
Print  string,  12 


RAM  spooler,  91 

Random,  10 

Random  routine,  195 

REG1,  1,  2 

REG2,  1,2 

Reserved  space,  526 

Reserved  word  entry  locations,  346 

Reserved  word  list.  346 

Reserved  word  tokens,  346 

Reset  command  entry  point,  195 

Restart  routines,  1 4 

Restore  routine,  381 

Resume  routine,  398 

Return  routine.  392 

RIGHTS  routine.  485 

RND,  10 

RND  routine,  338 

RST0008,  187,  373 

RST0010,  188 

RST0018,  188.  373 

RST0020,  188 

RST0028,  188 

RST0030.  188 

RST0038,  189 

RST  vectors,  527 

RUN  routine,  364,  390 


Scan  keyboard,  1 1 

Scan  keyboard  routine,  381 

Scan  routine,  393 

Scan  stack  routine,  348 

Set  command  entry  point.  194 

Shift  key  program,  75.  76 

Sine,  10 

Single  precision  addition,  5,  234 

Single  precision  compare  6.  260-261 

Single  precision  division  6,  248 

Single  precision  math  routine,  236, 
237,  239,  240.  247,  252,  253, 
254,  256,  257,  258,  303 

Single  precision  multiplication.  5,  245 

Single  precision  routines,  4 

Single  precision  subtraction.  5,  234 

SIN  routine.  342 

Spelled-out  error  message  program, 
107 

Spooler,  purpose  of  a,  91 

Spooler  program,  92.  93 

Square  root,  1 1 

Square  root  routine,  332 
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Stack,  10 

String  addition  routine,  476 

String  packing,  39 

String  routine,  464.  465,  466,  468, 

469,  478.  480.  488 
String  space  pointer,  53 
STRINGS  routine,  481 
Subtraction,  double  precision,  7,  275 
Subtraction,  integer,  3,  274 
Subtraction,  single  precision,  5,  234 
System  routine,  205 
System  variables,  527 


Tabbing  beyond,  54,  63 

TAB  enhancer  program,  56 

Tangent,  11 

TAN  routine,  344 

Test  memory,  121 

Test  the  number  type  flag,  76 

Tokenize  input  routine,  366 

TRON  AND  TROFF  common  code, 

384 
TRON  entry  point,  383-384 


U 

Untokenize  routine,  493 
USR,  29,  30,  44 
USR,  enhanced,  44,  48 
USR  routine,  462n  02 


VAL  routine,  487 

VARPTR.  38.  39,  40 

Verify  memory,  121 

Video  and  printer  routine,  188 

Video  device  control  biock,  527 

Video  driver,  216 

Video  memory,  527 

Video  routine,  189,  209 

W 

Wait  till  key  pressed,  11 

X 

X**y  routine,  332 

Z 

Zero  memory,  120 
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Level  II  ROMs 

If  you  are  intrigued  with  the  possibilities  of  the  programs  included 
in  Level  II  ROMs  (TAB  book  no.  1575),  you  should  definitely 
consider  having  the  ready-to-run  tape  containing  the  software 
applications.  This  software  is  guaranteed  free  of  manufacturer's 
defects.  (If  you  have  any  problems,  return  the  tape  within  30 
days,  and  we'll  send  you  a  new  one.)  Not  only  will  you  save  the 
time  and  effort  of  typing  the  programs,  the  tape  eliminates  the 
possibility  of  errors  that  can  prevent  the  programs  from  func- 
tioning. Interested? 

Available  on  tape  for  TRS-80,  Model  h  16K  and  up  at  $29.95  plus 
$1 .00  shipping  and  handling. 

Requires  Radio  Shack  Editor-Assembler  program  (EDTASM). 

|irm  interested  in  the  ready-to-run  tapes  for  Level  ll  ROMs.| 
I  Send  me:  | 

i  I 

I   tape  for  TRS-80,  Model  I,  16K  (6038s)  i 

I   TAB  BOOKS  catalog  | 

n 

I   Check/Money  Order  enclosed  for  $29.95  plus      I 

i  $1.00  shipping  and  handling.                             I 

»  i 

i   VISA  MasterCard  i 


Account  No.  Expires . 


i  Name i 

§  i 

!  Address         I 

i  I 

j  City State Zip ■ 

I  Signature- | 

I  Mail  To:  TAB  BOOKS  INC.  i 

I                   P.O.  Box  40  I 

I                 Blue  Ridge  Summit,  PA  17214  | 

i  (Pa.  add  6%  sales  tax.  Orders  outside  U.S.  must  be  prepaid  witli  i 

I  international  money  orders  in  U.S.  dollars.)  I 

I                                                                                      TAB  1575  I 
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